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

(-)a/misc/migration_tools/bulkmarcimport.pl (-3 / +1 lines)
Lines 526-532 RECORD: foreach my $record (@{$marc_records}) { Link Here
526
                        next RECORD;
526
                        next RECORD;
527
                    }
527
                    }
528
                    elsif (!$success) {
528
                    elsif (!$success) {
529
                        warn "ERROR: Update biblio $matched_record_id failed for unkown reason";
529
                        warn "ERROR: Update biblio $matched_record_id failed for unknown reason";
530
                        printlog( { id => $matched_record_id, op => "update", status => "ERROR" } ) if ($logfile);
530
                        printlog( { id => $matched_record_id, op => "update", status => "ERROR" } ) if ($logfile);
531
                        next RECORD;
531
                        next RECORD;
532
                    }
532
                    }
Lines 713-719 sub GetRecordId { Link Here
713
            return $marcrecord->subfield($tag, $subfield);
713
            return $marcrecord->subfield($tag, $subfield);
714
        }
714
        }
715
    }
715
    }
716
    return undef;
717
}
716
}
718
sub build_query {
717
sub build_query {
719
    my ($match, $record) = @_;
718
    my ($match, $record) = @_;
720
- 

Return to bug 29440