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

(-)a/misc/migration_tools/bulkmarcimport.pl (-1 / +14 lines)
Lines 565-570 RECORD: while () { Link Here
565
                }
565
                }
566
566
567
                # Create biblio, unless we already have it (either match or ISBN)
567
                # Create biblio, unless we already have it (either match or ISBN)
568
                my @import_warnings;
569
                $mod_biblio_options->{warnings} = \@import_warnings;
570
                $add_biblio_options->{warnings}  = \@import_warnings;
568
                if ($matched_record_id) {
571
                if ($matched_record_id) {
569
                    eval { $biblioitemnumber = Koha::Biblios->find($matched_record_id)->biblioitem->biblioitemnumber; };
572
                    eval { $biblioitemnumber = Koha::Biblios->find($matched_record_id)->biblioitem->biblioitemnumber; };
570
                    if ($update) {
573
                    if ($update) {
Lines 625-630 RECORD: while () { Link Here
625
                    ) if ($logfile);
628
                    ) if ($logfile);
626
                    next RECORD;
629
                    next RECORD;
627
                }
630
                }
631
                for my $w ( grep { $_->{type} eq 'nonxml_stripped' } @import_warnings ) {
632
                    warn sprintf( "WARNING: Non-XML characters stripped from biblio %s: %s\n",
633
                        $record_id // $originalid, $w->{message} );
634
                    printlog(
635
                        {
636
                            id     => $record_id // $originalid,
637
                            op     => "import",
638
                            status => "warning : non-XML characters stripped"
639
                        }
640
                    ) if ($logfile);
641
                }
628
                my $record_has_added_items = 0;
642
                my $record_has_added_items = 0;
629
                if ($record_id) {
643
                if ($record_id) {
630
                    $yamlhash->{$originalid} = $record_id if $yamlfile;
644
                    $yamlhash->{$originalid} = $record_id if $yamlfile;
631
- 

Return to bug 35104