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 -N -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
Index: openacs-4/packages/xowiki/www/portlets/categories.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/portlets/Attic/categories.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/xowiki/www/portlets/categories.tcl	27 Feb 2006 12:37:30 -0000	1.8
+++ openacs-4/packages/xowiki/www/portlets/categories.tcl	3 Mar 2006 18:58:16 -0000	1.9
@@ -34,7 +34,7 @@
     set order($category_id) [incr pos]
     lappend categories $category_id
   }
-  set cattree [::xowiki::CatTree new -volatile]
+  set cattree [::xowiki::CatTree new -volatile -order_items_by page_title]
   db_foreach get_pages \
       "select i.item_id, r.title, i.content_type, p.page_title, category_id \
 	 from category_object_map c, cr_items i, cr_revisions r, xowiki_page p \