Revision 7ef8fa08
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 722 | 722 |
</script>|; |
| 723 | 723 |
} |
| 724 | 724 |
|
| 725 |
my %doctypes = ( |
|
| 726 |
strict => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">|, |
|
| 727 |
transitional => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">|, |
|
| 728 |
frameset => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">|, |
|
| 729 |
); |
|
| 730 |
|
|
| 725 | 731 |
# output |
| 726 | 732 |
print $self->create_http_response(content_type => 'text/html', charset => $db_charset); |
| 727 |
print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN' 'http://www.w3.org/TR/html4/strict.dtd'>\n" |
|
| 728 |
if $ENV{'HTTP_USER_AGENT'} =~ m/MSIE\s+\d/; # Other browsers may choke on menu scripts with DOCTYPE.
|
|
| 733 |
print $doctypes{$params{doctype} || 'transitional'}, $/;
|
|
| 729 | 734 |
print <<EOT; |
| 730 | 735 |
<html> |
| 731 | 736 |
<head> |
Auch abrufbar als: Unified diff
doctype setzen. neuere browser kommen gut mit dem javascript klar, solange transitional gesetzt ist.