Index: openacs-4/packages/invoices/tcl/invoice-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/tcl/invoice-procs.tcl,v diff -u -r1.25 -r1.26 --- openacs-4/packages/invoices/tcl/invoice-procs.tcl 11 Aug 2006 19:37:52 -0000 1.25 +++ openacs-4/packages/invoices/tcl/invoice-procs.tcl 24 Aug 2006 09:18:14 -0000 1.26 @@ -302,7 +302,7 @@ if {$price_per_unit > 1} { set item_units [expr $item_units * (1. + ($credit_percent / 100.))] } else { - set item_units [format "%.1f" $item_units] + set item_units $item_units } set amount_sum [format "%.2f" [expr $multiplier * $item_units * $price_per_unit]] set amount_total [format "%.2f" [expr (1. - ($rebate / 100.)) * $amount_sum]]