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]