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