|
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 |
- |
|
|