From 0838e931a1831b0b932a8e9748cc3bb3b51acf1d Mon Sep 17 00:00:00 2001 From: Thomas Date: Tue, 13 Jan 2015 03:28:41 +0000 Subject: [PATCH] [PASSED QA] Bug 13531 - bulkmarcimport bombs if no match is found Changed the die statment to a warn allowing the import to continue. Signed-off-by: Martin Renvoize Signed-off-by: Kyle M Hall --- misc/migration_tools/bulkmarcimport.pl | 6 +++++- 1 files changed, 5 insertions(+), 1 deletions(-) diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl index 9fd4148..0b0b27e 100755 --- a/misc/migration_tools/bulkmarcimport.pl +++ b/misc/migration_tools/bulkmarcimport.pl @@ -269,7 +269,11 @@ RECORD: while ( ) { my $server = ( $authorities ? 'authorityserver' : 'biblioserver' ); $debug && warn $query; my ( $error, $results, $totalhits ) = C4::Search::SimpleSearch( $query, 0, 3, [$server] ); - die "unable to search the database for duplicates : $error" if ( defined $error ); + # changed to warn so able to continue with one broken record + if ( defined $error ) { + warn "unable to search the database for duplicates : $error"; + next; + } $debug && warn "$query $server : $totalhits"; if ( $results && scalar(@$results) == 1 ) { my $marcrecord = C4::Search::new_record_from_zebra( $server, $results->[0] ); -- 1.7.2.5