Index: openacs-4/packages/dotlrn/www/admin/user-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-edit.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/dotlrn/www/admin/user-edit.tcl	29 Mar 2002 19:14:47 -0000	1.14
+++ openacs-4/packages/dotlrn/www/admin/user-edit.tcl	25 Apr 2002 21:10:46 -0000	1.15
@@ -22,7 +22,7 @@
     @creation-date 2001-12-10
     @version $Id$
 } -query {
-    {referer "/dotlrn/admin/users"}
+    {return_url "/dotlrn/admin/users"}
     user_id
 }
 
@@ -68,15 +68,15 @@
     -options {{"No" "t"} {"Yes" "f"}} \
     -value $read_private_data_p
 
-element create edit_user referer \
-    -label "Referer" \
+element create edit_user return_url \
+    -label "Return URL" \
     -datatype text \
     -widget hidden \
-    -value $referer
+    -value $return_url
 
 if {[form is_valid edit_user]} {
     form get_values edit_user \
-        user_id id type access_level read_private_data_p referer
+        user_id id type access_level read_private_data_p return_url
 
     db_transaction {
         # remove the user
@@ -97,7 +97,7 @@
     }
 
     # redirect
-    ad_returnredirect $referer
+    ad_returnredirect $return_url
     ad_script_abort
 }
 
Index: openacs-4/packages/dotlrn/www/admin/user-edit.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/user-edit.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/user-edit.xql	29 Mar 2002 19:38:26 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/user-edit.xql	25 Apr 2002 21:10:46 -0000	1.5
@@ -2,14 +2,14 @@
 
 <queryset>
 
-  <fullquery name="update_user">
-    <querytext>
-      update dotlrn_user_profile_rels
-      set id = :id
-      where rel_id = (select rel_id
-                      from dotlrn_users
-                      where user_id = :user_id)
-    </querytext>
-  </fullquery>
+    <fullquery name="update_user">
+        <querytext>
+            update dotlrn_user_profile_rels
+            set id = :id
+            where rel_id = (select rel_id
+                            from dotlrn_users
+                            where user_id = :user_id)
+        </querytext>
+    </fullquery>
 
 </queryset>
Index: openacs-4/packages/dotlrn/www/admin/user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/user.tcl	29 Mar 2002 19:14:47 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/user.tcl	25 Apr 2002 21:10:46 -0000	1.5
@@ -42,7 +42,7 @@
 }
 
 set return_url "[ad_parameter -package_id [ad_acs_kernel_id] CommunityMemberAdminURL]?user_id=$user_id"
-set export_edit_vars [export_url_vars user_id return_url]
+set export_edit_vars [export_vars {user_id return_url}]
 
 if {![db_0or1row select_user_info {}]} {
     ad_return_complaint 1 "<li>We couldn't find user #$user_id; perhaps this person was deleted?</li>"