Index: openacs-4/packages/categories/tcl/category-trees-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/Attic/category-trees-procs.xql,v
diff -u -r1.10 -r1.10.8.1
--- openacs-4/packages/categories/tcl/category-trees-procs.xql	7 Oct 2007 22:36:56 -0000	1.10
+++ openacs-4/packages/categories/tcl/category-trees-procs.xql	3 Jul 2016 17:02:31 -0000	1.10.8.1
@@ -148,17 +148,5 @@
       </querytext>
 </fullquery>
 
- 
-<fullquery name="category_tree::get_id.get_category_tree_id">
-      <querytext>
-      
-		select tree_id
-		from category_tree_translations
-		where name = :name
-		and locale = :locale
-	    
-      </querytext>
-</fullquery>
 
-
 </queryset>
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/categories/tcl/tagcloud-procs-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/categories/tcl/tagcloud-procs-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/categories/tcl/tagcloud-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/tagcloud-procs.tcl,v
diff -u -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/categories/tcl/tagcloud-procs.tcl	10 Sep 2015 08:30:19 -0000	1.5.2.1
+++ openacs-4/packages/categories/tcl/tagcloud-procs.tcl	3 Jul 2016 17:02:31 -0000	1.5.2.2
@@ -104,17 +104,7 @@
     # so we should check for the reader's locale and use that
     # or the default_locale, but ...
 
-    set tag_list [db_list_of_lists tagcloud_get_keys {
-        select category_id, count(com.object_id), min(trans.name)
-        from categories natural left join category_object_map com natural join category_trees
-        natural join category_translations trans
-        where tree_id = :tree_id and trans.locale = :default_locale
-	and exists (select 1 from acs_object_party_privilege_map ppm
-                    where ppm.object_id = com.object_id
-                    and ppm.privilege = 'read'
-                    and ppm.party_id = :user_id)
-        group by category_id
-    }]
+    set tag_list [db_list_of_lists tagcloud_get_keys {}]
 }