Index: openacs-4/packages/dotlrn/www/admin/user-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-new-2.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	24 May 2002 01:58:45 -0000	1.23
+++ openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	29 May 2002 04:45:23 -0000	1.24
@@ -22,7 +22,7 @@
     @version $Id$
 } -query {
     user_id
-    {referer "/dotlrn/admin/users"}
+    {referer "[dotlrn::get_admin_url]/users"}
 }
 
 
@@ -45,7 +45,7 @@
     -value $user_id
 
 element create add_user id \
-    -label "ID" \
+    -label ID \
     -datatype text \
     -widget text \
     -html {size 30} \
@@ -62,16 +62,16 @@
     -label "Access Level" \
     -datatype text \
     -widget select \
-    -options {{"Full Access" "full"} {"Limited Access" "limited"}}
+    -options {{"Full Access" full} {"Limited Access" limited}}
 
 element create add_user read_private_data_p \
     -label "Guest?" \
     -datatype text \
     -widget select \
-    -options {{"No" "t"} {"Yes" "f"}}
+    -options {{No t} {Yes f}}
 
 element create add_user referer \
-    -label "Referer" \
+    -label Referer \
     -datatype text \
     -widget hidden \
     -value $referer