From 7dbdfb014e8548f41ae0526fac157795134a15ce Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 6 May 2019 11:55:32 -0500 Subject: [PATCH] Bug 22713: Remove unecessary $replacementprice var --- acqui/addorderiso2709.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index 98e5435aca..8e0f9ff1e2 100755 --- a/acqui/addorderiso2709.pl +++ b/acqui/addorderiso2709.pl @@ -259,7 +259,6 @@ if ($op eq ""){ ); my $price = $infos->{price}; - my $replacementprice = $infos->{replacementprice}; if ($price){ # in France, the cents separator is the , but sometimes, ppl use a . # in this case, the price will be x100 when unformatted ! Replace the . by a , to get a proper price calculation @@ -281,7 +280,7 @@ if ($op eq ""){ } else { $orderinfo{listprice} = 0; } - $orderinfo{replacementprice} = $replacementprice || 0; + $orderinfo{replacementprice} = $infos->{replacementprice} || 0; # remove uncertainprice flag if we have found a price in the MARC record $orderinfo{uncertainprice} = 0 if $orderinfo{listprice}; -- 2.11.0