|
Lines 1274-1281
sub GetMarcBiblio {
Link Here
|
| 1274 |
return unless $marcxml; |
1274 |
return unless $marcxml; |
| 1275 |
|
1275 |
|
| 1276 |
MARC::File::XML->default_record_format( C4::Context->preference('marcflavour') ); |
1276 |
MARC::File::XML->default_record_format( C4::Context->preference('marcflavour') ); |
| 1277 |
my $record = MARC::Record->new(); |
1277 |
my $record = eval { MARC::Record::new_from_xml( $marcxml, "utf8", C4::Context->preference('marcflavour') ) }; |
| 1278 |
$record = eval { MARC::Record::new_from_xml( $marcxml, "utf8", C4::Context->preference('marcflavour') ) }; |
|
|
| 1279 |
if ($@) { warn " problem with :$biblionumber : $@ \n$marcxml"; } |
1278 |
if ($@) { warn " problem with :$biblionumber : $@ \n$marcxml"; } |
| 1280 |
return unless $record; |
1279 |
return unless $record; |
| 1281 |
|
1280 |
|
| 1282 |
- |
|
|