|
Lines 228-234
if ($op eq ""){
Link Here
|
| 228 |
$price =~ s/\./,/ if C4::Context->preference("CurrencyFormat") eq "FR"; |
228 |
$price =~ s/\./,/ if C4::Context->preference("CurrencyFormat") eq "FR"; |
| 229 |
$price = $num->unformat_number($price); |
229 |
$price = $num->unformat_number($price); |
| 230 |
$orderinfo{gstrate} = $bookseller->{gstrate}; |
230 |
$orderinfo{gstrate} = $bookseller->{gstrate}; |
| 231 |
my $c = $c_discount ? $c_discount / 100 : $bookseller->{discount} / 100; |
231 |
my $c = $c_discount ? $c_discount : $bookseller->{discount} / 100; |
| 232 |
if ( $bookseller->{listincgst} ) { |
232 |
if ( $bookseller->{listincgst} ) { |
| 233 |
if ( $c_discount ) { |
233 |
if ( $c_discount ) { |
| 234 |
$orderinfo{ecost} = $price; |
234 |
$orderinfo{ecost} = $price; |
| 235 |
- |
|
|