|
Lines 229-234
if ($op eq ""){
Link Here
|
| 229 |
my @itemprices = $input->multi_param('itemprice_' . $import_record->import_record_id); |
229 |
my @itemprices = $input->multi_param('itemprice_' . $import_record->import_record_id); |
| 230 |
my @replacementprices = $input->multi_param('replacementprice_' . $import_record->import_record_id); |
230 |
my @replacementprices = $input->multi_param('replacementprice_' . $import_record->import_record_id); |
| 231 |
my @itemcallnumbers = $input->multi_param('itemcallnumber_' . $import_record->import_record_id); |
231 |
my @itemcallnumbers = $input->multi_param('itemcallnumber_' . $import_record->import_record_id); |
|
|
232 |
my @coded_location_qualifiers = $input->multi_param('coded_location_qualifier_' . $import_record->import_record_id); |
| 233 |
my @barcodes = $input->multi_param('barcode_' . $import_record->import_record_id); |
| 234 |
my @enumchrons = $input->multi_param('enumchron_' . $import_record->import_record_id); |
| 232 |
my $itemcreation = 0; |
235 |
my $itemcreation = 0; |
| 233 |
|
236 |
|
| 234 |
my @itemnumbers; |
237 |
my @itemnumbers; |
|
Lines 236-255
if ($op eq ""){
Link Here
|
| 236 |
$itemcreation = 1; |
239 |
$itemcreation = 1; |
| 237 |
my $item = Koha::Item->new( |
240 |
my $item = Koha::Item->new( |
| 238 |
{ |
241 |
{ |
| 239 |
biblionumber => $biblionumber, |
242 |
biblionumber => $biblionumber, |
| 240 |
homebranch => $homebranches[$i], |
243 |
homebranch => $homebranches[$i], |
| 241 |
holdingbranch => $holdingbranches[$i], |
244 |
holdingbranch => $holdingbranches[$i], |
| 242 |
itemnotes_nonpublic => $nonpublic_notes[$i], |
245 |
itemnotes_nonpublic => $nonpublic_notes[$i], |
| 243 |
itemnotes => $public_notes[$i], |
246 |
itemnotes => $public_notes[$i], |
| 244 |
location => $locs[$i], |
247 |
location => $locs[$i], |
| 245 |
ccode => $ccodes[$i], |
248 |
ccode => $ccodes[$i], |
| 246 |
itype => $itypes[$i], |
249 |
itype => $itypes[$i], |
| 247 |
notforloan => $notforloans[$i], |
250 |
notforloan => $notforloans[$i], |
| 248 |
uri => $uris[$i], |
251 |
uri => $uris[$i], |
| 249 |
copynumber => $copynos[$i], |
252 |
copynumber => $copynos[$i], |
| 250 |
price => $itemprices[$i], |
253 |
price => $itemprices[$i], |
| 251 |
replacementprice => $replacementprices[$i], |
254 |
replacementprice => $replacementprices[$i], |
| 252 |
itemcallnumber => $itemcallnumbers[$i], |
255 |
itemcallnumber => $itemcallnumbers[$i], |
|
|
256 |
coded_location_qualifier => $coded_location_qualifiers[$i], |
| 257 |
barcode => $barcodes[$i], |
| 258 |
enumchron => $enumchrons[$i], |
| 253 |
} |
259 |
} |
| 254 |
)->store; |
260 |
)->store; |
| 255 |
push( @itemnumbers, $item->itemnumber ); |
261 |
push( @itemnumbers, $item->itemnumber ); |