Index: openacs-4/packages/dotlrn-catalog/www/admin/revoke-users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/admin/revoke-users.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn-catalog/www/admin/revoke-users.tcl	16 Feb 2005 00:22:12 -0000	1.2
+++ openacs-4/packages/dotlrn-catalog/www/admin/revoke-users.tcl	2 Nov 2005 20:30:22 -0000	1.3
@@ -6,17 +6,18 @@
     @creation date   29-01-2005
 } {
     p_user_id:multiple
-    { user_name "" }
-    { user_email "" }
+    {keyword ""}
 }
 
-# dotlrn_catalog package_id
-set cc_package_id [apm_package_id_from_key "dotlrn-catalog"]
-
 # Grants Permission for all the users in p_user_id
 foreach user $p_user_id {
-    permission::revoke -party_id $user -object_id $cc_package_id  -privilege "create"
+    set courses [db_list_of_lists user_courses {}]
+    
+    foreach course $courses {
+	permission::revoke -party_id $user -object_id $course  -privilege "admin"
+    }
+    permission::revoke -party_id $user -object_id [ad_conn package_id]  -privilege "create"
 }
 
 
-ad_returnredirect "grant-list?user_name=$user_name&user_email=$user_email"
+ad_returnredirect "grant-list?keyword=$keyword"