X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fkopf.pl;h=3e01a31a04935c8626aa1e0266e3c04a46124a28;hb=705655d4a388cbea644c1992350707f145fc4b22;hp=9b2e1a636d02a3549a110d38830ca413adecefee;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl index 9b2e1a636..3e01a31a0 100644 --- a/bin/mozilla/kopf.pl +++ b/bin/mozilla/kopf.pl @@ -4,28 +4,49 @@ $| = 1; use CGI::Carp qw(fatalsToBrowser); - + +use strict; + +my $form = $main::form; +my $locale = $main::locale; + $form->header; -$paramstring = $ENV{"QUERY_STRING"}; -@felder = split "&", $paramstring; +my $paramstring = $ENV{"QUERY_STRING"}; +my @felder = split "&", $paramstring; +my ($name, $wert); foreach (@felder) { - ($name, $wert) = split "=", $_; - $wert =~ tr/+/ /; - $$name = $wert; + ($name, $wert) = split "=", $_; + $wert =~ tr/+/ /; + $name = $wert; } -$login="[".$login." - {"path"} . "&password=" . $form->{"password"} . "&action=logout\" target=\"_top\">" . $locale->text('Logout') . "] "; -my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time); +my $login = + "[" . $form->{login} + . " - " + . $locale->text('Logout') + . "] "; +my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, + $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) + = localtime(time); my $CTIME_String = localtime(time); -$Monat+=1; -$Jahrestag+=1; -$Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat; -$Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag; -$Jahr+=1900; -my @Wochentage = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag"); -my @Monatsnamen = ("","Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember"); -$datum=$Wochentage[$Wochentag].", der ".$Monatstag.".".$Monat.".".$Jahr." - "; +$Monat += 1; +$Jahrestag += 1; +$Monat = $Monat < 10 ? $Monat = "0" . $Monat : $Monat; +$Monatstag = $Monatstag < 10 ? $Monatstag = "0" . $Monatstag : $Monatstag; +$Jahr += 1900; +my @Wochentage = ("Sonntag", "Montag", "Dienstag", "Mittwoch", + "Donnerstag", "Freitag", "Samstag"); +my @Monatsnamen = ("", "Januar", "Februar", "März", + "April", "Mai", "Juni", "Juli", + "August", "September", "Oktober", "November", + "Dezember"); +my $datum = + $Wochentage[$Wochentag] . ", der " + . $Monatstag . "." + . $Monat . "." + . $Jahr . " - "; + #$zeit="
".$Stunden.":".$Minuten.":".$Sekunden."
"; -$zeit="
".$Stunden.":".$Minuten."
"; +my $zeit = "
" . $Stunden . ":" . $Minuten . "
"; print qq| |; + # print qq| - + - - - + + + +
|.$login.$datum.qq|   -
  [| . $locale->text('drucken') . qq|]| + . $login . $datum . qq|   +
|; + #