Lines 480-485
RECORD: foreach my $record ( @{$marc_records} ) {
Link Here
|
480 |
if ($@) { |
480 |
if ($@) { |
481 |
warn "ERROR: Update authority $matched_record_id failed: $@\n"; |
481 |
warn "ERROR: Update authority $matched_record_id failed: $@\n"; |
482 |
printlog( { id => $matched_record_id, op => "update", status => "ERROR" } ) if ($logfile); |
482 |
printlog( { id => $matched_record_id, op => "update", status => "ERROR" } ) if ($logfile); |
|
|
483 |
next RECORD; |
483 |
} else { |
484 |
} else { |
484 |
printlog( { id => $authid, op => "update", status => "ok" } ) if ($logfile); |
485 |
printlog( { id => $authid, op => "update", status => "ok" } ) if ($logfile); |
485 |
} |
486 |
} |
Lines 500-505
RECORD: foreach my $record ( @{$marc_records} ) {
Link Here
|
500 |
if ($@) { |
501 |
if ($@) { |
501 |
warn "ERROR: Insert authority $originalid failed: $@\n"; |
502 |
warn "ERROR: Insert authority $originalid failed: $@\n"; |
502 |
printlog( { id => $originalid, op => "insert", status => "ERROR" } ) if ($logfile); |
503 |
printlog( { id => $originalid, op => "insert", status => "ERROR" } ) if ($logfile); |
|
|
504 |
next RECORD; |
503 |
} else { |
505 |
} else { |
504 |
printlog( { id => $authid, op => "insert", status => "ok" } ) if ($logfile); |
506 |
printlog( { id => $authid, op => "insert", status => "ok" } ) if ($logfile); |
505 |
} |
507 |
} |
Lines 508-514
RECORD: foreach my $record ( @{$marc_records} ) {
Link Here
|
508 |
printlog( |
510 |
printlog( |
509 |
{ |
511 |
{ |
510 |
id => $originalid, op => "insert", |
512 |
id => $originalid, op => "insert", |
511 |
status => "warning : biblio not in database and option -insert not enabled, skipping..." |
513 |
status => "warning : authority not in database and option -insert not enabled, skipping..." |
512 |
} |
514 |
} |
513 |
) if ($logfile); |
515 |
) if ($logfile); |
514 |
} |
516 |
} |
Lines 520-525
RECORD: foreach my $record ( @{$marc_records} ) {
Link Here
|
520 |
1 #@FIXME: Really always updated? |
522 |
1 #@FIXME: Really always updated? |
521 |
); |
523 |
); |
522 |
} |
524 |
} |
|
|
525 |
push @search_engine_record_ids, $authid; |
526 |
push @search_engine_records, $record; |
523 |
} else { |
527 |
} else { |
524 |
my ( $biblioitemnumber, $itemnumbers_ref, $errors_ref, $record_id ); |
528 |
my ( $biblioitemnumber, $itemnumbers_ref, $errors_ref, $record_id ); |
525 |
|
529 |
|
526 |
- |
|
|