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