Index: openacs-4/packages/cms/www/modules/sitemap/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/delete.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/cms/www/modules/sitemap/delete.tcl	25 May 2001 02:15:56 -0000	1.2
+++ openacs-4/packages/cms/www/modules/sitemap/delete.tcl	19 Aug 2002 03:54:52 -0000	1.3
@@ -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"] } {