diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl index 6a82f548c4..71a07f68bd 100755 --- a/acqui/finishreceive.pl +++ b/acqui/finishreceive.pl @@ -31,6 +31,7 @@ use C4::Biblio; use C4::Items; use C4::Search; +use Koha::Number::Price; use Koha::Acquisition::Booksellers; use List::MoreUtils qw/any/; @@ -57,6 +58,8 @@ my $bookfund = $input->param("bookfund"); my $order = GetOrder($ordernumber); my $new_ordernumber = $ordernumber; +$unitprice = Koha::Number::Price->new( $unitprice )->unformat(); + #need old receivedate if we update the order, parcel.pl only shows the right parcel this way FIXME if ($quantityrec > $origquantityrec ) { my @received_items = (); diff --git a/acqui/invoice.pl b/acqui/invoice.pl index 9906341e11..3ab2d9f7c2 100755 --- a/acqui/invoice.pl +++ b/acqui/invoice.pl @@ -124,8 +124,8 @@ my $total_tax_value = 0; foreach my $order (@$orders) { my $line = get_infos( $order, $bookseller); - $line->{total_tax_excluded} = Koha::Number::Price->new( $line->{unitprice_tax_excluded} * $line->{quantity} )->format; - $line->{total_tax_included} = Koha::Number::Price->new( $line->{unitprice_tax_included} * $line->{quantity} )->format; + $line->{total_tax_excluded} = $line->{unitprice_tax_excluded} * $line->{quantity}; + $line->{total_tax_included} = $line->{unitprice_tax_included} * $line->{quantity}; $line->{tax_value} = $line->{tax_value_on_receiving}; $line->{tax_rate} = $line->{tax_rate_on_receiving};