|
Lines 59-64
my $bookfund = $input->param("bookfund");
Link Here
|
| 59 |
my $order = GetOrder($ordernumber); |
59 |
my $order = GetOrder($ordernumber); |
| 60 |
my $new_ordernumber = $ordernumber; |
60 |
my $new_ordernumber = $ordernumber; |
| 61 |
|
61 |
|
|
|
62 |
#bug18723 regression fix |
| 63 |
if (C4::Context->preference("CurrencyFormat") eq 'FR') { |
| 64 |
if (rindex($unitprice, '.') ge 0) { |
| 65 |
substr($unitprice, rindex($unitprice, '.'), 1, ','); |
| 66 |
} |
| 67 |
if (rindex($replacementprice,'.') ge 0) { |
| 68 |
substr($replacementprice, rindex($replacementprice, '.'), 1, ','); |
| 69 |
} |
| 70 |
} |
| 71 |
|
| 62 |
$unitprice = Koha::Number::Price->new( $unitprice )->unformat(); |
72 |
$unitprice = Koha::Number::Price->new( $unitprice )->unformat(); |
| 63 |
$replacementprice = Koha::Number::Price->new( $replacementprice )->unformat(); |
73 |
$replacementprice = Koha::Number::Price->new( $replacementprice )->unformat(); |
| 64 |
my $order_obj = Koha::Acquisition::Orders->find( $ordernumber ); |
74 |
my $order_obj = Koha::Acquisition::Orders->find( $ordernumber ); |