Index: openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/one.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/one.tcl	5 Aug 2005 09:22:52 -0000	1.2
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/one.tcl	8 Aug 2005 13:10:07 -0000	1.3
@@ -269,6 +269,7 @@
 }
 
 set total_price [db_string total_price {select ec_total_price(:order_id)} -default 0]
+set total_refunds [db_string total_refunds {select ec_total_refund(:order_id)} -default 0]
 
 switch $method {
 
@@ -300,7 +301,7 @@
 	    
 	    TOTAL: [ec_pretty_price $total_price]
 	    <br />
-	    Balance: [ec_pretty_price [expr $total_price - $invoice_payment_sum]]
+	    Balance: [ec_pretty_price [expr $total_price - $invoice_payment_sum + $total_refunds]]
 	    </blockquote>}]
     }
     "scholarship" {