View | Details | Raw Unified | Return to bug 13531
Collapse All | Expand All

(-)a/misc/migration_tools/bulkmarcimport.pl (-2 / +5 lines)
Lines 269-275 RECORD: while ( ) { Link Here
269 
        my $server = ( $authorities ? 'authorityserver' : 'biblioserver' );
 269 
        my $server = ( $authorities ? 'authorityserver' : 'biblioserver' );
270 
        $debug && warn $query;
 270 
        $debug && warn $query;
271 
        my ( $error, $results, $totalhits ) = C4::Search::SimpleSearch( $query, 0, 3, [$server] );
 271 
        my ( $error, $results, $totalhits ) = C4::Search::SimpleSearch( $query, 0, 3, [$server] );
272 
        die "unable to search the database for duplicates : $error" if ( defined $error );
 272 
        # changed to warn so able to continue with one broken record
273 
        if ( defined $error ) {
274 
            warn "unable to search the database for duplicates : $error";
275 
            next;
276 
        }
273 
        $debug && warn "$query $server : $totalhits";
 277 
        $debug && warn "$query $server : $totalhits";
274 
        if ( $results && scalar(@$results) == 1 ) {
 278 
        if ( $results && scalar(@$results) == 1 ) {
275 
            my $marcrecord = C4::Search::new_record_from_zebra( $server, $results->[0] );
 279 
            my $marcrecord = C4::Search::new_record_from_zebra( $server, $results->[0] );
276 
-

Return to bug 13531