Index: openacs-4/packages/ecommerce/www/process-payment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/process-payment.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/www/process-payment.tcl	20 Apr 2001 20:51:13 -0000	1.1
+++ openacs-4/packages/ecommerce/www/process-payment.tcl	29 Jan 2002 00:11:46 -0000	1.2
@@ -210,7 +210,7 @@
 	db_dml use_existing_cc_for_order "update ec_orders set creditcard_id=:creditcard_id where order_id=:order_id"
     } else {
 	# using new credit card
-	set creditcard_id [db_string get_id_for_new_cc "select ec_creditcard_id_sequence.nextval from dual"]
+	set creditcard_id [db_nextval ec_creditcard_id_sequence]
  set cc_no [string range $creditcard_number [expr [string length $creditcard_number] -4] [expr [string length $creditcard_number] -1]]
 set expiry "$creditcard_expire_1/$creditcard_expire_2"
 	db_dml insert_new_cc "insert into ec_creditcards