@@ -, +, @@ FAIL acqui/invoice.pl FAIL valid Useless use of private variable in void context a) Create a supplier "10613 0 0" with List item price includes tax: No Invoice item price includes tax: No Tax: 10% b) Create a supplier "10613 0 1" with List item price includes tax: No Invoice item price includes tax: Yes Tax: 10% c) Create a supplier "10613 1 0" with List item price includes tax: Yes Invoice item price includes tax: No Tax: 10% d) Create a supplier "10613 1 1" with List item price includes tax: Yes Invoice item price includes tax: Yes Tax: 10% a) 00 List price: 10.00 (11.00 with 10% taxes) b) 01 List price: 10.00 (11.00 with 10% taxes) c) 10 List price: 10.00 (9.09 without taxes) d) 11 List price: 10.00 (9.09 without taxes) Note: Information on the basket page is shown correctly. If you look at the list of ordered items for the fund, the list price is used. a discount and a gst value. Left actual price as suggested: a) 00 Actual cost: 10.00 b) 01 Actual cost: 11.00 c) 10 Actual cost: 9.09 d) 11 Actual cost: 10.00 Calculations on the invoice page now all appear to be correct. Note: When you take a look at the 'ordered' list for the fund, the actual price is used as entered. each basket/invoice, click on the "Show all details" checkbox and verify that the values are all correct. --- acqui/invoice.pl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) --- a/acqui/invoice.pl +++ a/acqui/invoice.pl @@ -123,9 +123,8 @@ foreach my $order (@$orders) { $foot{$$line{gstgsti}}{totalgsti} += $$line{totalgsti}; $total_gsti += $$line{totalgsti}; - my %row = %{ $order, $line }; - $row{'orderline'} = $row{'parent_ordernumber'}; - push @orders_loop, \%row; + $line->{orderline} = $line->{parent_ordernumber}; + push @orders_loop, $line; } push @foot_loop, map {$_} values %foot; --