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.2 -r1.3
--- openacs-4/packages/file-storage/www/delete.tcl	17 May 2004 15:15:14 -0000	1.2
+++ openacs-4/packages/file-storage/www/delete.tcl	24 Jul 2004 08:34:20 -0000	1.3
@@ -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