Index: openacs-4/packages/categories/www/cadmin/tree-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-map.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/categories/www/cadmin/tree-map.tcl	1 Mar 2005 00:01:27 -0000	1.7
+++ openacs-4/packages/categories/www/cadmin/tree-map.tcl	6 Nov 2008 15:50:44 -0000	1.8
@@ -8,6 +8,7 @@
     tree_id:integer
     {locale ""}
     object_id:integer,notnull
+    ctx_id:integer,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
@@ -26,16 +27,19 @@
 
 set page_title "Select subtree of \"$tree_name\" to map"
 
-set context_bar [list [category::get_object_context $object_id] [list [export_vars -no_empty -base object-map {locale object_id}] "Category Management"] "Map subtree"]
+set context_bar [list \
+   [category::get_object_context $object_id] \
+   [list [export_vars -no_empty -base object-map {locale object_id ctx_id}] [_ categories.cadmin]] \
+   "Map subtree"]
 
 template::multirow create tree category_id category_name level left_indent map_url
 
 foreach category [category_tree::get_tree -all $tree_id $locale] {
     util_unlist $category category_id category_name deprecated_p level
 
     template::multirow append tree $category_id $category_name $level \
-	[string repeat " " [expr ($level-1)*5]] \
-	[export_vars -no_empty -base tree-map-2 { category_id tree_id locale object_id }]
+	[string repeat " " [expr {($level-1)*5}]] \
+	[export_vars -no_empty -base tree-map-2 { category_id tree_id locale object_id ctx_id}]
 }
 
 template::list::create \