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