Index: openacs-4/packages/categories/www/cadmin/tree-usage.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-usage.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/categories/www/cadmin/tree-usage.tcl	9 Feb 2004 19:48:44 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/tree-usage.tcl	11 Feb 2004 09:02:43 -0000	1.5
@@ -29,12 +29,8 @@
 set tree_description $tree(description)
 set page_title "Modules using Category Tree \"$tree_name\""
 
-if {[info exists object_id]} {
-    set context_bar [list [category::get_object_context $object_id] [list [export_vars -no_empty -base one-object {locale object_id}] "Category Management"]]
-} else {
-    set context_bar [list [list ".?[export_vars -no_empty {locale}]" "Category Management"]]
-}
-lappend context_bar [list [export_vars -no_empty -base tree-view {tree_id locale object_id}] $tree_name] Usage
+set context_bar [category::context_bar $tree_id $locale [value_if_exists object_id]]
+lappend context_bar "Usage"
 
 
 template::multirow create modules package object_id object_name package_id instance_name read_p