Index: openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl 24 Jul 2004 08:34:21 -0000 1.2 +++ openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl 13 Jan 2005 13:58:13 -0000 1.3 @@ -12,20 +12,23 @@ } set max_size [ns_config "ns/server/[ns_info server]/module/nssock" maxinput] +if { [string equal $max_size ""] } { + set max_size 0 +} -set title "Configure File Upload Limit" -set context [list "Configure File Upload Limit"] +set title "#file-storage.Configure_File_Upload_Limit#" +set context [list $title] set upload_limit [parameter::get -parameter "MaximumFileSize"] ad_form -name upload_limit_size -export folder_id -form { - {new_size:integer(text) {label "Upload Limit (bytes) $max_size"} {value $upload_limit} {html { maxlength 8}}} + {new_size:integer(text) {label "#file-storage.Upload_Limit# $max_size"} {value $upload_limit} {html { maxlength 8}}} {return_url:text(hidden) {value $return_url}} - {submit:text(submit) {label "Change upload limit"}} + {submit:text(submit) {label "[_ file-storage.Change_upload_limit]"}} } -validate { {new_size { $new_size <= $max_size } - "Upload limit must be less than $max_size bytes"} + "#file-storage.Upload_limit_error# $max_size #file-storage.Upload_limit_error_2# "} } -on_submit { parameter::set_value -parameter "MaximumFileSize" -value $new_size