Index: openacs-4/packages/categories/www/cadmin/category-links-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-links-view.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/categories/www/cadmin/category-links-view.tcl	9 Feb 2004 14:08:44 -0000	1.2
+++ openacs-4/packages/categories/www/cadmin/category-links-view.tcl	11 Feb 2004 09:02:43 -0000	1.3
@@ -17,20 +17,14 @@
 }
 
 set user_id [ad_maybe_redirect_for_registration]
-
-array set tree [category_tree::get_data $tree_id $locale]
 permission::require_permission -object_id $tree_id -privilege category_tree_write
 
-set tree_name $tree(tree_name)
+set tree_name [category_tree::get_name $tree_id $locale]
 set category_name [category::get_name $category_id $locale]
-set page_title "Categories linked with category \"$tree(tree_name) :: $category_name\""
+set page_title "Categories linked with category \"$tree_name :: $category_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] "Links to $category_name"
+set context_bar [category::context_bar $tree_id $locale [value_if_exists object_id]]
+lappend context_bar "Links to $category_name"
 
 
 #----------------------------------------------------------------------