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