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