Index: openacs-4/packages/categories/www/categories-browse-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/categories-browse-oracle.xql,v
diff -u -N -r1.2 -r1.2.20.1
--- openacs-4/packages/categories/www/categories-browse-oracle.xql 7 May 2003 13:35:06 -0000 1.2
+++ openacs-4/packages/categories/www/categories-browse-oracle.xql 3 Jul 2016 17:20:49 -0000 1.2.20.1
@@ -27,4 +27,33 @@
+
+
+ select t.tree_id
+ from category_trees t, category_temp tmp
+ where (t.site_wide_p = 't'
+ or exists (select 1
+ from acs_object_party_privilege_map oppm
+ where oppm.object_id = t.tree_id
+ and oppm.party_id = :user_id
+ and oppm.privilege = 'category_tree_read'))
+ and t.tree_id = tmp.category_id
+
+
+
+
+
+ select n.object_id
+ from acs_named_objects n, ($subtree_sql) s
+ where n.object_id = s.object_id
+ and exists (select 1
+ from acs_object_party_privilege_map oppm
+ where oppm.object_id = n.object_id
+ and oppm.party_id = :user_id
+ and oppm.privilege = 'read')
+ $letter_sql
+ $package_sql
+
+
+