|
Lines 291-299
if ($op eq ""){
Link Here
|
| 291 |
# remove uncertainprice flag if we have found a price in the MARC record |
291 |
# remove uncertainprice flag if we have found a price in the MARC record |
| 292 |
$orderinfo{uncertainprice} = 0 if $orderinfo{listprice}; |
292 |
$orderinfo{uncertainprice} = 0 if $orderinfo{listprice}; |
| 293 |
|
293 |
|
| 294 |
my $order = Koha::Acquisition::Order->new( \%orderinfo )->store; |
294 |
my $order = Koha::Acquisition::Order->new( \%orderinfo ); |
| 295 |
$order->populate_with_prices_for_ordering(); |
295 |
$order->populate_with_prices_for_ordering(); |
| 296 |
$order->populate_with_prices_for_receiving(); |
296 |
$order->populate_with_prices_for_receiving(); |
|
|
297 |
$order->store; |
| 297 |
$order->add_item( $_ ) for @{ $budget_hash->{$budget_id}->{itemnumbers} }; |
298 |
$order->add_item( $_ ) for @{ $budget_hash->{$budget_id}->{itemnumbers} }; |
| 298 |
} |
299 |
} |
| 299 |
} |
300 |
} |
| 300 |
- |
|
|