Index: openacs-4/packages/categories/www/cadmin/object-map.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/object-map.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/categories/www/cadmin/object-map.tcl 1 Mar 2005 00:01:26 -0000 1.2 +++ openacs-4/packages/categories/www/cadmin/object-map.tcl 28 Aug 2007 16:30:03 -0000 1.3 @@ -26,15 +26,15 @@ set page_title "Category Management" set context_bar [list $context_bar $page_title] -template::multirow create mapped_trees tree_name tree_id site_wide_p assign_single_p require_category_p view_url unmap_url edit_url +template::multirow create mapped_trees tree_name tree_id site_wide_p assign_single_p require_category_p widget view_url unmap_url edit_url db_foreach get_mapped_trees "" { set tree_name [category_tree::get_name $tree_id $locale] if {![empty_string_p $subtree_category_id]} { append tree_name " :: [category::get_name $subtree_category_id $locale]" } template::multirow append mapped_trees $tree_name $tree_id $site_wide_p \ - $assign_single_p $require_category_p \ + $assign_single_p $require_category_p $widget \ [export_vars -no_empty -base tree-view { tree_id locale object_id }] \ [export_vars -no_empty -base tree-unmap { tree_id locale object_id }] \ [export_vars -no_empty -base tree-map-2 { tree_id locale object_id {edit_p 1}}] @@ -67,7 +67,8 @@ } flags { display_template { - (Site-Wide Tree, + (Site-Wide Tree, + @mapped_trees.widget@, single, multiple, required) optional) }