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