Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	22 Jan 2002 00:13:09 -0000	1.11
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	11 Feb 2002 19:18:43 -0000	1.12
@@ -21,7 +21,7 @@
     -label "Name" \
     -datatype text \
     -widget text \
-    -html {size 50} \
+    -html {size 60} \
     -optional
 
 element create add_class_instance description \
Index: openacs-4/packages/dotlrn/www/admin/club-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/club-new.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/admin/club-new.tcl	22 Jan 2002 00:13:09 -0000	1.6
+++ openacs-4/packages/dotlrn/www/admin/club-new.tcl	11 Feb 2002 19:18:43 -0000	1.7
@@ -20,13 +20,13 @@
     -label "[ad_parameter clubs_pretty_name] Key (a short name, no spaces)" \
     -datatype text \
     -widget text \
-    -html {size 50}
+    -html {size 60}
 
 element create add_club pretty_name \
     -label "Name" \
     -datatype text \
     -widget text \
-    -html {size 50}
+    -html {size 60}
 
 element create add_club description \
     -label "Charter" \
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.8 -r1.9
--- openacs-4/packages/dotlrn/www/admin/user-edit.tcl	8 Feb 2002 20:50:57 -0000	1.8
+++ openacs-4/packages/dotlrn/www/admin/user-edit.tcl	11 Feb 2002 19:18:43 -0000	1.9
@@ -27,14 +27,15 @@
     -label "ID" \
     -datatype text \
     -widget text \
+    -html {size 60} \
     -value $id \
     -optional
 
 element create edit_user type \
     -label "User Type" \
     -datatype text \
     -widget select \
-    -options [dotlrn::get_user_types] \
+    -options [dotlrn::get_user_types_as_options] \
     -value $type
 
 element create edit_user access_level \
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.15 -r1.16
--- openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	11 Feb 2002 05:16:59 -0000	1.15
+++ openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	11 Feb 2002 19:18:43 -0000	1.16
@@ -12,39 +12,41 @@
 form create add_user
 
 element create add_user user_id \
-        -label "User ID" \
-        -datatype integer \
-        -widget hidden \
-        -value $user_id
+    -label "User ID" \
+    -datatype integer \
+    -widget hidden \
+    -value $user_id
 
 element create add_user id \
-        -label "ID" \
-        -datatype text \
-        -widget text \
+    -label "ID" \
+    -datatype text \
+    -widget text \
+    -html {size 60} \
+    -optional
 
 element create add_user type \
-        -label "User Type" \
-        -datatype text \
-        -widget select \
-        -options [dotlrn::get_user_types]
+    -label "User Type" \
+    -datatype text \
+    -widget select \
+    -options [dotlrn::get_user_types_as_options]
 
 element create add_user access_level \
-        -label "Access Level" \
-        -datatype text \
-        -widget select \
-        -options {{"Full Access" "full"} {"Limited Access" "limited"}}
+    -label "Access Level" \
+    -datatype text \
+    -widget select \
+    -options {{"Full Access" "full"} {"Limited Access" "limited"}}
 
 element create add_user read_private_data_p \
-        -label "Can Access Private Information?" \
-        -datatype text \
-        -widget select \
-        -options {{"Yes" "t"} {"No" "f"}}
+    -label "Can Access Private Information?" \
+    -datatype text \
+    -widget select \
+    -options {{"Yes" "t"} {"No" "f"}}
 
 element create add_user referer \
-        -label "Referer" \
-        -datatype text \
-        -widget hidden \
-        -value $referer
+    -label "Referer" \
+    -datatype text \
+    -widget hidden \
+    -value $referer
 
 if {[form is_valid add_user]} {
     form get_values add_user \