|
Lines 259-265
if ($op eq ""){
Link Here
|
| 259 |
); |
259 |
); |
| 260 |
|
260 |
|
| 261 |
my $price = $infos->{price}; |
261 |
my $price = $infos->{price}; |
| 262 |
my $replacementprice = $infos->{replacementprice}; |
|
|
| 263 |
if ($price){ |
262 |
if ($price){ |
| 264 |
# in France, the cents separator is the , but sometimes, ppl use a . |
263 |
# in France, the cents separator is the , but sometimes, ppl use a . |
| 265 |
# in this case, the price will be x100 when unformatted ! Replace the . by a , to get a proper price calculation |
264 |
# in this case, the price will be x100 when unformatted ! Replace the . by a , to get a proper price calculation |
|
Lines 281-287
if ($op eq ""){
Link Here
|
| 281 |
} else { |
280 |
} else { |
| 282 |
$orderinfo{listprice} = 0; |
281 |
$orderinfo{listprice} = 0; |
| 283 |
} |
282 |
} |
| 284 |
$orderinfo{replacementprice} = $replacementprice || 0; |
283 |
$orderinfo{replacementprice} = $infos->{replacementprice} || 0; |
| 285 |
|
284 |
|
| 286 |
# remove uncertainprice flag if we have found a price in the MARC record |
285 |
# remove uncertainprice flag if we have found a price in the MARC record |
| 287 |
$orderinfo{uncertainprice} = 0 if $orderinfo{listprice}; |
286 |
$orderinfo{uncertainprice} = 0 if $orderinfo{listprice}; |
| 288 |
- |
|
|