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 -N -r1.1 -r1.2
--- openacs-4/packages/categories/www/cadmin/category-set-parent.tcl	23 Apr 2003 12:29:27 -0000	1.1
+++ openacs-4/packages/categories/www/cadmin/category-set-parent.tcl	27 Apr 2003 11:37:12 -0000	1.2
@@ -35,16 +35,7 @@
 lappend context_bar [list "tree-view?[export_url_vars tree_id locale object_id]" $tree_name] "Choose parent"
 
 
-set subtree_categories_list [db_list subtree {
-    select /*+INDEX(child categories_left_ix)*/
-           child.category_id
-    from categories parent, categories child
-    where parent.category_id = :category_id
-    and child.left_ind >= parent.left_ind
-    and child.left_ind <= parent.right_ind
-    and child.tree_id = parent.tree_id
-    order by child.left_ind
-}]
+set subtree_categories_list [db_list subtree ""]
 
 template::multirow create tree category_name category_id deprecated_p level left_indent url_p