X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/fd69a37d9aa596195873b658d7a42d7e8c0ea6a3..7b5835061e81d1af578e1572e435d6f3e61d2989:/SL/Form.pm diff --git a/SL/Form.pm b/SL/Form.pm index 1db5a6541..33b3d04bf 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -629,6 +629,8 @@ sub create_http_response { $cgi_params{'-charset'} = $params{charset} if ($params{charset}); $cgi_params{'-cookie'} = $session_cookie if ($session_cookie); + map { $cgi_params{'-' . $_} = $params{$_} if exists $params{$_} } qw(content_disposition content_length); + my $output = $cgi->header(%cgi_params); $main::lxdebug->leave_sub();