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