Lines 269-281
if ( $basket->{is_standing} || $orderinfo->{quantity} ne '0' ) {
Link Here
|
269 |
|
269 |
|
270 |
# create the record in catalogue, with framework '' |
270 |
# create the record in catalogue, with framework '' |
271 |
my ($biblionumber,$bibitemnum) = AddBiblio($record,''); |
271 |
my ($biblionumber,$bibitemnum) = AddBiblio($record,''); |
272 |
# change suggestion status if applicable |
272 |
|
273 |
if ($$orderinfo{suggestionid}) { |
|
|
274 |
ModSuggestion( {suggestionid=>$$orderinfo{suggestionid}, STATUS=>'ORDERED', biblionumber=>$biblionumber} ); |
275 |
} |
276 |
$orderinfo->{biblionumber}=$biblionumber; |
273 |
$orderinfo->{biblionumber}=$biblionumber; |
277 |
} |
274 |
} |
278 |
|
275 |
|
|
|
276 |
# change suggestion status if applicable |
277 |
if ( $orderinfo->{suggestionid} ) { |
278 |
ModSuggestion( |
279 |
{ |
280 |
suggestionid => $orderinfo->{suggestionid}, |
281 |
biblionumber => $orderinfo->{biblionumber}, |
282 |
STATUS => 'ORDERED', |
283 |
} |
284 |
); |
285 |
} |
286 |
|
279 |
$orderinfo->{unitprice} = $orderinfo->{ecost} if not defined $orderinfo->{unitprice} or $orderinfo->{unitprice} eq ''; |
287 |
$orderinfo->{unitprice} = $orderinfo->{ecost} if not defined $orderinfo->{unitprice} or $orderinfo->{unitprice} eq ''; |
280 |
|
288 |
|
281 |
$orderinfo = C4::Acquisition::populate_order_with_prices( |
289 |
$orderinfo = C4::Acquisition::populate_order_with_prices( |
282 |
- |
|
|