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

(-)a/misc/migration_tools/bulkmarcimport.pl (-2 / +8 lines)
Lines 542-548 RECORD: foreach my $record (@{$marc_records}) { Link Here
542
                }
542
                }
543
            }
543
            }
544
            elsif ($insert) {
544
            elsif ($insert) {
545
                eval { ($record_id, $biblioitemnumber) = AddBiblio($record, $framework, { disable_autolink => 1 }) };
545
                my $record_clone = $record->clone();
546
                C4::Biblio::_strip_item_fields($record_clone);
547
                eval { ($record_id, $biblioitemnumber) = AddBiblio($record_clone, $framework, { disable_autolink => 1 }) };
546
                if ($@) {
548
                if ($@) {
547
                    warn "ERROR: Insert biblio $originalid failed: $@\n";
549
                    warn "ERROR: Insert biblio $originalid failed: $@\n";
548
                    printlog( { id => $originalid, op => "insert", status => "ERROR" } ) if ($logfile);
550
                    printlog( { id => $originalid, op => "insert", status => "ERROR" } ) if ($logfile);
Lines 551-556 RECORD: foreach my $record (@{$marc_records}) { Link Here
551
                else {
553
                else {
552
                    printlog( { id => $originalid, op => "insert", status => "ok" } ) if ($logfile);
554
                    printlog( { id => $originalid, op => "insert", status => "ok" } ) if ($logfile);
553
                }
555
                }
556
                # If incoming record has bib ids set we need to transfer
557
                # new ids from record_clone to incoming record to avoid
558
                # working on wrong record (the original record) later on
559
                # when adding items for example
560
                C4::Biblio::_koha_marc_update_bib_ids($record, $framework, $record_id, $biblioitemnumber);
554
            }
561
            }
555
            else {
562
            else {
556
                warn "WARNING: Insert biblio $originalid skipped";
563
                warn "WARNING: Insert biblio $originalid skipped";
557
- 

Return to bug 25539