Index: openacs-4/packages/ecommerce/tcl/ecommerce-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/ecommerce/tcl/ecommerce-procs.tcl	19 Sep 2002 03:02:20 -0000	1.17
+++ openacs-4/packages/ecommerce/tcl/ecommerce-procs.tcl	23 Sep 2002 03:32:43 -0000	1.18
@@ -1410,6 +1410,9 @@
     Create a new session if needed 
 } {
     uplevel "set _ec_more_url_vars_exported \"$more_url_vars_exported\""
+    upvar __sql sql
+    set sql [db_map insert_user_session_sql]
+
     uplevel "set _ec_cookie_requirement     \"$cookie_requirement\""
 
     # DanW's suggestion 
@@ -1433,11 +1436,7 @@
                 # we should be able to get rid of this in ACS 4, but
                 # we need to examine longevity of ad_sessions
 
-                db_dml insert_user_session "
-		    insert into ec_user_sessions
-		    (user_session_id, ip_address, start_time, http_user_agent)
-		    values
-		    (:user_session_id, :ip_address, current_timestamp, :http_user_agent)"
+		db_dml insert_user_session $__sql
                 
                 set cookie_name  user_session_id
                 set cookie_value $user_session_id