From 2d5f0c732751dfe467534d0200a71c36b9f952e3 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Tue, 13 Sep 2016 15:32:35 +0200 Subject: [PATCH] Bug 11844: Fix syntax errors --- acqui/neworderempty.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index 001635e..6d0bc4f 100755 --- a/acqui/neworderempty.pl +++ b/acqui/neworderempty.pl @@ -73,7 +73,6 @@ use CGI qw ( -utf8 ); use C4::Acquisition; use C4::Auth; use C4::Biblio; # GetBiblioData GetMarcPrice -use C4::Branch; # GetBranches use C4::Budgets; use C4::Context; use C4::Contract; @@ -292,7 +291,7 @@ if ( $ordernumber ) { record_id => $ordernumber, } )->{$ordernumber}; } elsif ( $biblionumber ) { - foreach my $af (@$additional_fields) { + foreach my $af (@$available_additional_fields) { if ($af->{marcfield}) { $record //= GetMarcBiblio($biblionumber); my ($field, $subfield) = split /\$/, $af->{marcfield}; -- 2.1.4