|
Lines 517-523
sub import_biblios_list {
Link Here
|
| 517 |
# Items |
517 |
# Items |
| 518 |
my @itemlist = (); |
518 |
my @itemlist = (); |
| 519 |
my $all_items_quantity = 0; |
519 |
my $all_items_quantity = 0; |
| 520 |
my $alliteminfos = get_infos_syspref_on_item('MarcItemFieldsToOrder', $marcrecord, ['homebranch', 'holdingbranch', 'itype', 'nonpublic_note', 'public_note', 'loc', 'ccode', 'notforloan', 'uri', 'copyno', 'price', 'replacementprice', 'itemcallnumber', 'quantity', 'budget_code']); |
520 |
my $alliteminfos = get_infos_syspref_on_item('MarcItemFieldsToOrder', $marcrecord, ['homebranch', 'holdingbranch', 'itype', 'nonpublic_note', 'public_note', 'loc', 'ccode', 'notforloan', 'uri', 'copyno', 'price', 'replacementprice', 'itemcallnumber', 'quantity', 'budget_code', 'discount', 'sort1', 'sort2']); |
| 521 |
if ($alliteminfos != -1) { |
521 |
if ($alliteminfos != -1) { |
| 522 |
foreach my $iteminfos (@$alliteminfos) { |
522 |
foreach my $iteminfos (@$alliteminfos) { |
| 523 |
my $item_homebranch = $iteminfos->{homebranch}; |
523 |
my $item_homebranch = $iteminfos->{homebranch}; |
|
Lines 532-537
sub import_biblios_list {
Link Here
|
| 532 |
my $item_copyno = $iteminfos->{copyno}; |
532 |
my $item_copyno = $iteminfos->{copyno}; |
| 533 |
my $item_quantity = $iteminfos->{quantity} || 1; |
533 |
my $item_quantity = $iteminfos->{quantity} || 1; |
| 534 |
my $item_budget_code = $iteminfos->{budget_code}; |
534 |
my $item_budget_code = $iteminfos->{budget_code}; |
|
|
535 |
my $item_discount = $iteminfos->{discount}; |
| 536 |
my $item_sort1 = $iteminfos->{sort1}; |
| 537 |
my $item_sort2 = $iteminfos->{sort2}; |
| 535 |
my $item_budget_id; |
538 |
my $item_budget_id; |
| 536 |
if ( $iteminfos->{budget_code} ) { |
539 |
if ( $iteminfos->{budget_code} ) { |
| 537 |
my $item_budget = GetBudgetByCode( $iteminfos->{budget_code} ); |
540 |
my $item_budget = GetBudgetByCode( $iteminfos->{budget_code} ); |
|
Lines 560-565
sub import_biblios_list {
Link Here
|
| 560 |
'copyno' => $item_copyno, |
563 |
'copyno' => $item_copyno, |
| 561 |
'quantity' => $item_quantity, |
564 |
'quantity' => $item_quantity, |
| 562 |
'budget_id' => $item_budget_id || $budget_id, |
565 |
'budget_id' => $item_budget_id || $budget_id, |
|
|
566 |
'discount' => $item_discount || $discount, |
| 567 |
'sort1' => $item_sort1 || $sort1, |
| 568 |
'sort2' => $item_sort2 || $sort2, |
| 563 |
'itemprice' => $item_price || $price, |
569 |
'itemprice' => $item_price || $price, |
| 564 |
'replacementprice' => $item_replacement_price || $replacementprice, |
570 |
'replacementprice' => $item_replacement_price || $replacementprice, |
| 565 |
'itemcallnumber' => $item_callnumber, |
571 |
'itemcallnumber' => $item_callnumber, |
| 566 |
- |
|
|