gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

wrapping AddBiblio(), and AddItem() in evals{} to protect import from failure due to bad records. 

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Mason James 2007-11-11 17:58:33 -06:00 committed by Joshua Ferraro
parent f6b17c1de9
commit a51118833c
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
misc/migration_tools/bulkmarcimport.pl
View File

@ -294,15 +294,25 @@ while ( my $record = $batch->next() ) {
}
print "$i : $nbitems items found\n" if $verbose;
# now, create biblio and items with Addbiblio call.
unless ($test_parameter) {
my ($bibid,$oldbibitemnum) = AddBiblio($newRecord,'');
warn "ADDED biblio NB $bibid in DB\n" if $verbose;
for (my $i=0;$i<=$#items;$i++) {
# warn "here is the biblioitemnumber $oldbibitemnum";
AddItem($items[$i],$bibid,$oldbibitemnum);
}
}
my ( $bibid, $oldbibitemnum );
eval { ( $bibid, $oldbibitemnum ) = AddBiblio( $newRecord, '' ); };
warn $@ if $@;
if ( $@ ) {
warn "ERROR: Adding biblio $bibid failed\n" if $verbose
} else {
warn "ADDED biblio NB $bibid in DB\n" if $verbose;
for ( my $it = 0 ; $it <= $#items ; $it++ ) {
eval { AddItem( $items[$it], $bibid, $oldbibitemnum ); };
warn "ERROR: Adding item $it, rec $i failed\n" if ($@);
}
}
}
last if $i == $number;
}
if ($fk_off) {
$dbh->do("SET FOREIGN_KEY_CHECKS = 1");
}