Index: openacs-4/packages/acs-admin/lib/become.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/become.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/lib/become.tcl	13 Oct 2004 18:33:57 -0000	1.1.2.1
@@ -0,0 +1,26 @@
+ad_page_contract {
+
+} {
+
+}
+
+set return_url [ad_pvt_home]
+
+# Get the password and user ID
+
+if ![db_0or1row password "select password from users where user_id=$user_id"] {
+    ad_return_error "Couldn't find user $user_id" "Couldn't find user $user_id."
+    return
+}
+
+# just set a session cookie
+set expire_state "s"
+
+# note here that we stuff the cookie with the password from Oracle,
+# NOT what the user just typed (this is because we want log in to be
+# case-sensitive but subsequent comparisons are made on ns_crypt'ed 
+# values, where string toupper doesn't make sense)
+
+ad_user_login $user_id
+ad_returnredirect $return_url
+
Index: openacs-4/packages/acs-admin/lib/become.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/become.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/lib/become.xql	13 Oct 2004 18:33:57 -0000	1.1.2.1
@@ -0,0 +1,12 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="password">      
+      <querytext>
+      select password from users where user_id=$user_id
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
+
Index: openacs-4/packages/acs-admin/www/users/become.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/become.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/www/users/become.adp	13 Oct 2004 18:33:59 -0000	1.1.2.1
@@ -0,0 +1,2 @@
+
+<include src="/packages/acs-admin/lib/become" user_id=@user_id@>
Index: openacs-4/packages/acs-admin/www/users/become.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/become.tcl,v
diff -u -N -r1.2 -r1.2.6.1
--- openacs-4/packages/acs-admin/www/users/become.tcl	9 Mar 2002 02:00:02 -0000	1.2
+++ openacs-4/packages/acs-admin/www/users/become.tcl	13 Oct 2004 18:34:00 -0000	1.2.6.1
@@ -8,24 +8,3 @@
     user_id
 }
 
-set return_url [ad_pvt_home]
-
-# Get the password and user ID
-
-if ![db_0or1row password "select password from users where user_id=$user_id"] {
-    ad_return_error "Couldn't find user $user_id" "Couldn't find user $user_id."
-    return
-}
-
-# just set a session cookie
-set expire_state "s"
-
-# note here that we stuff the cookie with the password from Oracle,
-# NOT what the user just typed (this is because we want log in to be
-# case-sensitive but subsequent comparisons are made on ns_crypt'ed 
-# values, where string toupper doesn't make sense)
-
-ad_user_login $user_id
-ad_returnredirect $return_url
-#ad_returnredirect "/cookie-chain.tcl?cookie_name=[ns_urlencode ad_auth]&cookie_value=[ad_encode_id $user_id $password]&expire_state=$expire_state&final_page=[ns_urlencode $return_url]"
-
Index: openacs-4/packages/acs-admin/www/users/become.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/Attic/become.xql,v
diff -u -N
--- openacs-4/packages/acs-admin/www/users/become.xql	29 Apr 2001 00:47:48 -0000	1.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,11 +0,0 @@
-<?xml version="1.0"?>
-<queryset>
-
-<fullquery name="password">      
-      <querytext>
-      select password from users where user_id=$user_id
-      </querytext>
-</fullquery>
-
- 
-</queryset>