X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/072d299d85184192341ba0a520209ffe31b6bb66..28d69bb85e934088a56e6e8458cd08d3794e1f8b:/SL/Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm
index 624c01fc8..eaee0965a 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;
@@ -702,6 +701,7 @@ sub header {
'',
'',
'',
+ '',
'';
push @header, $self->{javascript} if $self->{javascript};
push @header, map { $_->show_javascript } @{ $self->{AJAX} || [] };
@@ -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 <
@@ -734,9 +739,9 @@ sub header {
EOT
print " $_\n" for @header;
print <
-
-
+
+
+