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