Lines 226-235
sub printbasketgrouppdf{
Link Here
|
226 |
push(@ba_orders, \@ba_order); |
226 |
push(@ba_orders, \@ba_order); |
227 |
# Editor Number |
227 |
# Editor Number |
228 |
my $en; |
228 |
my $en; |
229 |
if (C4::Context->preference("marcflavour") eq 'UNIMARC') { |
229 |
my $marcrecord=eval{MARC::Record::new_from_xml( $ord->{marcxml},'UTF-8' )}; |
230 |
$en = MARC::Record::new_from_xml($ord->{marcxml},'UTF-8')->subfield('345',"b"); |
230 |
if ($marcrecord){ |
231 |
} elsif (C4::Context->preference("marcflavour") eq 'MARC21') { |
231 |
if ( C4::Context->preference("marcflavour") eq 'UNIMARC' ) { |
232 |
$en = MARC::Record::new_from_xml($ord->{marcxml},'UTF-8')->subfield('037',"a"); |
232 |
$en = $marcrecord->subfield( '345', "b" ); |
|
|
233 |
} elsif ( C4::Context->preference("marcflavour") eq 'MARC21' ) { |
234 |
$en = $marcrecord->subfield( '037', "a" ); |
235 |
} |
233 |
} |
236 |
} |
234 |
if($en){ |
237 |
if($en){ |
235 |
push(@ba_order, $en); |
238 |
push(@ba_order, $en); |
236 |
- |
|
|