Index: openacs-4/packages/file-storage/www/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/delete.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/file-storage/www/delete.tcl	11 May 2004 02:40:17 -0000	1.1.2.1
+++ openacs-4/packages/file-storage/www/delete.tcl	22 Jul 2004 12:51:52 -0000	1.1.2.2
@@ -28,7 +28,7 @@
 # make sure none of these items are root folders. There is no way to
 # click a checkbox, but who knows how the item_id might get in there
 
-set root_folders_count [db_string count_root_folder "" -default 0]
+set root_folders_count [db_string count_root_folders "" -default 0]
 if {$root_folders_count > 0} {
     ad_complain [_ file-storage.lt_You_may_not_delete_th]
     ad_script_abort
Index: openacs-4/packages/file-storage/www/delete.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/delete.xql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/file-storage/www/delete.xql	11 May 2004 02:40:17 -0000	1.1.2.1
+++ openacs-4/packages/file-storage/www/delete.xql	22 Jul 2004 12:51:52 -0000	1.1.2.2
@@ -11,8 +11,7 @@
     <querytext>
       select count(folder_id)
       from fs_root_folders
-      where folder_id in ([template::util::tcl_to_sql_list
-      $object_id])
+      where folder_id in ([template::util::tcl_to_sql_list $object_id])
     </querytext>
   </fullquery>