Index: openacs-4/packages/categories/www/cadmin/tree-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/categories/www/cadmin/tree-delete.tcl	23 Apr 2003 12:29:27 -0000	1.1
+++ openacs-4/packages/categories/www/cadmin/tree-delete.tcl	27 Apr 2003 11:37:12 -0000	1.2
@@ -48,13 +48,7 @@
 
 template::multirow create used_categories category_id name
 
-db_foreach get_category_in_use {
-    select category_id
-    from categories c
-    where c.tree_id = :tree_id
-    and exists (select 1 from category_object_map
-                 where category_id = c.category_id)
-} {
+db_foreach get_category_in_use "" {
     set category_name [category::get_name $category_id $locale]
     template::multirow append used_categories $category_id $category_name
 }