Index: openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-2.tcl	20 Apr 2001 20:51:14 -0000	1.1
+++ openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-2.tcl	29 Jan 2002 00:11:46 -0000	1.2
@@ -109,7 +109,7 @@
 # exist) so that I can use the fact of its existence or lack of existence
 # to create this page's UI
 
-set action_id [db_string get_interaction_id "select ec_action_id_sequence.nextval from dual"]
+set action_id [db_nextval ec_action_id_sequence]