Index: openacs-4/packages/cms/www/modules/categories/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/delete.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/categories/delete.tcl	26 May 2001 19:45:03 -0000	1.3
+++ openacs-4/packages/cms/www/modules/categories/delete.tcl	16 Aug 2002 00:25:33 -0000	1.4
@@ -6,9 +6,7 @@
 request set_param mount_point -datatype keyword -optional -value categories
 
 # Determine if the folder is empty
-template::query get_empty_status is_empty onevalue "
-  select content_keyword.is_leaf(:id) from dual
-"
+set is_empty [db_string get_empty_status ""]
 
 # If nonempty, show error
 if { [string equal $is_empty "f"] } {