|
Lines 245-250
if ($op eq ""){
Link Here
|
| 245 |
for (my $i = 0; $i < $count; $i++) { |
245 |
for (my $i = 0; $i < $count; $i++) { |
| 246 |
$budget_hash->{$budget_codes[$i]}->{quantity} += 1; |
246 |
$budget_hash->{$budget_codes[$i]}->{quantity} += 1; |
| 247 |
$budget_hash->{$budget_codes[$i]}->{price} = $itemprices[$i]; |
247 |
$budget_hash->{$budget_codes[$i]}->{price} = $itemprices[$i]; |
|
|
248 |
$budget_hash->{$budget_codes[$i]}->{itemnumbers} //= []; |
| 249 |
push( $budget_hash->{$budget_codes[$i]}->{itemnumbers}, $itemnumbers[$i] ); |
| 248 |
} |
250 |
} |
| 249 |
|
251 |
|
| 250 |
# Create orderlines from MarcItemFieldsToOrder |
252 |
# Create orderlines from MarcItemFieldsToOrder |
|
Lines 306-312
if ($op eq ""){
Link Here
|
| 306 |
}; |
308 |
}; |
| 307 |
|
309 |
|
| 308 |
my $order = Koha::Acquisition::Order->new( \%orderinfo )->store; |
310 |
my $order = Koha::Acquisition::Order->new( \%orderinfo )->store; |
| 309 |
$order->add_item( $_ ) for @itemnumbers; |
311 |
$order->add_item( $_ ) for @{ $budget_hash->{$budget_id}->{itemnumbers} }; |
| 310 |
} |
312 |
} |
| 311 |
} |
313 |
} |
| 312 |
} else { |
314 |
} else { |
| 313 |
- |
|
|