|
Lines 200-205
if ($op eq ""){
Link Here
|
| 200 |
my @copynos = $input->multi_param('copyno_' . $biblio_count); |
200 |
my @copynos = $input->multi_param('copyno_' . $biblio_count); |
| 201 |
my @budget_codes = $input->multi_param('budget_code_' . $biblio_count); |
201 |
my @budget_codes = $input->multi_param('budget_code_' . $biblio_count); |
| 202 |
my @itemprices = $input->multi_param('itemprice_' . $biblio_count); |
202 |
my @itemprices = $input->multi_param('itemprice_' . $biblio_count); |
|
|
203 |
my @replacementprices = $input->multi_param('replacementprice_' . $biblio_count); |
| 204 |
my @itemcallnumbers = $input->multi_param('itemcallnumber_' . $biblio_count); |
| 203 |
my $itemcreation = 0; |
205 |
my $itemcreation = 0; |
| 204 |
for (my $i = 0; $i < $count; $i++) { |
206 |
for (my $i = 0; $i < $count; $i++) { |
| 205 |
$itemcreation = 1; |
207 |
$itemcreation = 1; |
|
Lines 214-219
if ($op eq ""){
Link Here
|
| 214 |
uri => $uris[$i], |
216 |
uri => $uris[$i], |
| 215 |
copynumber => $copynos[$i], |
217 |
copynumber => $copynos[$i], |
| 216 |
price => $itemprices[$i], |
218 |
price => $itemprices[$i], |
|
|
219 |
replacementprice => $replacementprices[$i], |
| 220 |
itemcallnumber => $itemcallnumbers[$i], |
| 217 |
}, $biblionumber); |
221 |
}, $biblionumber); |
| 218 |
} |
222 |
} |
| 219 |
if ($itemcreation == 1) { |
223 |
if ($itemcreation == 1) { |
|
Lines 495-501
sub import_biblios_list {
Link Here
|
| 495 |
# Items |
499 |
# Items |
| 496 |
my @itemlist = (); |
500 |
my @itemlist = (); |
| 497 |
my $all_items_quantity = 0; |
501 |
my $all_items_quantity = 0; |
| 498 |
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']); |
502 |
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']); |
| 499 |
if ($alliteminfos != -1) { |
503 |
if ($alliteminfos != -1) { |
| 500 |
foreach my $iteminfos (@$alliteminfos) { |
504 |
foreach my $iteminfos (@$alliteminfos) { |
| 501 |
my $item_homebranch = $iteminfos->{homebranch}; |
505 |
my $item_homebranch = $iteminfos->{homebranch}; |
|
Lines 511-516
sub import_biblios_list {
Link Here
|
| 511 |
my $item_quantity = $iteminfos->{quantity} || 1; |
515 |
my $item_quantity = $iteminfos->{quantity} || 1; |
| 512 |
my $item_budget_code = $iteminfos->{budget_code}; |
516 |
my $item_budget_code = $iteminfos->{budget_code}; |
| 513 |
my $item_price = $iteminfos->{price}; |
517 |
my $item_price = $iteminfos->{price}; |
|
|
518 |
my $item_replacement_price = $iteminfos->{replacementprice}; |
| 519 |
my $item_callnumber = $iteminfos->{itemcallnumber}; |
| 514 |
|
520 |
|
| 515 |
for (my $i = 0; $i < $item_quantity; $i++) { |
521 |
for (my $i = 0; $i < $item_quantity; $i++) { |
| 516 |
|
522 |
|
|
Lines 530-535
sub import_biblios_list {
Link Here
|
| 530 |
'quantity' => $item_quantity, |
536 |
'quantity' => $item_quantity, |
| 531 |
'budget_code' => $item_budget_code || $budget_code, |
537 |
'budget_code' => $item_budget_code || $budget_code, |
| 532 |
'itemprice' => $item_price || $price, |
538 |
'itemprice' => $item_price || $price, |
|
|
539 |
'replacementprice' => $item_replacement_price, |
| 540 |
'itemcallnumber' => $item_callnumber, |
| 533 |
); |
541 |
); |
| 534 |
$all_items_quantity++; |
542 |
$all_items_quantity++; |
| 535 |
push @itemlist, \%itemrecord; |
543 |
push @itemlist, \%itemrecord; |