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