Index: openacs-4/packages/file-storage/www/version-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-add-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/file-storage/www/version-add-2.tcl 22 Sep 2001 05:57:56 -0000 1.2 +++ openacs-4/packages/file-storage/www/version-add-2.tcl 5 Nov 2002 17:19:59 -0000 1.3 @@ -13,15 +13,16 @@ } -validate { valid_file -requires {file_id} { if ![fs_file_p $file_id] { - ad_complain "The specified file is not valid." + ad_complain "[_ file-storage.lt_The_specified_file_is]" } } max_size -requires {upload_file} { set n_bytes [file size ${upload_file.tmpfile}] set max_bytes [ad_parameter "MaximumFileSize"] if { $n_bytes > $max_bytes } { - ad_complain "Your file is larger than the maximum file size allowed on this system ([util_commify_number $max_bytes] bytes)" + set number_of_bytes "[util_commify_number $max_bytes]" + ad_complain [_ [ad_conn locale] file-storage.lt_Your_file_is_larger_t] "" [list number_of_bytes $number_of_bytes]] } } }