Index: openacs-4/packages/dotlrn/www/admin/users-chunk-medium-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-chunk-medium-oracle.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/admin/users-chunk-medium-oracle.xql 18 Feb 2002 21:02:51 -0000 1.5
+++ openacs-4/packages/dotlrn/www/admin/users-chunk-medium-oracle.xql 6 Mar 2002 00:08:02 -0000 1.6
@@ -28,6 +28,20 @@
+
+
+ select count(*)
+ from dual
+ where exists (select 1
+ from cc_users
+ where not exists (select 1
+ from dotlrn_users
+ where dotlrn_users.user_id = cc_users.user_id)
+ and cc_users.member_state = 'banned'
+ and upper(substr(cc_users.last_name, 1, 1)) = upper(:dimension))
+
+
+
select dotlrn_users.user_id,
@@ -66,4 +80,23 @@
+
+
+ select cc_users.user_id,
+ cc_users.first_names,
+ cc_users.last_name,
+ cc_users.email,
+ 'limited' as access_level,
+ 'f' as read_private_data_p,
+ acs_permission.permission_p(:root_object_id, cc_users.user_id, 'admin') as site_wide_admin_p
+ from cc_users
+ where not exists (select 1
+ from dotlrn_users
+ where dotlrn_users.user_id = cc_users.person_id)
+ and cc_users.member_state = 'banned'
+ and upper(substr(cc_users.last_name, 1, 1)) = upper(:section)
+ order by cc_users.last_name
+
+
+