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 -N -r1.50 -r1.51
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	23 Oct 2002 12:38:38 -0000	1.50
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	12 Nov 2002 08:44:05 -0000	1.51
@@ -71,7 +71,14 @@
     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 {}]
+        set unlocalized_list [db_list_of_lists select_user_types_as_options {}]
+
+        set localized_list [list]
+        foreach type_pair $unlocalized_list {
+            lappend localized_list [list [lang::util::localize [lindex $type_pair 0]] [lindex $type_pair 1]]
+        }
+
+        return $localized_list
     }
 
     ad_proc -public user_p {