Index: openacs-4/packages/dotlrn/www/admin/users.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users.xql,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/dotlrn/www/admin/users.xql 9 Jul 2002 12:39:33 -0000 1.8
+++ openacs-4/packages/dotlrn/www/admin/users.xql 29 May 2018 09:05:07 -0000 1.9
@@ -10,4 +10,34 @@
+
+
+ select count(*)
+ from (select acs_rels.object_id_two
+ from acs_rels, membership_rels
+ where acs_rels.object_id_one = :registered_users_id
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state
+ not in ('banned','deleted','rejected')
+ and acs_rels.object_id_two not in (
+ select acs_rels.object_id_two
+ from acs_rels,
+ dotlrn_user_types
+ where acs_rels.object_id_one = dotlrn_user_types.group_id)) as foo
+
+
+
+
+
+ select count(*)
+ from persons,
+ acs_rels,
+ membership_rels
+ where acs_rels.object_id_one = :registered_users_id
+ and acs_rels.object_id_two = persons.person_id
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'banned'
+
+
+