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 |
- |
|
|