Index: openacs-4/packages/categories/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/index.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/categories/www/index.tcl	29 Jun 2018 17:27:18 -0000	1.11
+++ openacs-4/packages/categories/www/index.tcl	3 Sep 2024 15:37:36 -0000	1.12
@@ -23,7 +23,11 @@
 
 template::multirow create trees tree_ids tree_name site_wide_p short_name
 
-db_foreach get_trees "" {
+db_foreach get_trees {
+    select tree_id, site_wide_p,
+           acs_permission.permission_p(tree_id, :user_id, 'category_tree_read') as has_read_p
+    from category_trees
+} {
     if { $has_read_p == "t" || $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