Index: openacs-4/packages/acs-templating/www/scripts/xinha/attach-image.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/scripts/xinha/attach-image.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-templating/www/scripts/xinha/attach-image.tcl	29 Aug 2008 18:08:35 -0000	1.8
+++ openacs-4/packages/acs-templating/www/scripts/xinha/attach-image.tcl	29 Dec 2008 21:53:02 -0000	1.9
@@ -98,19 +98,19 @@
             }
 	    if {$upload_file ne "" } {
 
-		# 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]