|
Lines 419-444
$quantity //= 0;
Link Here
|
| 419 |
# Get additional fields |
419 |
# Get additional fields |
| 420 |
my $record; |
420 |
my $record; |
| 421 |
my @additional_fields = Koha::AdditionalFields->search({ tablename => 'aqorders' })->as_list; |
421 |
my @additional_fields = Koha::AdditionalFields->search({ tablename => 'aqorders' })->as_list; |
| 422 |
my %additional_field_values; |
422 |
my $additional_field_values; |
| 423 |
my $items; |
423 |
my $items; |
| 424 |
if ($ordernumber) { |
424 |
if ($ordernumber) { |
| 425 |
my $order = Koha::Acquisition::Orders->find($ordernumber); |
425 |
my $order = Koha::Acquisition::Orders->find($ordernumber); |
| 426 |
foreach my $value ($order->additional_field_values->as_list) { |
426 |
$additional_field_values = $order->get_additional_field_values_for_template; |
| 427 |
$additional_field_values{$value->field_id} = $value->value; |
|
|
| 428 |
} |
| 429 |
$items = $order->items; |
427 |
$items = $order->items; |
| 430 |
} elsif ( $biblionumber ) { |
428 |
} elsif ( $biblionumber ) { |
|
|
429 |
my %additional_field_values; |
| 431 |
foreach my $af (@additional_fields) { |
430 |
foreach my $af (@additional_fields) { |
|
|
431 |
my @marc_field_values; |
| 432 |
if ($af->marcfield) { |
432 |
if ($af->marcfield) { |
| 433 |
$record //= Koha::Biblios->find($biblionumber)->metadata->record; |
433 |
$record //= Koha::Biblios->find($biblionumber)->metadata->record; |
| 434 |
my ($field, $subfield) = split /\$/, $af->marcfield; |
434 |
my ($field, $subfield) = split /\$/, $af->marcfield; |
| 435 |
$additional_field_values{$af->id} = $record->subfield($field, $subfield); |
435 |
push @marc_field_values, $record->subfield( $field, $subfield ) if $record->subfield( $field, $subfield ); |
|
|
436 |
$additional_field_values{ $af->id } = \@marc_field_values; |
| 436 |
} |
437 |
} |
| 437 |
} |
438 |
} |
|
|
439 |
$additional_field_values = \%additional_field_values |
| 438 |
} |
440 |
} |
|
|
441 |
|
| 439 |
$template->param( |
442 |
$template->param( |
| 440 |
additional_fields => \@additional_fields, |
443 |
additional_fields => \@additional_fields, |
| 441 |
additional_field_values => \%additional_field_values, |
444 |
additional_field_values => $additional_field_values, |
| 442 |
items => $items, |
445 |
items => $items, |
| 443 |
); |
446 |
); |
| 444 |
|
447 |
|