Index: openacs-4/packages/categories/www/cadmin/category-set-parent.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/Attic/category-set-parent.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/categories/www/cadmin/category-set-parent.tcl	10 Feb 2004 00:50:53 -0000	1.7
+++ openacs-4/packages/categories/www/cadmin/category-set-parent.tcl	11 Feb 2004 09:02:43 -0000	1.8
@@ -13,26 +13,17 @@
     page_title:onevalue
     context_bar:onevalue
     locale:onevalue
-    tree_name:onevalue
     tree:multirow
 }
 
 set user_id [ad_maybe_redirect_for_registration]
 permission::require_permission -object_id $tree_id -privilege category_tree_write
 
-array set one_tree [category_tree::get_data $tree_id $locale]
-set tree_name $one_tree(tree_name)
+set page_title "Choose a parent category"
+set context_bar [category::context_bar $tree_id $locale [value_if_exists object_id]]
+lappend context_bar "Choose parent"
 
-set page_title "Choose a parent node"
 
-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] "Choose parent"
-
-
 set subtree_categories_list [db_list subtree ""]
 
 template::multirow create tree category_name category_id deprecated_p level left_indent parent_url