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

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

Return to bug 35104