doctype setzen. neuere browser kommen gut mit dem javascript klar, solange transition...

[mfinanz.git] / SL / Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm

index 0268aaf2e2a82eb659425192f17f69904c787449..f50cba70d381e183166c9cdeb2c9cf928cec8143 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -722,10 +722,15 @@ sub header {
      </script>|;
    }
  
      </script>|;
    }
  
+  my  %doctypes = (
+    strict       => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">|,
+    transitional => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">|,
+    frameset     => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">|,
+  );
+
    # output
    print $self->create_http_response(content_type => 'text/html', charset => $db_charset);
    # output
    print $self->create_http_response(content_type => 'text/html', charset => $db_charset);
-  print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN' 'http://www.w3.org/TR/html4/strict.dtd'>\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 <<EOT;
  <html>
   <head>
    print <<EOT;
  <html>
   <head>