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

(-)a/acqui/addorderiso2709.pl (-7 / +6 lines)
Lines 259-267 if ($op eq ""){ Link Here
259
                        # in this case, the price will be x100 when unformatted ! Replace the . by a , to get a proper price calculation
259
                        # in this case, the price will be x100 when unformatted ! Replace the . by a , to get a proper price calculation
260
                        $price =~ s/\./,/ if C4::Context->preference("CurrencyFormat") eq "FR";
260
                        $price =~ s/\./,/ if C4::Context->preference("CurrencyFormat") eq "FR";
261
                        $price = Koha::Number::Price->new($price)->unformat;
261
                        $price = Koha::Number::Price->new($price)->unformat;
262
                        $orderinfo{gstrate} = $bookseller->{gstrate};
262
                        $orderinfo{gstrate} = $bookseller->gstrate;
263
                        my $c = $c_discount ? $c_discount : $bookseller->{discount} / 100;
263
                        my $c = $c_discount ? $c_discount : $bookseller->discount / 100;
264
                        if ( $bookseller->{listincgst} ) {
264
                        if ( $bookseller->listincgst ) {
265
                            if ( $c_discount ) {
265
                            if ( $c_discount ) {
266
                                $orderinfo{ecost} = $price;
266
                                $orderinfo{ecost} = $price;
267
                                $orderinfo{rrp}   = $orderinfo{ecost} / ( 1 - $c );
267
                                $orderinfo{rrp}   = $orderinfo{ecost} / ( 1 - $c );
Lines 327-335 if ($op eq ""){ Link Here
327
                # in this case, the price will be x100 when unformatted ! Replace the . by a , to get a proper price calculation
327
                # in this case, the price will be x100 when unformatted ! Replace the . by a , to get a proper price calculation
328
                $price =~ s/\./,/ if C4::Context->preference("CurrencyFormat") eq "FR";
328
                $price =~ s/\./,/ if C4::Context->preference("CurrencyFormat") eq "FR";
329
                $price = Koha::Number::Price->new($price)->unformat;
329
                $price = Koha::Number::Price->new($price)->unformat;
330
                $orderinfo{gstrate} = $bookseller->{gstrate};
330
                $orderinfo{gstrate} = $bookseller->gstrate;
331
                my $c = $c_discount ? $c_discount : $bookseller->{discount} / 100;
331
                my $c = $c_discount ? $c_discount : $bookseller->discount / 100;
332
                if ( $bookseller->{listincgst} ) {
332
                if ( $bookseller->listincgst ) {
333
                    if ( $c_discount ) {
333
                    if ( $c_discount ) {
334
                        $orderinfo{ecost} = $price;
334
                        $orderinfo{ecost} = $price;
335
                        $orderinfo{rrp}   = $orderinfo{ecost} / ( 1 - $c );
335
                        $orderinfo{rrp}   = $orderinfo{ecost} / ( 1 - $c );
336
- 

Return to bug 18115