Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	8 Feb 2002 20:50:57 -0000	1.23
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	11 Feb 2002 20:17:52 -0000	1.24
@@ -28,11 +28,17 @@
     }
 
     ad_proc -public get_user_types {} {
-        return the list of possible user types, first type then group_id of the type
+        return the list of possible user types
     } {
         return [db_list_of_lists select_user_types {}]
     }
 
+    ad_proc -public get_user_types_as_options {} {
+        return the list of possible user types
+    } {
+        return [db_list_of_lists select_user_types_as_options {}]
+    }
+
     ad_proc -public user_p {
         {-user_id:required}
     } {