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.17 -r1.18 --- openacs-4/packages/categories/tcl/category-trees-procs.tcl 27 Jun 2006 07:34:04 -0000 1.17 +++ openacs-4/packages/categories/tcl/category-trees-procs.tcl 31 Jul 2006 20:31:11 -0000 1.18 @@ -486,6 +486,9 @@ ad_proc -public category_tree::get_multirow { {-tree_id {}} + {-subtree_id {}} + {-assign_single_p f} + {-require_category_p f} {-container_id {}} {-category_counts {}} -append:boolean @@ -547,7 +550,6 @@ } else { 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 } foreach category [category_tree::get_tree -subtree_id $subtree_id $tree_id] { @@ -665,3 +667,4 @@ return $tree_id } +