Index: openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/invoice-payment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/invoice-payment.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/invoice-payment.tcl	10 Aug 2005 21:18:23 -0000	1.3
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/invoice-payment.tcl	17 Aug 2005 16:48:00 -0000	1.4
@@ -175,7 +175,7 @@
 }
 
 set price [ec_price_shipping_gift_certificate_and_tax_in_an_order $order_id]
-set total_price [expr [lindex $price 0]-[lindex $price 1]-[lindex $price 2][lindex $price 3]]
+set total_price [expr [lindex $price 0]-[lindex $price 1]-[lindex $price 2]-[lindex $price 3]]
 
 set invoice_payments_sum [db_string invoice_payments_sum {
     select coalesce(sum(amount), 0)
@@ -332,7 +332,7 @@
 	    }
 	}
 #    }
-	ad_returnredirect [export_vars -base one { order_id }]
+	ad_returnredirect [export_vars -base financial-transactions { order_id }]
     ad_script_abort
 }