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)
}