|
Lines 433-442
sub get_corrected_marc_record {
Link Here
|
| 433 |
|
433 |
|
| 434 |
if (defined $marc) { |
434 |
if (defined $marc) { |
| 435 |
fix_leader($marc); |
435 |
fix_leader($marc); |
| 436 |
if ($record_type eq 'biblio') { |
436 |
if ($record_type eq 'authority') { |
| 437 |
my $succeeded = fix_biblio_ids($marc, $record_number); |
|
|
| 438 |
return unless $succeeded; |
| 439 |
} else { |
| 440 |
fix_authority_id($marc, $record_number); |
437 |
fix_authority_id($marc, $record_number); |
| 441 |
} |
438 |
} |
| 442 |
if (C4::Context->preference("marcflavour") eq "UNIMARC") { |
439 |
if (C4::Context->preference("marcflavour") eq "UNIMARC") { |
|
Lines 468-474
sub get_raw_marc_record {
Link Here
|
| 468 |
$fetch_sth->finish(); |
465 |
$fetch_sth->finish(); |
| 469 |
return unless $marc; |
466 |
return unless $marc; |
| 470 |
} else { |
467 |
} else { |
| 471 |
eval { $marc = GetMarcBiblio($record_number); }; |
468 |
eval { $marc = GetMarcBiblio($record_number, 1); }; |
| 472 |
if ($@ || !$marc) { |
469 |
if ($@ || !$marc) { |
| 473 |
# here we do warn since catching an exception |
470 |
# here we do warn since catching an exception |
| 474 |
# means that the bib was found but failed |
471 |
# means that the bib was found but failed |
|
Lines 477-484
sub get_raw_marc_record {
Link Here
|
| 477 |
return; |
474 |
return; |
| 478 |
} |
475 |
} |
| 479 |
} |
476 |
} |
| 480 |
# ITEM |
|
|
| 481 |
C4::Biblio::EmbedItemsInMarcBiblio($marc, $record_number); |
| 482 |
} else { |
477 |
} else { |
| 483 |
eval { $marc = GetAuthority($record_number); }; |
478 |
eval { $marc = GetAuthority($record_number); }; |
| 484 |
if ($@) { |
479 |
if ($@) { |
| 485 |
- |
|
|