Index: openacs-4/packages/invoices/www/invoice-pay.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-pay.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/invoices/www/invoice-pay.tcl	9 Dec 2005 18:26:33 -0000	1.3
+++ openacs-4/packages/invoices/www/invoice-pay.tcl	25 Oct 2006 21:18:57 -0000	1.4
@@ -12,10 +12,8 @@
 
 # Make sure you only mark invoices as "Paid" that have the status billed
 
-db_transaction {
-    foreach inv_id $invoice_id {
-	db_dml pay_invoice {}
-    }
+foreach inv_id $invoice_id {
+    db_dml pay_invoice {}
 }
 
 set invoice_id [lindex $invoice_id 0]