Index: openacs-4/packages/xowiki/tcl/category-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/category-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xowiki/tcl/category-procs.tcl	3 Mar 2006 14:56:25 -0000	1.2
+++ openacs-4/packages/xowiki/tcl/category-procs.tcl	3 Mar 2006 18:58:16 -0000	1.3
@@ -1,5 +1,5 @@
 namespace eval ::xowiki {
-  Class CatTree -superclass ::xo::OrderedComposite 
+  Class CatTree -superclass ::xo::OrderedComposite -parameter order_items_by
 
   CatTree instproc add_to_category {
     -category_id 
@@ -10,7 +10,9 @@
     set catobj [self]::$category_id
     if {![my isobject $catobj]} {
       ::xo::OrderedComposite create $catobj
-      $catobj orderby page_title
+      if {[my exists order_items_by]} {
+	$catobj orderby [my set order_items_by]
+      }
       $catobj set pos $pos
       $catobj set open_requests 0
       my add $catobj