|
Lines 544-549
sub import_biblios_list {
Link Here
|
| 544 |
my $item_copyno = $iteminfos->{copyno}; |
544 |
my $item_copyno = $iteminfos->{copyno}; |
| 545 |
my $item_quantity = $iteminfos->{quantity} || 1; |
545 |
my $item_quantity = $iteminfos->{quantity} || 1; |
| 546 |
my $item_budget_code = $iteminfos->{budget_code}; |
546 |
my $item_budget_code = $iteminfos->{budget_code}; |
|
|
547 |
my $item_budget_id; |
| 548 |
if ( $iteminfos->{budget_code} ) { |
| 549 |
my $item_budget = GetBudgetByCode( $iteminfos->{budget_code} ); |
| 550 |
if ( $item_budget ) { |
| 551 |
$item_budget_id = $item_budget->{budget_id}; |
| 552 |
} |
| 553 |
} |
| 547 |
my $item_price = $iteminfos->{price}; |
554 |
my $item_price = $iteminfos->{price}; |
| 548 |
my $item_replacement_price = $iteminfos->{replacementprice}; |
555 |
my $item_replacement_price = $iteminfos->{replacementprice}; |
| 549 |
my $item_callnumber = $iteminfos->{itemcallnumber}; |
556 |
my $item_callnumber = $iteminfos->{itemcallnumber}; |
|
Lines 564-570
sub import_biblios_list {
Link Here
|
| 564 |
'uri' => $item_uri, |
571 |
'uri' => $item_uri, |
| 565 |
'copyno' => $item_copyno, |
572 |
'copyno' => $item_copyno, |
| 566 |
'quantity' => $item_quantity, |
573 |
'quantity' => $item_quantity, |
| 567 |
'budget_code' => $item_budget_code || $budget_code, |
574 |
'budget_id' => $item_budget_id || $budget_id, |
| 568 |
'itemprice' => $item_price || $price, |
575 |
'itemprice' => $item_price || $price, |
| 569 |
'replacementprice' => $item_replacement_price, |
576 |
'replacementprice' => $item_replacement_price, |
| 570 |
'itemcallnumber' => $item_callnumber, |
577 |
'itemcallnumber' => $item_callnumber, |