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.6 -r1.7 --- openacs-4/packages/dotlrn/www/admin/user-new-2.tcl 11 Dec 2001 00:27:59 -0000 1.6 +++ openacs-4/packages/dotlrn/www/admin/user-new-2.tcl 17 Dec 2001 23:02:56 -0000 1.7 @@ -17,10 +17,10 @@ -label "User Type" -datatype text -widget select -options [dotlrn::get_user_types] element create add_user rel_type \ - -label "Access" -datatype text -widget select -options {{{Limited Access} dotlrn_user_rel} {{Full Access} dotlrn_full_user_rel}} + -label "Access" -datatype text -widget select -options {{{limited access} dotlrn_user_rel} {{full access} dotlrn_full_user_rel}} 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}} if {[form is_valid add_user]} { template::form get_values add_user user_id type_id rel_type read_private_data_p