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