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