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"