Index: openacs-4/packages/xowiki/www/xinha/file-selector.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/file-selector.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/xowiki/www/xinha/file-selector.tcl	3 Oct 2008 08:59:18 -0000	1.11
+++ openacs-4/packages/xowiki/www/xinha/file-selector.tcl	23 Dec 2008 11:34:59 -0000	1.12
@@ -139,17 +139,18 @@
           break
         }
 
-        # check quota
-        set maximum_folder_size [ad_parameter "MaximumFolderSize"]
+	if {[info exists folder_size]} {
+	  # check per folder quota 
+	  set maximum_folder_size [parameter::get -parameter "MaximumFolderSize"]
         
-        if { $maximum_folder_size ne "" } {
-          set max [ad_parameter "MaximumFolderSize"]
-          if { $folder_size+[file size ${upload_file.tmpfile}] > $max } {
-            template::form::set_error upload_form upload_file \
-                [_ file-storage.out_of_space]
-            break
-          }
-        }        
+	  if { $maximum_folder_size ne "" } {
+	    if { $folder_size+[file size ${upload_file.tmpfile}] > $maximum_folder_size } {
+	      template::form::set_error upload_form upload_file \
+		  [_ file-storage.out_of_space]
+	      break
+	    }
+	  }
+	}    
         
         set file_name [template::util::file::get_property filename $upload_file]
         set upload_tmpfile [template::util::file::get_property tmp_filename $upload_file]