Index: openacs-4/packages/dotlrn-catalog/www/admin/revoke-users.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/admin/revoke-users.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-catalog/www/admin/revoke-users.xql	5 Jul 2005 15:33:45 -0000	1.1.2.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="user_courses">      
+      <querytext>
+	select cr.item_id as course_item_id 
+        from 
+        cr_revisions cr, dotlrn_catalog dc, acs_permissions ap 
+	where
+	cr.revision_id = dc.course_id and ap.object_id = cr.item_id 
+	and ap.privilege = 'admin' and ap.grantee_id = :user
+      </querytext>
+</fullquery>
+
+
+</queryset>
Index: openacs-4/packages/dotlrn-catalog/www/dt-admin/associate-course.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/dt-admin/associate-course.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-catalog/www/dt-admin/associate-course.xql	5 Jul 2005 15:33:45 -0000	1.1.2.1
@@ -0,0 +1,15 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="community_admin_users">      
+      <querytext>
+	select
+	   user_id
+	from
+	dotlrn_member_rels_full
+	where 
+  	   community_id = :object
+	   and role = 'instructor' or role = 'admin'
+      </querytext>
+</fullquery>
+</queryset>
\ No newline at end of file