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.1 -r1.2
--- openacs-4/packages/dotlrn-catalog/www/admin/revoke-users.tcl	14 Feb 2005 22:46:11 -0000	1.1
+++ openacs-4/packages/dotlrn-catalog/www/admin/revoke-users.tcl	16 Feb 2005 00:22:12 -0000	1.2
@@ -13,20 +13,9 @@
 # dotlrn_catalog package_id
 set cc_package_id [apm_package_id_from_key "dotlrn-catalog"]
 
-# The tree id from categories
-set tree_list [category_tree::get_mapped_trees $cc_package_id]
-if { [string equal [lindex [lindex $tree_list 0] 1] "dotlrn-course-catalog"] } {
-    set tree_id [lindex [lindex $tree_list 0] 0]
-} else {
-    set tree_id ""
-}
-
-
 # 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"
-    permission::revoke -party_id $user -object_id $tree_id -privilege "category_tree_read"
-    permission::revoke -party_id $user -object_id $tree_id -privilege "category_tree_write"
 }