Index: openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl	10 Feb 2004 00:50:53 -0000	1.3
+++ openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl	11 Feb 2004 09:02:43 -0000	1.4
@@ -19,21 +19,16 @@
 
 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
 permission::require_permission -object_id $link_tree_id -privilege category_tree_write
 
-set tree_name $tree(tree_name)
 set category_name [category::get_name $category_id $locale]
+set tree_name [category_tree::get_name $tree_id $locale]
 set link_tree_name [category_tree::get_name $link_tree_id $locale]
-set page_title "Add link from \"$link_tree_name\" to category \"$tree(tree_name) :: $category_name\""
+set page_title "Add link from \"$link_tree_name\" to 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] \
+set context_bar [category::context_bar $tree_id $locale [value_if_exists object_id]]
+lappend context_bar \
     [list [export_vars -no_empty -base category-links-view {category_id tree_id locale object_id}] "Links to $category_name"] \
     [list [export_vars -no_empty -base category-link-add {category_id tree_id locale object_id}] "Select link target"] \
     "Add link"