Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.xql	8 Feb 2002 20:50:57 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.xql	11 Feb 2002 20:17:52 -0000	1.6
@@ -4,6 +4,14 @@
 
   <fullquery name="dotlrn::get_user_types.select_user_types">
     <querytext>
+      select type
+      from dotlrn_user_types
+      order by pretty_name
+    </querytext>
+  </fullquery>
+
+  <fullquery name="dotlrn::get_user_types_as_options.select_user_types_as_options">
+    <querytext>
       select pretty_name,
              type
       from dotlrn_user_types