From 45bb997efb9d0eceeb3b86736c3299c21bd96f5c Mon Sep 17 00:00:00 2001 From: Thomas Date: Tue, 13 Jan 2015 03:28:41 +0000 Subject: [PATCH] Bug 13531 - bulkmarcimport bombs if no match is found Changed the die statment to a warn allowing the import to continue. --- misc/migration_tools/bulkmarcimport.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl index 61ece6c..e6fa37f 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.10.4