Index: openacs-4/packages/categories/tcl/categories-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/categories/tcl/categories-procs.tcl	7 Oct 2007 22:36:56 -0000	1.24
+++ openacs-4/packages/categories/tcl/categories-procs.tcl	6 Nov 2008 15:50:44 -0000	1.25
@@ -498,20 +498,21 @@
     return $indent_string
 }
 
-ad_proc -private category::context_bar { tree_id locale object_id } {
+ad_proc -private category::context_bar { tree_id locale object_id {ctx_id ""}} {
     Creates the standard context bar
 
     @param tree_id
     @param locale
     @param object_id
     @author Timo Hentschel (timo@timohentschel.de)
 } {
+    if {$ctx_id eq ""} {unset ctx_id}
     if {![empty_string_p $object_id]} {
-	set context_bar [list [category::get_object_context $object_id] [list [export_vars -no_empty -base object-map {locale object_id}] "Category Management"]]
+	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]]]
     } else {
-	set context_bar [list [list ".?[export_vars -no_empty {locale}]" "Category Management"]]
+	set context_bar [list [list ".?[export_vars -no_empty {locale ctx_id}]" [_ categories.cadmin]]]
     }
-    lappend context_bar [list [export_vars -no_empty -base tree-view {tree_id locale object_id}] [category_tree::get_name $tree_id $locale]]
+    lappend context_bar [list [export_vars -no_empty -base tree-view {tree_id locale object_id ctx_id}] [category_tree::get_name $tree_id $locale]]
 
     return $context_bar
 }