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
+
+