From e6c459e6f15885d48b187c56a837e204500f5b70 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Fri, 27 Sep 2013 16:42:44 +0200
Subject: [PATCH] [PASSED QA] Bug 7180: FIX: discount was divided by 100 twice.

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
---
 acqui/addorderiso2709.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl
index 5b4b6c6..54c4414 100755
--- a/acqui/addorderiso2709.pl
+++ b/acqui/addorderiso2709.pl
@@ -228,7 +228,7 @@ if ($op eq ""){
             $price =~ s/\./,/ if C4::Context->preference("CurrencyFormat") eq "FR";
             $price = $num->unformat_number($price);
             $orderinfo{gstrate} = $bookseller->{gstrate};
-            my $c = $c_discount ? $c_discount / 100 : $bookseller->{discount} / 100;
+            my $c = $c_discount ? $c_discount : $bookseller->{discount} / 100;
             if ( $bookseller->{listincgst} ) {
                 if ( $c_discount ) {
                     $orderinfo{ecost} = $price;
-- 
1.8.3.2