Revision 1de53cbf
Von Sven Donath vor etwa 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 672 | 672 |
</script> |
| 673 | 673 |
| if $self->{"fokus"};
|
| 674 | 674 |
|
| 675 |
my $title_hack = qq| |
|
| 676 |
<script type="text/javascript"> |
|
| 677 |
<!-- |
|
| 678 |
// Write a meaningful title-tag for our frameset. |
|
| 679 |
top.document.title="| . $self->{"title"} . qq| - | . $self->{"login"} . qq| - | . $::myconfig{dbname} . qq| - Ver. | . $self->{"version"} . qq|";
|
|
| 680 |
//--> |
|
| 681 |
</script> |
|
| 682 |
|; |
|
| 683 |
|
|
| 675 |
# if there is a title, we put some JavaScript in to the page, wich writes a |
|
| 676 |
# meaningful title-tag for our frameset. |
|
| 677 |
my $title_hack; |
|
| 678 |
if ($self->{"title"}){
|
|
| 679 |
$title_hack = qq| |
|
| 680 |
<script type="text/javascript"> |
|
| 681 |
<!-- |
|
| 682 |
// Write a meaningful title-tag for our frameset. |
|
| 683 |
top.document.title="| . $self->{"title"} . qq| - | . $self->{"login"} . qq| - | . $::myconfig{dbname} . qq| - Ver. | . $self->{"version"} . qq|";
|
|
| 684 |
//--> |
|
| 685 |
</script> |
|
| 686 |
|; |
|
| 687 |
} |
|
| 688 |
|
|
| 684 | 689 |
#Set Calendar |
| 685 | 690 |
my $jsscript = ""; |
| 686 | 691 |
if ($self->{jsscript} == 1) {
|
Auch abrufbar als: Unified diff
Bugfix for Bug 1468: JavaScript-Title_Hack lieferte falsche oder sinnlose Titel und viele weitere.
Wenn der Title-String leer ist, wird mein Title-Hack-JavaScritpt hicht ausgegeben.
Dadurch wird der Titel des Frameset angezeicgt.
Massenhaft Strings angepasst. Teilweise der Logik wegen, oft wegen
"german Umlauts"-Problemen. Teilweise wegen Tipp- und copy&past-Fehlern.
Dateien repariert, die den Titel nicht gesetzt haben.
Bundesländer mit Bindestrichen versehen.
Finanzamt - Daten für Bundesländer mit führender Null in der PLZ repariert. Das Feld PLZ ist Typ Text,
aber jemand muss es beim Exportieren/Importieren als Zahl gehandhabt haben.