|
Lines 217-222
if ($op eq ""){
Link Here
|
| 217 |
my @replacementprices = $input->multi_param('replacementprice_' . $biblio_count); |
217 |
my @replacementprices = $input->multi_param('replacementprice_' . $biblio_count); |
| 218 |
my @itemcallnumbers = $input->multi_param('itemcallnumber_' . $biblio_count); |
218 |
my @itemcallnumbers = $input->multi_param('itemcallnumber_' . $biblio_count); |
| 219 |
my $itemcreation = 0; |
219 |
my $itemcreation = 0; |
|
|
220 |
|
| 221 |
my @itemnumbers; |
| 220 |
for (my $i = 0; $i < $count; $i++) { |
222 |
for (my $i = 0; $i < $count; $i++) { |
| 221 |
$itemcreation = 1; |
223 |
$itemcreation = 1; |
| 222 |
my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ |
224 |
my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ |
|
Lines 234-239
if ($op eq ""){
Link Here
|
| 234 |
replacementprice => $replacementprices[$i], |
236 |
replacementprice => $replacementprices[$i], |
| 235 |
itemcallnumber => $itemcallnumbers[$i], |
237 |
itemcallnumber => $itemcallnumbers[$i], |
| 236 |
}, $biblionumber); |
238 |
}, $biblionumber); |
|
|
239 |
push( @itemnumbers, $itemnumber ); |
| 237 |
} |
240 |
} |
| 238 |
if ($itemcreation == 1) { |
241 |
if ($itemcreation == 1) { |
| 239 |
# Group orderlines from MarcItemFieldsToOrder |
242 |
# Group orderlines from MarcItemFieldsToOrder |
|
Lines 302-307
if ($op eq ""){
Link Here
|
| 302 |
}; |
305 |
}; |
| 303 |
|
306 |
|
| 304 |
my $order = Koha::Acquisition::Order->new( \%orderinfo )->insert; |
307 |
my $order = Koha::Acquisition::Order->new( \%orderinfo )->insert; |
|
|
308 |
$order->add_item( $_ ) for @itemnumbers; |
| 305 |
} |
309 |
} |
| 306 |
} |
310 |
} |
| 307 |
} else { |
311 |
} else { |
| 308 |
- |
|
|