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