Index: openacs-4/packages/invoices/www/offer-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/offer-ae.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/invoices/www/offer-ae.tcl	4 Aug 2006 15:36:05 -0000	1.34
+++ openacs-4/packages/invoices/www/offer-ae.tcl	11 Aug 2006 18:06:28 -0000	1.35
@@ -306,6 +306,7 @@
 	    set item(item_units) 0
 	}
 	
+	ns_log Notice "Units $item(item_units)"
 	regsub {\[} $item(comment) {\(} item(comment)
 	regsub {\[} $item(description) {\(} item(description)
 	set item(price_per_unit) [format "%.2f" $item(price_per_unit)]
@@ -315,7 +316,7 @@
 	set item(category) [lang::util::localize [category::get_name $item(category_id)]]
 
 	# calculate credit from this item
-	set item_credit [format "%.1f" [expr $item(item_units) * (1+ ($_credit_percent / 100.))]]
+	set item_credit [expr $item(item_units) * (1+ ($_credit_percent / 100.))]
 	set item_credit [format "%.2f" [expr $item_credit * $item(price_per_unit)]]
 	set item_credit [format "%.2f" [expr (1. - ($item(rebate) / 100.)) * $item_credit]]
 	set total_credit [expr $total_credit + $item_credit - $item(amount_total)]
@@ -793,6 +794,7 @@
 	    incr counter
 	    array set item $items($i)
 
+	    ns_log Notice "$item(units)"
 	    if {[info exists offer_item_id($i)]} {
 		# new revision of existing item
 		set new_item_rev_id [iv::offer_item::edit \