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.2.1 -r1.1.2.2
--- openacs-4/packages/categories/www/cadmin/category-parent-change.tcl	13 Jan 2005 08:28:08 -0000	1.1.2.1
+++ openacs-4/packages/categories/www/cadmin/category-parent-change.tcl	13 Jan 2005 08:38:44 -0000	1.1.2.2
@@ -34,7 +34,7 @@
 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 $category_id]==-1 } {
+    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 }]
     } else {
 	set parent_url ""