X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5fea8a08f113c47536d98b3c3f0aafcfc0eb007d..7ef8fa0821792bb595822d455bc78d68b920d157:/SL/Form.pm 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 <