Index: openacs-4/packages/ecommerce/www/admin/customer-service/email-send.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/email-send.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ecommerce/www/admin/customer-service/email-send.tcl	26 Aug 2001 23:38:30 -0000	1.2
+++ openacs-4/packages/ecommerce/www/admin/customer-service/email-send.tcl	29 Jan 2002 00:11:46 -0000	1.3
@@ -64,7 +64,7 @@
 
 
 # generate action_id here for double-click protection
-set action_id [db_string get_new_action_id "select ec_action_id_sequence.nextval from dual"]
+set action_id [db_nextval ec_action_id_sequence]
 
 append doc_body "If you are not [db_string get_full_name "select first_names || ' ' || last_name from cc_users where user_id=:customer_service_rep"], please <a href=\"/register?[export_url_vars return_url]\">log in</a>