X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/606e7e2575ff6112e8e45acf0e74e87faa5cfa7c..4d6e7659706445947795fa5319a0d988e8cbff49:/SL/Form.pm?ds=sidebyside diff --git a/SL/Form.pm b/SL/Form.pm index b2cb1dead..1a2573960 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();