Index: openacs-4/packages/categories/tcl/tagcloud-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/tagcloud-procs-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/categories/tcl/tagcloud-procs-postgresql.xql	3 Jul 2016 17:02:31 -0000	1.1.2.1
@@ -0,0 +1,18 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="category::tagcloud::get_tags_no_mem.tagcloud_get_keys">      
+  <querytext>
+        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 acs_permission__permission_p(com.object_id, :user_id, 'read')
+        group by category_id
+  </querytext>
+</fullquery>
+   
+ 
+</queryset>