Index: openacs-4/packages/ecommerce/tcl/ecommerce-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/tcl/ecommerce-procs-oracle.xql	10 Jul 2001 20:38:43 -0000	1.1
+++ openacs-4/packages/ecommerce/tcl/ecommerce-procs-oracle.xql	15 Jul 2001 05:47:18 -0000	1.2
@@ -87,7 +87,7 @@
 </fullquery>
 
  
-<fullquery name="ec_create_new_session_if_necessary.insert_user_session">      
+<fullquery name="ec_create_new_session_if_necessary.insert_user_session_sql">      
       <querytext>
       
                     insert into ec_user_sessions
Index: openacs-4/packages/ecommerce/tcl/ecommerce-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ecommerce/tcl/ecommerce-procs-postgresql.xql	13 Jul 2001 20:47:36 -0000	1.3
+++ openacs-4/packages/ecommerce/tcl/ecommerce-procs-postgresql.xql	15 Jul 2001 05:47:18 -0000	1.4
@@ -69,7 +69,7 @@
 </fullquery>
 
  
-<fullquery name="ec_create_new_session_if_necessary.insert_user_session">      
+<fullquery name="ec_create_new_session_if_necessary.insert_user_session_sql">      
       <querytext>
       
                     insert into ec_user_sessions
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.1 -r1.2
--- openacs-4/packages/ecommerce/tcl/ecommerce-procs.tcl	20 Apr 2001 20:51:13 -0000	1.1
+++ openacs-4/packages/ecommerce/tcl/ecommerce-procs.tcl	15 Jul 2001 05:47:18 -0000	1.2
@@ -1420,6 +1420,9 @@
 } { Create a new session if needed } {
     uplevel "set _ec_more_url_vars_exported \"$more_url_vars_exported\""
     uplevel "set _ec_cookie_requirement     \"$cookie_requirement\""
+    # DanW's suggestion 
+    upvar __sql sql
+    set sql [db_map insert_user_session_sql]
     uplevel {
 
         if { $user_session_id == 0 } {
@@ -1438,12 +1441,8 @@
                 # 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 , sysdate, :http_user_agent)
-                }
+		# DanW's suggestion ------------v
+                db_dml insert_user_session $__sql
                 
                 set cookie_name  user_session_id
                 set cookie_value $user_session_id