Index: openacs-4/packages/categories/www/include/widget.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/include/widget.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/categories/www/include/widget.adp 1 Feb 2004 19:12:52 -0000 1.2 +++ openacs-4/packages/categories/www/include/widget.adp 6 Feb 2004 14:00:31 -0000 1.3 @@ -1,7 +1,8 @@ @trees.tree_name@: - multiple> + Index: openacs-4/packages/categories/www/include/widget.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/include/widget.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/categories/www/include/widget.tcl 1 Feb 2004 19:12:52 -0000 1.2 +++ openacs-4/packages/categories/www/include/widget.tcl 6 Feb 2004 14:00:31 -0000 1.3 @@ -12,12 +12,12 @@ set name category_ids } -template::multirow create trees tree_id tree_name category_id selected_p category_name indent single_select_p +template::multirow create trees tree_id tree_name category_id selected_p category_name indent assign_single_p require_category_p template::util::list_to_lookup [category::get_mapped_categories $object_id] mapped foreach tree [category_tree::get_mapped_trees $package_id] { - util_unlist $tree tree_id tree_name subtree_id assign_single_p + util_unlist $tree tree_id tree_name subtree_id assign_single_p require_category_p set one_tree [list] foreach category [category_tree::get_tree -subtree_id $subtree_id $tree_id] { util_unlist $category category_id category_name deprecated_p level @@ -26,6 +26,7 @@ set indent "[category::repeat_string " " [expr 2*$level -4]].." } set selected_p [info exists mapped($category_id)] - template::multirow append trees $tree_id $tree_name $category_id $selected_p $category_name $indent $assign_single_p + + template::multirow append trees $tree_id $tree_name $category_id $selected_p $category_name $indent $assign_single_p $require_category_p } }