|
Lines 561-568
sub import_biblios_list {
Link Here
|
| 561 |
|
561 |
|
| 562 |
# Handle incorrectly named original parameters for MarcItemFieldsToOrder |
562 |
# Handle incorrectly named original parameters for MarcItemFieldsToOrder |
| 563 |
$iteminfos->{location} = delete $iteminfos->{loc} if $iteminfos->{loc}; |
563 |
$iteminfos->{location} = delete $iteminfos->{loc} if $iteminfos->{loc}; |
| 564 |
$iteminfos->{copynumber} = delete $iteminfos->{copyno} if $iteminfos->{copyno}; |
|
|
| 565 |
|
| 566 |
# Convert budget code to a budget id |
564 |
# Convert budget code to a budget id |
| 567 |
my $item_budget_code = delete $iteminfos->{budget_code}; |
565 |
my $item_budget_code = delete $iteminfos->{budget_code}; |
| 568 |
if ($item_budget_code) { |
566 |
if ($item_budget_code) { |
|
Lines 724-730
sub parse_input_into_order_line_fields {
Link Here
|
| 724 |
} |
722 |
} |
| 725 |
my @budget_codes = $client ? @{ $fields->{budget_codes} } : ($item_budget_id); |
723 |
my @budget_codes = $client ? @{ $fields->{budget_codes} } : ($item_budget_id); |
| 726 |
my $loop_limit = $client ? scalar(@homebranches) : $quantity; |
724 |
my $loop_limit = $client ? scalar(@homebranches) : $quantity; |
| 727 |
|
|
|
| 728 |
my $order_line_fields = { |
725 |
my $order_line_fields = { |
| 729 |
biblionumber => $biblionumber, |
726 |
biblionumber => $biblionumber, |
| 730 |
homebranch => \@homebranches, |
727 |
homebranch => \@homebranches, |
| 731 |
- |
|
|