View | Details | Raw Unified | Return to bug 18723
Collapse All | Expand All

(-)a/acqui/finishreceive.pl (-1 / +7 lines)
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
- 

Return to bug 18723