Index: openacs.org-dev/packages/cms/www/modules/sitemap/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/cms/www/modules/sitemap/delete.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/cms/www/modules/sitemap/delete.tcl	9 Jul 2002 17:35:04 -0000	1.1.1.1
+++ openacs.org-dev/packages/cms/www/modules/sitemap/delete.tcl	8 Oct 2002 15:47:02 -0000	1.1.1.2
@@ -12,9 +12,7 @@
 content::check_access $id cm_write -user_id [User::getID]
 
 # Determine if the folder is empty
-template::query check_empty is_empty onevalue "
-  select content_folder.is_empty(:id) from dual
-" 
+set is_empty [db_string check_empty ""]
 
 # If nonempty, show error
 if { [string equal $is_empty "f"] } {