Lines 532-541
sub import_biblios_list {
Link Here
|
532 |
my $quantity = delete $iteminfos->{quantity} || 1; |
532 |
my $quantity = delete $iteminfos->{quantity} || 1; |
533 |
|
533 |
|
534 |
# Handle incorrectly named original parameters for MarcItemFieldsToOrder |
534 |
# Handle incorrectly named original parameters for MarcItemFieldsToOrder |
535 |
$iteminfos->{location} = delete $iteminfos->{loc} if $iteminfos->{loc}; |
535 |
$iteminfos->{location} = delete $iteminfos->{loc} if $iteminfos->{loc}; |
536 |
$iteminfos->{copynumber} = delete $iteminfos->{copyno} if $iteminfos->{copyno}; |
|
|
537 |
# Price is handled as "itemprice" in the UI form to distinguish from MarcFieldsToOrder |
536 |
# Price is handled as "itemprice" in the UI form to distinguish from MarcFieldsToOrder |
538 |
$iteminfos->{itemprice} = delete $iteminfos->{price} if $iteminfos->{itemprice}; |
537 |
$iteminfos->{itemprice} = delete $iteminfos->{price} if $iteminfos->{itemprice}; |
539 |
|
538 |
|
540 |
# Convert budge code to a budget id |
539 |
# Convert budge code to a budget id |
541 |
my $item_budget_code = delete $iteminfos->{budget_code}; |
540 |
my $item_budget_code = delete $iteminfos->{budget_code}; |
542 |
- |
|
|