Index: openacs-4/packages/xowiki/tcl/folder-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/folder-procs.tcl,v diff -u -r1.55.2.22 -r1.55.2.23 --- openacs-4/packages/xowiki/tcl/folder-procs.tcl 29 Aug 2019 14:00:32 -0000 1.55.2.22 +++ openacs-4/packages/xowiki/tcl/folder-procs.tcl 2 Sep 2019 10:25:51 -0000 1.55.2.23 @@ -493,7 +493,17 @@ {-view_target ""} {-html-content} {-parent .} - {-hide} + {-columns { + objects + edit + object_type + name + last_modified + mod_user + duplicate + delete + }} + {-hide {}} {-menubar ""} } } @@ -555,13 +565,11 @@ {manage-categories 1} {object_id $package_id} }] - set columns {objects edit object_type name title last_modified mod_user duplicate delete} - foreach column $columns {set ::hidden($column) 0 } - if {[info exists hide]} { - foreach column $hide { - if {[info exists ::hidden($column)]} {set ::hidden($column) 1} - } + set all_columns {objects edit object_type name title last_modified mod_user duplicate delete} + foreach column $all_columns { + set ::hidden($column) [expr {$column ni $columns || $column in $hide}] } + # # We have to use the global variable for the time being due to # scoping in "-columns"