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