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.3.2.13 -r1.3.2.14 --- openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl 31 Jan 2017 13:39:00 -0000 1.3.2.13 +++ openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl 31 Jan 2017 15:58:01 -0000 1.3.2.14 @@ -746,11 +746,15 @@ $payload_file \ $payload_file_fd] lassign $app payload payload_file payload_file_fd - - # ...otherwise this will be an 'application/x-www-form-urlencoded' payload + } else { - set content_type "application/x-www-form-urlencoded" - ns_set put $headers "Content-type" $content_type + # If people specified a content type we won't overwrite it, + # otherwise this will be a 'application/x-www-form-urlencoded' + # payload + if {$req_content_type eq ""} { + set content_type "application/x-www-form-urlencoded" + ns_set put $headers "Content-type" $content_type + } set enc [util::http::get_channel_settings $content_type] set payload $formvars }