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.3 -r1.4
--- openacs-4/packages/ecommerce/tcl/ecommerce-state-changes-procs.tcl	18 Jul 2001 18:19:01 -0000	1.3
+++ openacs-4/packages/ecommerce/tcl/ecommerce-state-changes-procs.tcl	29 Jan 2002 00:11:46 -0000	1.4
@@ -67,7 +67,7 @@
   set total_amount [db_string total_amount_select "select ec_order_cost(:order_id) from dual"]
   if { $total_amount > 0 } {
     # create a new financial transaction
-    set transaction_id [db_string transaction_id_select "select ec_transaction_id_sequence.nextval from dual"]
+    set transaction_id [db_nextval ec_transaction_id_sequence]
     db_dml financial_transaction_insert "insert into ec_financial_transactions
     (transaction_id, order_id, transaction_amount, transaction_type, inserted_date)
     values