X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fkopf.pl;h=047eb8707fa8c6705e9fa20f2532e4cb36ab9b50;hb=aacd5750af1d2371dff2abd2db5f6f5f0cca02e6;hp=9b2e1a636d02a3549a110d38830ca413adecefee;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl index 9b2e1a636..047eb8707 100644 --- a/bin/mozilla/kopf.pl +++ b/bin/mozilla/kopf.pl @@ -4,28 +4,47 @@ $| = 1; use CGI::Carp qw(fatalsToBrowser); - + $form->header; $paramstring = $ENV{"QUERY_STRING"}; @felder = split "&", $paramstring; 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); +$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 $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"); +$datum = + $Wochentage[$Wochentag] . ", der " + . $Monatstag . "." + . $Monat . "." + . $Jahr . " - "; + #$zeit="

".$Stunden.":".$Minuten.":".$Sekunden."

"; -$zeit="

".$Stunden.":".$Minuten."

"; +$zeit = "

" . $Stunden . ":" . $Minuten . "

"; print qq| |; + # print qq| - +

|.$login.$datum.qq| +

[drucken]

| + . $login . $datum . qq|

|; + #