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

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

Return to bug 6076