Index: openacs-4/packages/xowiki/tcl/yui-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/yui-procs.tcl,v diff -u -N -r1.16.2.5 -r1.16.2.6 --- openacs-4/packages/xowiki/tcl/yui-procs.tcl 5 Oct 2021 19:21:23 -0000 1.16.2.5 +++ openacs-4/packages/xowiki/tcl/yui-procs.tcl 24 Apr 2022 07:33:47 -0000 1.16.2.6 @@ -534,8 +534,8 @@ html::thead { html::tr -class list-header { foreach o [[self]::__columns children] { - ns_log notice "YUIDataTableRenderer $o [$o set name] HIDE [$o hide] RENDER [$o procsearch render]" - if {[$o hide]} continue + #ns_log notice "YUIDataTableRenderer $o [$o set name] HIDE [$o hide] RENDER [$o procsearch render]" + if {[$o hide]} continue $o render } } @@ -600,6 +600,12 @@ [set href [$line set $__name.href]] ne ""} { # use the CSS class rather from the Field than not the line set CSSclass ${:CSSclass} + if {[$line exists $__name.CSSclass]} { + set lineCSSclass [$line set $__name.CSSclass] + if {$lineCSSclass ne ""} { + append CSSclass " " $lineCSSclass + } + } $line instvar [list $__name.title title] \ [list $__name.target target] \ [list $__name.onclick onclick]