Index: openacs-4/packages/categories/tcl/category-trees-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs-oracle.xql,v
diff -u -r1.6 -r1.6.8.1
--- openacs-4/packages/categories/tcl/category-trees-procs-oracle.xql	19 Jan 2009 20:42:10 -0000	1.6
+++ openacs-4/packages/categories/tcl/category-trees-procs-oracle.xql	15 Mar 2019 10:39:02 -0000	1.6.8.1
@@ -130,22 +130,4 @@
       </querytext>
 </fullquery>
 
- 
-<fullquery name="category_tree::usage.category_tree_usage">      
-      <querytext>
-      
-	    select t.pretty_plural, n.object_id, n.title, p.package_id,
-	           p.instance_name,
-	           acs_permission.permission_p(n.object_id, :user_id, 'read') as read_p
-	    from category_tree_map m, acs_objects n,
-	         apm_packages p, apm_package_types t
-	    where m.tree_id = :tree_id
-	    and n.object_id = m.object_id
-	    and p.package_id = n.package_id
-	    and t.package_key = p.package_key
-	
-      </querytext>
-</fullquery>
-
- 
 </queryset>
Index: openacs-4/packages/categories/tcl/category-trees-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs-postgresql.xql,v
diff -u -r1.7 -r1.7.10.1
--- openacs-4/packages/categories/tcl/category-trees-procs-postgresql.xql	28 Aug 2007 16:30:03 -0000	1.7
+++ openacs-4/packages/categories/tcl/category-trees-procs-postgresql.xql	15 Mar 2019 10:39:02 -0000	1.7.10.1
@@ -99,20 +99,4 @@
       </querytext>
 </fullquery>
 
- 
-<fullquery name="category_tree::usage.category_tree_usage">      
-      <querytext>
-	    select t.pretty_plural, n.object_id, n.title, p.package_id,
-	           p.instance_name,
-	           acs_permission__permission_p(n.object_id, :user_id, 'read') as read_p
-	    from category_tree_map m, acs_objects n,
-	         apm_packages p, apm_package_types t
-	    where m.tree_id = :tree_id
-	    and n.object_id = m.object_id
-	    and p.package_id = n.package_id
-	    and t.package_key = p.package_key
-      </querytext>
-</fullquery>
-
- 
 </queryset>
Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v
diff -u -r1.31.2.2 -r1.31.2.3
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	1 Mar 2019 10:27:05 -0000	1.31.2.2
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	15 Mar 2019 10:39:02 -0000	1.31.2.3
@@ -352,7 +352,17 @@
     } {
         set user_id [ad_conn user_id]
 
-        return [db_list_of_lists category_tree_usage ""]
+        return [db_list_of_lists category_tree_usage {
+	    select t.pretty_plural, n.object_id, n.title, p.package_id,
+	           p.instance_name,
+	           acs_permission.permission_p(n.object_id, :user_id, 'read') as read_p
+	    from category_tree_map m, acs_objects n,
+	         apm_packages p, apm_package_types t
+	    where m.tree_id = :tree_id
+	    and n.object_id = m.object_id
+	    and p.package_id = n.package_id
+	    and t.package_key = p.package_key
+        }]
     }
 
     ad_proc -public reset_cache { } {