|
Lines 330-346
if ( $basket->{is_standing} || $orderinfo->{quantity} ne '0' ) {
Link Here
|
| 330 |
$orderinfo->{biblionumber}=$biblionumber; |
330 |
$orderinfo->{biblionumber}=$biblionumber; |
| 331 |
} |
331 |
} |
| 332 |
|
332 |
|
| 333 |
# change suggestion status if applicable |
|
|
| 334 |
if ( my $suggestionid = $input->param('suggestionid') ) { |
| 335 |
ModSuggestion( |
| 336 |
{ |
| 337 |
suggestionid => $suggestionid, |
| 338 |
biblionumber => $orderinfo->{biblionumber}, |
| 339 |
STATUS => 'ORDERED', |
| 340 |
} |
| 341 |
); |
| 342 |
} |
| 343 |
|
| 344 |
$orderinfo->{unitprice} = $orderinfo->{ecost} if not defined $orderinfo->{unitprice} or $orderinfo->{unitprice} eq ''; |
333 |
$orderinfo->{unitprice} = $orderinfo->{ecost} if not defined $orderinfo->{unitprice} or $orderinfo->{unitprice} eq ''; |
| 345 |
|
334 |
|
| 346 |
my $order; |
335 |
my $order; |
|
Lines 357-362
if ( $basket->{is_standing} || $orderinfo->{quantity} ne '0' ) {
Link Here
|
| 357 |
$order->populate_with_prices_for_ordering(); |
346 |
$order->populate_with_prices_for_ordering(); |
| 358 |
$order->store; |
347 |
$order->store; |
| 359 |
|
348 |
|
|
|
349 |
# change suggestion status if applicable |
| 350 |
if ( my $suggestionid = $input->param('suggestionid') ) { |
| 351 |
# Double checking we are going to edit the correct suggestion |
| 352 |
if ( $suggestionid == $order->suggestion->suggestion ) { |
| 353 |
ModSuggestion( |
| 354 |
{ |
| 355 |
suggestionid => $suggestionid, |
| 356 |
biblionumber => $orderinfo->{biblionumber}, |
| 357 |
STATUS => 'ORDERED', |
| 358 |
} |
| 359 |
); |
| 360 |
} |
| 361 |
} |
| 362 |
|
| 360 |
# Log the order creation |
363 |
# Log the order creation |
| 361 |
if (C4::Context->preference("AcquisitionLog")) { |
364 |
if (C4::Context->preference("AcquisitionLog")) { |
| 362 |
my $infos = {}; |
365 |
my $infos = {}; |
| 363 |
- |
|
|