Index: openacs-4/packages/xowiki/www/xinha/attach-file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/attach-file.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/xowiki/www/xinha/attach-file.tcl	18 Aug 2006 18:57:42 -0000	1.1
+++ openacs-4/packages/xowiki/www/xinha/attach-file.tcl	23 Dec 2008 11:34:59 -0000	1.2
@@ -45,19 +45,19 @@
                 break
             }
 
-            # check quota
-            # FIXME quota is a good idea, set per-user upload 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 "" } {
+		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
+		}
+	      }
+	    }
             
-#            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
- #               }
- #           }	 
-            
             set file_name [template::util::file::get_property filename $upload_file]
             set upload_tmpfile [template::util::file::get_property tmp_filename $upload_file]
             set mime_type [template::util::file::get_property mime_type $upload_file]