|
Lines 513-519
sub import_biblios_list {
Link Here
|
| 513 |
# Items |
513 |
# Items |
| 514 |
my @itemlist = (); |
514 |
my @itemlist = (); |
| 515 |
my $all_items_quantity = 0; |
515 |
my $all_items_quantity = 0; |
| 516 |
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']); |
516 |
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']); |
| 517 |
if ($alliteminfos != -1) { |
517 |
if ($alliteminfos != -1) { |
| 518 |
foreach my $iteminfos (@$alliteminfos) { |
518 |
foreach my $iteminfos (@$alliteminfos) { |
| 519 |
my $item_homebranch = $iteminfos->{homebranch}; |
519 |
my $item_homebranch = $iteminfos->{homebranch}; |
|
Lines 528-533
sub import_biblios_list {
Link Here
|
| 528 |
my $item_copyno = $iteminfos->{copyno}; |
528 |
my $item_copyno = $iteminfos->{copyno}; |
| 529 |
my $item_quantity = $iteminfos->{quantity} || 1; |
529 |
my $item_quantity = $iteminfos->{quantity} || 1; |
| 530 |
my $item_budget_code = $iteminfos->{budget_code}; |
530 |
my $item_budget_code = $iteminfos->{budget_code}; |
|
|
531 |
my $item_discount = $iteminfos->{discount}; |
| 532 |
my $item_sort1 = $iteminfos->{sort1}; |
| 533 |
my $item_sort2 = $iteminfos->{sort2}; |
| 531 |
my $item_budget_id; |
534 |
my $item_budget_id; |
| 532 |
if ( $iteminfos->{budget_code} ) { |
535 |
if ( $iteminfos->{budget_code} ) { |
| 533 |
my $item_budget = GetBudgetByCode( $iteminfos->{budget_code} ); |
536 |
my $item_budget = GetBudgetByCode( $iteminfos->{budget_code} ); |
|
Lines 556-561
sub import_biblios_list {
Link Here
|
| 556 |
'copyno' => $item_copyno, |
559 |
'copyno' => $item_copyno, |
| 557 |
'quantity' => $item_quantity, |
560 |
'quantity' => $item_quantity, |
| 558 |
'budget_id' => $item_budget_id || $budget_id, |
561 |
'budget_id' => $item_budget_id || $budget_id, |
|
|
562 |
'discount' => $item_discount || $discount, |
| 563 |
'sort1' => $item_sort1 || $sort1, |
| 564 |
'sort2' => $item_sort2 || $sort2, |
| 559 |
'itemprice' => $item_price || $price, |
565 |
'itemprice' => $item_price || $price, |
| 560 |
'replacementprice' => $item_replacement_price || $replacementprice, |
566 |
'replacementprice' => $item_replacement_price || $replacementprice, |
| 561 |
'itemcallnumber' => $item_callnumber, |
567 |
'itemcallnumber' => $item_callnumber, |
| 562 |
- |
|
|