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