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 -N -r1.5 -r1.6
--- openacs-4/packages/categories/tcl/tagcloud-procs.tcl	27 Oct 2014 16:41:11 -0000	1.5
+++ openacs-4/packages/categories/tcl/tagcloud-procs.tcl	7 Aug 2017 23:48:05 -0000	1.6
@@ -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 {}]
 }
 
 
@@ -137,3 +127,9 @@
 
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: