Revision 12e51300
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 654 | 654 |
push @header, sprintf "<script type='text/javascript'>top.document.title='%s';</script>", |
| 655 | 655 |
join ' - ', grep $_, $self->{title}, $self->{login}, $::myconfig{dbname}, $self->{version} if $self->{title};
|
| 656 | 656 |
|
| 657 |
# if there is a title, we put some JavaScript in to the page, wich writes a |
|
| 658 |
# meaningful title-tag for our frameset. |
|
| 659 |
my $title_hack = ''; |
|
| 660 |
if ($self->{title}) {
|
|
| 661 |
$title_hack = qq| |
|
| 662 |
<script type="text/javascript"> |
|
| 663 |
<!-- |
|
| 664 |
// Write a meaningful title-tag for our frameset. |
|
| 665 |
top.document.title="| . $self->{"title"} . qq| - | . $self->{"login"} . qq| - | . $::myconfig{dbname} . qq| - V| . $self->{"version"} . qq|";
|
|
| 666 |
//--> |
|
| 667 |
</script>|; |
|
| 668 |
} |
|
| 669 |
|
|
| 657 | 670 |
# output |
| 658 | 671 |
print $self->create_http_response(content_type => 'text/html', charset => $db_charset); |
| 659 | 672 |
print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01//EN' 'http://www.w3.org/TR/html4/strict.dtd'>\n" |
| ... | ... | |
| 680 | 693 |
|
| 681 | 694 |
</script> |
| 682 | 695 |
$extra_code |
| 696 |
$title_hack |
|
| 683 | 697 |
</head> |
| 684 | 698 |
|
| 685 | 699 |
EOT |
Auch abrufbar als: Unified diff
Seitentitel via JavaScript setzen
Stammt ursprünglich aus
3cf46a171f748ecacb6fa0bf1e1df81c227fb117 ("Teil 1 von: Usability und
Lokalisierung de und de_DE (neu)") und wurde in
50365526 ("Form::header") überschrieben.