From 4c5ae7ffc69443c5f3b956a1dc596743afb6c8d6 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Mon, 6 May 2019 11:55:32 -0500
Subject: [PATCH] Bug 22713: Remove unecessary $replacementprice var

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
(cherry picked from commit 3b877cc240eb44acafaef1ed5f287eae3dfb7baa)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 acqui/addorderiso2709.pl |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl
index 98e5435..8e0f9ff 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};
-- 
1.7.2.5