View | Details | Raw Unified | Return to bug 6076
Collapse All | Expand All

(-)a/acqui/basketgroup.pl (-5 / +7 lines)
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
- 

Return to bug 6076