X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/cf4ac17020af74a0ab2443fde0ae2c85b181af0a..de8868c:/SL/Form.pm?ds=sidebyside diff --git a/SL/Form.pm b/SL/Form.pm index 0268aaf2e..f50cba70d 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -722,10 +722,15 @@ sub header { |; } + my %doctypes = ( + strict => qq||, + transitional => qq||, + frameset => qq||, + ); + # output print $self->create_http_response(content_type => 'text/html', charset => $db_charset); - print "\n" - if $ENV{'HTTP_USER_AGENT'} =~ m/MSIE\s+\d/; # Other browsers may choke on menu scripts with DOCTYPE. + print $doctypes{$params{doctype} || 'transitional'}, $/; print <