Index: openacs-4/packages/categories/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/index.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/categories/www/index.tcl	23 Apr 2003 12:29:27 -0000	1.1
+++ openacs-4/packages/categories/www/index.tcl	27 Apr 2003 11:36:50 -0000	1.2
@@ -22,11 +22,7 @@
 
 template::multirow create trees tree_id tree_name site_wide_p short_name
 
-db_foreach get_trees {
-    select tree_id, site_wide_p,
-           acs_permission.permission_p(tree_id, :user_id, 'category_tree_read') has_read_p
-    from category_trees t
-} {
+db_foreach get_trees "" {
     if { [string equal $has_read_p "t"] || [string equal $site_wide_p "t"] } {
 	set tree_name [category_tree::get_name $tree_id $locale]
 	template::multirow append trees $tree_id $tree_name $site_wide_p