From 69e2fa5276ccbd8ae38c4b730b5e96809b2e8fcc Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 27 Sep 2013 16:42:44 +0200 Subject: [PATCH] Bug 7180: FIX: discount was divided by 100 twice. Signed-off-by: Kyle M Hall --- acqui/addorderiso2709.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index 3b2055e..f165a25 100755 --- a/acqui/addorderiso2709.pl +++ b/acqui/addorderiso2709.pl @@ -227,7 +227,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.7.10.4