Index: openacs-4/packages/news/www/image-choose.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/Attic/image-choose.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/news/www/image-choose.tcl 20 Nov 2006 20:00:28 -0000 1.1.2.1 +++ openacs-4/packages/news/www/image-choose.tcl 22 Nov 2006 10:03:23 -0000 1.1.2.2 @@ -30,10 +30,8 @@ if {[info exists item_id]} { lappend vars item_id revision_log } -set button [list [list [list [_ news.Upload] ok]]] - form create img -html {enctype multipart/form-data} \ - -edit_buttons $button + -edit_buttons {{{Upload} {ok}}} foreach var $vars { element create img $var -datatype string -widget hidden -optional @@ -42,11 +40,12 @@ element create img upload \ -datatype file \ -widget file \ - -label {#news.File#} \ + -label {File} \ -html [list accept [parameter::get -parameter ImageUploadTypes]] \ -validate [list img_type \ {test_file_type [ns_queryget upload.tmpfile]} \ - "[_ news.Image_must_be_one_of_the_following_types] [parameter::get -parameter ImageUploadTypes]"] + "Image must be one of the following types: [parameter::get -parameter ImageUploadTypes]" \ + ] # clear the upload file value on every request, as it otherwise it displays # filename, tmppath, mime type which isn't at all useful