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.27 -r1.28
--- openacs-4/packages/categories/tcl/categories-procs.tcl	21 Dec 2008 18:05:35 -0000	1.27
+++ openacs-4/packages/categories/tcl/categories-procs.tcl	13 Jan 2010 17:07:00 -0000	1.28
@@ -363,13 +363,7 @@
     @return list of category ids of the children of the supplied category_id
     @author Peter Kreuzinger (peter.kreuzinger@wu-wien.ac.at)
 } {
-    set result [list]
-    set child_categories [db_list get_children_ids ""]
-    foreach category_id $child_categories {
-        lappend result $category_id
-    }
-    if {$result eq ""} {set result 0} 
-    return $result
+    return [db_list get_children_ids ""]
 }                
 
 ad_proc -public category::count_children {
Index: openacs-4/packages/categories/tcl/categories-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/Attic/categories-procs.xql,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/categories/tcl/categories-procs.xql	10 Sep 2008 16:02:20 -0000	1.10
+++ openacs-4/packages/categories/tcl/categories-procs.xql	13 Jan 2010 17:07:00 -0000	1.11
@@ -15,6 +15,8 @@
 		select category_id
 		from categories
 		where parent_id = :category_id
+        and deprecated_p = 'f'
+        order by tree_id, left_ind
 
       </querytext>
 </fullquery>