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