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.13 -r1.14
--- openacs-4/packages/dotlrn/www/admin/users.tcl	29 Mar 2002 19:14:47 -0000	1.13
+++ openacs-4/packages/dotlrn/www/admin/users.tcl	5 Jun 2002 22:39:42 -0000	1.14
@@ -33,9 +33,8 @@
 set dotlrn_roles [db_list_of_lists select_dotlrn_roles {
     select dotlrn_user_types.type,
            dotlrn_user_types.pretty_name || ' (' || (select count(*)
-                                                     from party_member_map
-                                                     where party_member_map.party_id = dotlrn_user_types.group_id
-                                                     and party_member_map.member_id <> dotlrn_user_types.group_id) || ')',
+                                                     from dotlrn_users
+                                                     where dotlrn_users.type = dotlrn_user_types.type) || ')',
            ''
     from dotlrn_user_types
     order by dotlrn_user_types.pretty_name