@@ -, +, @@ + my ( $error, $results, $totalhits ) = C4::Search::SimpleSearch( $query, 0, 3, [$server] ); ++ # changed to warn so able to continue with one broken record ++ if ( defined $error ) { ++ warn "unable to search the database for duplicates : $error"; ++ next; --- misc/migration_tools/bulkmarcimport.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/misc/migration_tools/bulkmarcimport.pl +++ a/misc/migration_tools/bulkmarcimport.pl @@ -272,7 +272,7 @@ RECORD: while ( ) { # changed to warn so able to continue with one broken record if ( defined $error ) { warn "unable to search the database for duplicates : $error"; - next; + next RECORD; } $debug && warn "$query $server : $totalhits"; if ( $results && scalar(@$results) == 1 ) { --