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.1 -r1.1.2.1
--- openacs-4/packages/categories/www/cadmin/category-parent-change.tcl	11 Feb 2004 10:01:11 -0000	1.1
+++ openacs-4/packages/categories/www/cadmin/category-parent-change.tcl	13 Jan 2005 08:28:08 -0000	1.1.2.1
@@ -32,10 +32,10 @@
     [export_vars -no_empty -base category-parent-change-2 {tree_id category_id locale object_id}]
 
 foreach category [category_tree::get_tree -all $tree_id $locale] {
-    util_unlist $category category_id category_name deprecated_p level
+    util_unlist $category parent_id category_name deprecated_p level
 
     if { [lsearch $subtree_categories_list $category_id]==-1 } {
-	set parent_url [export_vars -no_empty -base category-parent-change-2 { {parent_id $category_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 }]
     } else {
 	set parent_url ""
     }