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

(-)a/acqui/addorderiso2709.pl (-3 / +3 lines)
Lines 222-233 if ($op eq ""){ Link Here
222
            my $basket     = GetBasket( $orderinfo{basketno} );
222
            my $basket     = GetBasket( $orderinfo{basketno} );
223
            my $bookseller = GetBookSellerFromId( $basket->{booksellerid} );
223
            my $bookseller = GetBookSellerFromId( $basket->{booksellerid} );
224
            $orderinfo{gstrate} = $bookseller->{gstrate};
224
            $orderinfo{gstrate} = $bookseller->{gstrate};
225
            my $discount = $bookseller->{discount} / 100;
225
            if ( $bookseller->{listincgst} ) {
226
            if ( $bookseller->{listincgst} ) {
226
                $orderinfo{rrp}   = $price;
227
                $orderinfo{rrp}   = $price;
227
                $orderinfo{ecost} = $orderinfo{rrp} * ( 1 - $bookseller->{discount} );
228
                $orderinfo{ecost} = $orderinfo{rrp} * ( 1 - $discount );
228
            } else {
229
            } else {
229
                $orderinfo{rrp}   = $price / ( 1 + $orderinfo{gstrate} );
230
                $orderinfo{rrp}   = $price / ( 1 + $orderinfo{gstrate} );
230
                $orderinfo{ecost} = $orderinfo{rrp} * ( 1 - $bookseller->{discount} );
231
                $orderinfo{ecost} = $orderinfo{rrp} * ( 1 - $discount );
231
            }
232
            }
232
            $orderinfo{listprice} = $orderinfo{rrp};
233
            $orderinfo{listprice} = $orderinfo{rrp};
233
            $orderinfo{unitprice} = $orderinfo{ecost};
234
            $orderinfo{unitprice} = $orderinfo{ecost};
234
- 

Return to bug 9280