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