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

(-)a/misc/migration_tools/bulkmarcimport.pl (-2 / +5 lines)
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
- 

Return to bug 35466