Index: openacs-4/packages/categories/lib/list-categories.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/list-categories.tcl,v
diff -u -N -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/categories/lib/list-categories.tcl	10 Sep 2015 08:30:17 -0000	1.4.2.1
+++ openacs-4/packages/categories/lib/list-categories.tcl	3 Jul 2016 17:26:19 -0000	1.4.2.2
@@ -2,7 +2,7 @@
     set cat ""
 }
 
-if {(![info exists orderby] || $orderby eq "")} {
+if { ![info exists orderby] || $orderby eq "" } {
     set orderby "object_title"
 }
 set user_id [ad_conn user_id]
@@ -12,18 +12,7 @@
 set node_id [ad_conn node_id]
 set packages [subsite::util::packages -node_id $node_id]
 
-db_foreach category_count "
-    SELECT c.category_id as catid, count(*) as count
-    FROM category_object_map c, acs_objects o
-    where c.object_id = o.object_id
-    and o.package_id in ([join $packages ,])
-    and exists (select 1 
-                  from acs_object_party_privilege_map pm
-                 where pm.object_id = c.object_id
-                   and pm.party_id = :user_id
-                   and pm.privilege = 'read')
-    group by c.category_id
-" { 
+db_foreach category_count {} {
     lappend counts $catid $count
 }