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