Index: openacs-4/packages/categories/tcl/categories-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs.tcl,v
diff -u -N -r1.29 -r1.30
--- openacs-4/packages/categories/tcl/categories-procs.tcl	27 Jun 2015 19:24:24 -0000	1.29
+++ openacs-4/packages/categories/tcl/categories-procs.tcl	7 Aug 2017 23:48:05 -0000	1.30
@@ -371,7 +371,11 @@
 } {
     counts all direct sub categories
 } {
-    return [db_string select {}]
+    return [db_string count_children {
+        select count(*)
+        from categories
+        where parent_id=:category_id
+    }]
 }
                                              
 ad_proc -public category::get_parent {
@@ -547,3 +551,9 @@
     acs_sc::impl::delete -contract_name AcsObject -impl_name category_idhandler
     acs_sc::impl::delete -contract_name AcsObject -impl_name category_tree_idhandler
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: