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