Index: openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl 29 Aug 2017 14:29:07 -0000 1.5 +++ openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl 29 Aug 2017 15:14:52 -0000 1.6 @@ -500,11 +500,13 @@ If -base64 flag is set, files will be base64 encoded (useful for some kind of form). - @param -formvars Other form variables can be passes in-formvars - easily by the use of export_vars -url and will be - translated for the proper type of form. URL variables, as with GET - requests, are also sent, but an error is thrown if URL variables - conflict with those specified in other ways. + @param formvars Other form variables can be passed easily + through-formvars using export_vars -url + and will be translated for the proper type of form. This is useful + when we intend to send files together with variables to a + form. URL variables, as with GET requests, are also sent, but an + error is thrown if URL variables conflict with those specified in + other ways.

Default behavior is to build payload as an 'application/x-www-form-urlencoded' payload if no files are @@ -715,6 +717,7 @@ set formvar [split $formvar =] set key [lindex $formvar 0] set val [join [lrange $formvar 1 end] =] + set val [ad_urldecode_query $val] if {[info exists filevars($key)]} { return -code error "${this_proc}: Variable '$key' already specified as file variable"