Lines 213-218
if ($op eq ""){
Link Here
|
213 |
my @copynos = $input->multi_param('copyno_' . $biblio_count); |
213 |
my @copynos = $input->multi_param('copyno_' . $biblio_count); |
214 |
my @budget_codes = $input->multi_param('budget_code_' . $biblio_count); |
214 |
my @budget_codes = $input->multi_param('budget_code_' . $biblio_count); |
215 |
my @itemprices = $input->multi_param('itemprice_' . $biblio_count); |
215 |
my @itemprices = $input->multi_param('itemprice_' . $biblio_count); |
|
|
216 |
my @replacementprices = $input->multi_param('replacementprice_' . $biblio_count); |
217 |
my @itemcallnumbers = $input->multi_param('itemcallnumber_' . $biblio_count); |
216 |
my $itemcreation = 0; |
218 |
my $itemcreation = 0; |
217 |
for (my $i = 0; $i < $count; $i++) { |
219 |
for (my $i = 0; $i < $count; $i++) { |
218 |
$itemcreation = 1; |
220 |
$itemcreation = 1; |
Lines 227-232
if ($op eq ""){
Link Here
|
227 |
uri => $uris[$i], |
229 |
uri => $uris[$i], |
228 |
copynumber => $copynos[$i], |
230 |
copynumber => $copynos[$i], |
229 |
price => $itemprices[$i], |
231 |
price => $itemprices[$i], |
|
|
232 |
replacementprice => $replacementprices[$i], |
233 |
itemcallnumber => $itemcallnumbers[$i], |
230 |
}, $biblionumber); |
234 |
}, $biblionumber); |
231 |
} |
235 |
} |
232 |
if ($itemcreation == 1) { |
236 |
if ($itemcreation == 1) { |
Lines 519-525
sub import_biblios_list {
Link Here
|
519 |
# Items |
523 |
# Items |
520 |
my @itemlist = (); |
524 |
my @itemlist = (); |
521 |
my $all_items_quantity = 0; |
525 |
my $all_items_quantity = 0; |
522 |
my $alliteminfos = get_infos_syspref_on_item('MarcItemFieldsToOrder', $marcrecord, ['homebranch', 'holdingbranch', 'itype', 'nonpublic_note', 'public_note', 'loc', 'ccode', 'notforloan', 'uri', 'copyno', 'price', 'quantity', 'budget_code']); |
526 |
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']); |
523 |
if ($alliteminfos != -1) { |
527 |
if ($alliteminfos != -1) { |
524 |
foreach my $iteminfos (@$alliteminfos) { |
528 |
foreach my $iteminfos (@$alliteminfos) { |
525 |
my $item_homebranch = $iteminfos->{homebranch}; |
529 |
my $item_homebranch = $iteminfos->{homebranch}; |
Lines 535-540
sub import_biblios_list {
Link Here
|
535 |
my $item_quantity = $iteminfos->{quantity} || 1; |
539 |
my $item_quantity = $iteminfos->{quantity} || 1; |
536 |
my $item_budget_code = $iteminfos->{budget_code}; |
540 |
my $item_budget_code = $iteminfos->{budget_code}; |
537 |
my $item_price = $iteminfos->{price}; |
541 |
my $item_price = $iteminfos->{price}; |
|
|
542 |
my $item_replacement_price = $iteminfos->{replacementprice}; |
543 |
my $item_callnumber = $iteminfos->{itemcallnumber}; |
538 |
|
544 |
|
539 |
for (my $i = 0; $i < $item_quantity; $i++) { |
545 |
for (my $i = 0; $i < $item_quantity; $i++) { |
540 |
|
546 |
|
Lines 554-559
sub import_biblios_list {
Link Here
|
554 |
'quantity' => $item_quantity, |
560 |
'quantity' => $item_quantity, |
555 |
'budget_code' => $item_budget_code || $budget_code, |
561 |
'budget_code' => $item_budget_code || $budget_code, |
556 |
'itemprice' => $item_price || $price, |
562 |
'itemprice' => $item_price || $price, |
|
|
563 |
'replacementprice' => $item_replacement_price, |
564 |
'itemcallnumber' => $item_callnumber, |
557 |
); |
565 |
); |
558 |
$all_items_quantity++; |
566 |
$all_items_quantity++; |
559 |
push @itemlist, \%itemrecord; |
567 |
push @itemlist, \%itemrecord; |