Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v diff -u -r1.25.4.4 -r1.25.4.5 --- openacs-4/packages/categories/tcl/category-trees-procs.tcl 11 Oct 2013 12:08:21 -0000 1.25.4.4 +++ openacs-4/packages/categories/tcl/category-trees-procs.tcl 26 Oct 2013 09:31:10 -0000 1.25.4.5 @@ -584,9 +584,9 @@ template::multirow create $datasource tree_id tree_name category_id category_name level pad deprecated_p count child_sum } foreach mapped_tree $mapped_trees { - foreach {tree_id tree_name subtree_id assign_single_p require_category_p} $mapped_tree { break } + lassign $mapped_tree tree_id tree_name subtree_id assign_single_p require_category_p foreach category [category_tree::get_tree -subtree_id $subtree_id $tree_id] { - foreach {category_id category_name deprecated_p level} $category { break } + lassign $category category_id category_name deprecated_p level if { $level > 1 } { set pad "[string repeat " " [expr {2 * $level - 4}]].." } else {