View | Details | Raw Unified | Return to bug 22713
Collapse All | Expand All

(-)a/acqui/addorderiso2709.pl (-3 / +1 lines)
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
- 

Return to bug 22713