Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-admins-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-admins-init.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-admins-init.sql	8 Feb 2002 20:50:56 -0000	1.1
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-admins-init.sql	18 Feb 2002 17:48:12 -0000	1.2
@@ -43,7 +43,7 @@
     into dotlrn_user_types
     (type, pretty_name, group_id)
     values
-    ('admin', 'Administrator', group_id);
+    ('admin', 'Faculty', group_id);
 
     foo := rel_segment.new(
         segment_name => 'dotLRN Profiled Admins',
Index: openacs-4/packages/dotlrn/tcl/club-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/club-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/club-procs.tcl	14 Feb 2002 19:43:11 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/club-procs.tcl	18 Feb 2002 17:48:12 -0000	1.6
@@ -73,8 +73,8 @@
         returns the available roles
     } {
         return {
-            {admin_rel Administrator}
-            {member_rel Member}
+            {admin_rel "Administrator"}
+            {member_rel "Member"}
         }
     }
 
Index: openacs-4/packages/dotlrn/www/admin/users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/www/admin/users.tcl	5 Feb 2002 18:16:10 -0000	1.9
+++ openacs-4/packages/dotlrn/www/admin/users.tcl	18 Feb 2002 17:48:12 -0000	1.10
@@ -14,17 +14,18 @@
 
 set context_bar {Users}
 
-set control_bar [ad_dimensional {
-    {type {User Type:} admin
-        {
-            {admin Administrators {}}
-            {professor Professors {}}
-            {student Students {}}
-            {pending Pending {}}
-        }
-    }
+set dotlrn_roles [db_list_of_lists select_dotlrn_roles {
+    select type,
+           pretty_name,
+           ''
+    from dotlrn_user_types
+    order by pretty_name
 }]
 
+lappend dotlrn_roles {pending Pending {}}
+
+set control_bar [ad_dimensional [list [list type {User Type:} admin $dotlrn_roles]]]
+
 if {[string equal $type "pending"] == 1} {
     set n_users [db_string select_non_dotlrn_users_count {}]
 } else {