|
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 |
- |
|
|