Index: openacs-4/packages/categories/www/cadmin/category-parent-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-parent-change.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/categories/www/cadmin/category-parent-change.tcl	1 Mar 2005 00:01:26 -0000	1.3
+++ openacs-4/packages/categories/www/cadmin/category-parent-change.tcl	6 Nov 2008 15:50:44 -0000	1.4
@@ -9,6 +9,7 @@
     category_id:integer
     {locale ""}
     object_id:integer,optional
+    ctx_id:integer,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
@@ -21,21 +22,23 @@
 
 set category_name [category::get_name $category_id $locale]
 set page_title "Change parent category of \"$category_name\""
-set context_bar [category::context_bar $tree_id $locale [value_if_exists object_id]]
+set context_bar [category::context_bar $tree_id $locale \
+                     [value_if_exists object_id] \
+                     [value_if_exists ctx_id]]
 lappend context_bar "Change parent"
 
 
 set subtree_categories_list [db_list get_subtree ""]
 
 template::multirow create tree category_name category_id deprecated_p level left_indent parent_url
 template::multirow append tree "Root Level" 0 f 0 "" \
-    [export_vars -no_empty -base category-parent-change-2 {tree_id category_id locale object_id}]
+    [export_vars -no_empty -base category-parent-change-2 {tree_id category_id locale object_id ctx_id}]
 
 foreach category [category_tree::get_tree -all $tree_id $locale] {
     util_unlist $category parent_id category_name deprecated_p level
 
     if { [lsearch $subtree_categories_list $parent_id]==-1 } {
-	set parent_url [export_vars -no_empty -base category-parent-change-2 { parent_id tree_id category_id locale object_id }]
+	set parent_url [export_vars -no_empty -base category-parent-change-2 { parent_id tree_id category_id locale object_id ctx_id }]
     } else {
 	set parent_url ""
     }