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