Index: openacs-4/packages/xowiki/www/portlets/categories-recent.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/portlets/Attic/categories-recent.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xowiki/www/portlets/categories-recent.tcl	14 Feb 2006 12:07:44 -0000	1.2
+++ openacs-4/packages/xowiki/www/portlets/categories-recent.tcl	25 Feb 2006 13:36:24 -0000	1.3
@@ -11,28 +11,8 @@
 # get the folder id from the including page
 set folder_id    [$__including_page set parent_id]
 set package_id   [$folder_id set package_id]
+set cattree      [::xowiki::CatTree new -volatile]
 
-Class CatTree -volatile -superclass ::xo::OrderedComposite 
-CatTree instproc add_to_category {-category_id -itemobj} {
-  set catobj [self]::$category_id
-  if {![my isobject $catobj]} {::xo::OrderedComposite create $catobj; my add $catobj}
-  $catobj add $itemobj
-}
-CatTree instproc render {} {
-  set content ""
-  foreach c [my children] {
-    set cat_content ""
-    foreach i [$c children] {
-      $i instvar title page_title publish_date
-      append cat_content "$publish_date <a href='[::xowiki::Page pretty_link $title]'>$page_title</a><br>\n"
-    }
-    append content "<h3>[category::get_name [namespace tail $c]]</h3><blockquote>" \
-	$cat_content "</blockquote>\n"
-  }
-  return $content
-}
-set cattree [CatTree new -volatile]
-
 ## provide also a three level display with tree names?
 
 foreach tree [category_tree::get_mapped_trees $package_id] {
@@ -57,7 +37,8 @@
 	" {
 	  if {$page_title eq ""} {set page_title $title}
 	  set itemobj [Object new]
-	  foreach var {title page_title publish_date} {$itemobj set $var [set $var]}
+	  set prefix  $publish_date
+	  foreach var {title page_title prefix} {$itemobj set $var [set $var]}
 	  $cattree add_to_category -category_id $category_id -itemobj $itemobj
 	}