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

(-)a/acqui/neworderempty.pl (-3 / +1 lines)
Lines 73-79 use CGI qw ( -utf8 ); Link Here
73
use C4::Acquisition;
73
use C4::Acquisition;
74
use C4::Auth;
74
use C4::Auth;
75
use C4::Biblio;    # GetBiblioData GetMarcPrice
75
use C4::Biblio;    # GetBiblioData GetMarcPrice
76
use C4::Branch;    # GetBranches
77
use C4::Budgets;
76
use C4::Budgets;
78
use C4::Context;
77
use C4::Context;
79
use C4::Contract;
78
use C4::Contract;
Lines 292-298 if ( $ordernumber ) { Link Here
292
        record_id => $ordernumber,
291
        record_id => $ordernumber,
293
    } )->{$ordernumber};
292
    } )->{$ordernumber};
294
} elsif ( $biblionumber ) {
293
} elsif ( $biblionumber ) {
295
    foreach my $af (@$additional_fields) {
294
    foreach my $af (@$available_additional_fields) {
296
        if ($af->{marcfield}) {
295
        if ($af->{marcfield}) {
297
            $record //= GetMarcBiblio($biblionumber);
296
            $record //= GetMarcBiblio($biblionumber);
298
            my ($field, $subfield) = split /\$/, $af->{marcfield};
297
            my ($field, $subfield) = split /\$/, $af->{marcfield};
299
- 

Return to bug 11844