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.5 -r1.6
--- openacs-4/packages/dotlrn/www/admin/user-edit.tcl	23 Jan 2002 00:15:44 -0000	1.5
+++ openacs-4/packages/dotlrn/www/admin/user-edit.tcl	1 Feb 2002 21:46:22 -0000	1.6
@@ -24,20 +24,24 @@
 element create edit_user read_private_data_p \
         -label "Can Access Private Information?" -datatype text -widget select -options {{yes t} {no f}}
 
+element create edit_user referer \
+        -label "Referer" -datatype text -widget hidden -value $referer
+
 # Create a form of hidden vars
 form create verif_edit_user
 
 element create verif_edit_user user_id -label "User ID" -datatype integer -widget hidden
 element create verif_edit_user type_id -label "Type ID" -datatype integer -widget hidden
 element create verif_edit_user rel_type -label "Relationship Type" -datatype text -widget hidden
 element create verif_edit_user read_private_data_p -label "Can Read Private Data?" -datatype text -widget hidden
+element create verif_edit_user referer -label "Referer" -datatype text -widget hidden -value $referer
 
 set context_bar {{users Users} {Edit}}
 set dotlrn_package_id [dotlrn::get_package_id]
 
 # We verified everything, now we make the change
 if {[form is_valid verif_edit_user]} {
-    template::form get_values verif_edit_user user_id type_id rel_type read_private_data_p
+    template::form get_values verif_edit_user user_id type_id rel_type read_private_data_p referer
 
     set rel_id [db_string select_rel_id {
         select rel_id
@@ -62,7 +66,7 @@
 
 
 if {[form is_valid edit_user]} {
-    template::form get_values edit_user user_id type_id rel_type read_private_data_p
+    template::form get_values edit_user user_id type_id rel_type read_private_data_p referer
 
     # Do something
     set new_rel_type $rel_type