Index: openacs-4/packages/ecommerce/www/admin/customer-service/email-send-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/email-send-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/www/admin/customer-service/email-send-2.tcl	20 Apr 2001 20:51:14 -0000	1.1
+++ openacs-4/packages/ecommerce/www/admin/customer-service/email-send-2.tcl	29 Jan 2002 00:11:46 -0000	1.2
@@ -65,9 +65,9 @@
 
 db_transaction {
 
-set interaction_id [db_string get_new_csa_seq_id "select ec_interaction_id_sequence.nextval from dual"]
+    set interaction_id [db_nextval ec_interaction_id_sequence]
 
-db_dml insert_new_cs_interaction "insert into ec_customer_serv_interactions
+    db_dml insert_new_cs_interaction "insert into ec_customer_serv_interactions
 (interaction_id, customer_service_rep, user_identification_id, interaction_date, interaction_originator, interaction_type)
 values
 (:interaction_id, :customer_service_rep, :user_identification_id, sysdate, 'rep', 'email')