X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fkopf.pl;h=ed11e522be1af6b8b712a8ee2308d6e885f04631;hb=1e0d413084100ccd892e8c5be95703be5d965de7;hp=c74fd23399ffc13b49cf036317758519a5311c95;hpb=834bd183522a3b20f8c3e24d3f39c6669543c0fc;p=kivitendo-erp.git diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl index c74fd2339..ed11e522b 100644 --- a/bin/mozilla/kopf.pl +++ b/bin/mozilla/kopf.pl @@ -1,25 +1,32 @@ #!/usr/bin/perl # -$| = 1; +#$| = 1; -use CGI::Carp qw(fatalsToBrowser); +#use CGI::Carp qw(fatalsToBrowser); + +use strict; + +sub run { + my $session_result = shift; + %::myconfig = $::auth->read_user($::form->{login}) if $::form->{login}; + $::locale = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode}; + +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; } -$login = - "[" . $login - . " - {"path"} - . "&password=" - . $form->{"password"} - . "&action=logout\" target=\"_top\">" +my $login = + "". $locale->text('User') . ": " . $form->{login} + . " [text('Logout now') . "\">" . $locale->text('Logout') . "] "; my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, @@ -37,14 +44,14 @@ my @Monatsnamen = ("", "Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember"); -$datum = +my $datum = $Wochentage[$Wochentag] . ", der " . $Monatstag . "." . $Monat . "." . $Jahr . " - "; #$zeit="
[drucken] | -| + |
+ [| . $locale->text('Menu') . qq|] + [| . $locale->text('New Win/Tab') . qq|] + [| . $locale->text('Print') . qq|] + [| . $locale->text('Back') . qq|] + [| . $locale->text('Fwd') . qq|] + | |; + } + print qq| +| . $login . $datum . qq| - | -