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.7 -r1.8 --- openacs-4/packages/xowiki/tcl/category-procs.tcl 3 May 2006 12:03:23 -0000 1.7 +++ openacs-4/packages/xowiki/tcl/category-procs.tcl 7 Jun 2006 17:08:24 -0000 1.8 @@ -57,6 +57,14 @@ if {[my exists __parent]} {[my set __parent] open_tree} } + Category instproc some_child_has_items {} { + foreach i [my children] { + if {[my isobject ${i}::items]} {return 1} + if {[$i some_child_has_items]} {return 1} + } + return 0 + } + Category instproc render {} { set content "" if {[my isobject [self]::items]} { @@ -67,7 +75,7 @@ } foreach c [my children] {append cat_content [$c render] \n} append content [my render_category -open [expr {[my set open_requests]>0}] $cat_content] - } elseif {[my open_requests]>0} { + } elseif {[my open_requests]>0 || [my some_child_has_items]} { set cat_content "" foreach c [my children] {append cat_content [$c render] \n} append content [my render_category -open true $cat_content] Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -r1.37 -r1.38 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 19 May 2006 22:21:30 -0000 1.37 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 7 Jun 2006 17:08:24 -0000 1.38 @@ -246,6 +246,7 @@ -description {-language en-us} } { +# return " $text" #$page set unresolved_references 0