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	7 Aug 2017 23:48:05 -0000	1.2
@@ -0,0 +1,21 @@
+<?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>