Lines 43-49
use C4::Context;
Link Here
|
43 |
use MARC::Record; |
43 |
use MARC::Record; |
44 |
use C4::ClassSource qw( GetClassSources ); |
44 |
use C4::ClassSource qw( GetClassSources ); |
45 |
use C4::ImportBatch qw( GetImportRecordMarc ); |
45 |
use C4::ImportBatch qw( GetImportRecordMarc ); |
46 |
use C4::Charset qw( SetMarcUnicodeFlag ); |
46 |
use C4::Charset qw( SetMarcUnicodeFlag StripNonXmlChars ); |
47 |
use Koha::BiblioFrameworks; |
47 |
use Koha::BiblioFrameworks; |
48 |
use Koha::DateUtils qw( dt_from_string ); |
48 |
use Koha::DateUtils qw( dt_from_string ); |
49 |
|
49 |
|
Lines 577-583
my (
Link Here
|
577 |
); |
577 |
); |
578 |
|
578 |
|
579 |
if ( $biblio && !$breedingid ) { |
579 |
if ( $biblio && !$breedingid ) { |
580 |
$record = $biblio->metadata->record; |
580 |
eval { $record = $biblio->metadata->record }; |
|
|
581 |
if( $@ ){ |
582 |
$template->param( yucky_record => $@ ); |
583 |
$record = MARC::Record->new_from_xml( StripNonXmlChars($biblio->metadata->metadata), 'UTF-8',$biblio->metadata->schema ); |
584 |
} |
581 |
} |
585 |
} |
582 |
if ($breedingid) { |
586 |
if ($breedingid) { |
583 |
( $record, $encoding ) = MARCfindbreeding( $breedingid ) ; |
587 |
( $record, $encoding ) = MARCfindbreeding( $breedingid ) ; |