Index: openacs-4/packages/ecommerce/tcl/ecommerce-state-changes-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-state-changes-procs.tcl,v diff -u -r1.6.4.1 -r1.6.4.2 --- openacs-4/packages/ecommerce/tcl/ecommerce-state-changes-procs.tcl 19 Dec 2004 11:37:01 -0000 1.6.4.1 +++ openacs-4/packages/ecommerce/tcl/ecommerce-state-changes-procs.tcl 16 Jan 2005 04:49:49 -0000 1.6.4.2 @@ -43,9 +43,9 @@ ec_reinst_gift_cert_on_order (:order_id); end;" # following cleans up errors resulting from ccard failures with shipping fulfill-3.tcl - db_dml update_transaction_state " + db_dml ec_update_transaction_state " update ec_financial_transactions - set to_be_captured = 'f' + set to_be_captured_p = 'f' where order_id=:order_id and creditcard_id=:creditcard_id" } Index: openacs-4/packages/ecommerce/tcl/ecommerce-state-changes-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-state-changes-procs.xql,v diff -u -r1.3 -r1.3.4.1 --- openacs-4/packages/ecommerce/tcl/ecommerce-state-changes-procs.xql 30 Nov 2002 17:31:18 -0000 1.3 +++ openacs-4/packages/ecommerce/tcl/ecommerce-state-changes-procs.xql 16 Jan 2005 04:49:49 -0000 1.3.4.1 @@ -25,6 +25,15 @@ where creditcard_id=:creditcard_id + + + + update ec_financial_transactions + set to_be_captured_p = 'f' + where order_id=:order_id + and creditcard_id =: creditcard_id + +