X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FForm.pm;h=37e4a21b626e1b411b2a4ae1c59803180033f3ad;hb=554034c0587282b99d58cf42758b2f836367f2eb;hp=624c01fc8f3ebbb524ab838f84c152157f6e888e;hpb=072d299d85184192341ba0a520209ffe31b6bb66;p=kivitendo-erp.git diff --git a/SL/Form.pm b/SL/Form.pm index 624c01fc8..37e4a21b6 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -40,7 +40,6 @@ package Form; use Data::Dumper; use CGI; -use CGI::Ajax; use Cwd; use Encode; use File::Copy; @@ -722,10 +721,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 < @@ -734,9 +738,9 @@ sub header { EOT print " $_\n" for @header; print < - - + + +