X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fkopf.pl;h=ed11e522be1af6b8b712a8ee2308d6e885f04631;hb=b1dbc0a2a7a5b363ee05d62acdc86bc8c76bb1be;hp=e8fa8a35a9829aa44c5280c58de9361c39d340ea;hpb=0e1a25a7a52dd665f4629de8cd5313abd683584d;p=kivitendo-erp.git diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl index e8fa8a35a..ed11e522b 100644 --- a/bin/mozilla/kopf.pl +++ b/bin/mozilla/kopf.pl @@ -1,12 +1,17 @@ #!/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; @@ -20,8 +25,8 @@ foreach (@felder) { $name = $wert; } my $login = - "[" . $form->{login} - . " - " + "". $locale->text('User') . ": " . $form->{login} + . " [text('Logout now') . "\">" . $locale->text('Logout') . "] "; my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, @@ -102,18 +107,22 @@ window.onload=clockon |; -# print qq| - + - - + |; + if ( !($ENV{HTTP_USER_AGENT} =~ /links/i) ) { # do not show the the links in case of "links" in HTTP_USER_AGENT + print qq| + |; + } + print qq| @@ -122,5 +131,8 @@ print qq| |; +} + +1; #

- [\| . $locale->text('Print') . qq\|] - [\| . $locale->text('New Win/Tab') . qq\|] - [\| . $locale->text('Back') . qq\|] - -
+ [\| . $locale->text('Menu') . qq\|] + [\| . $locale->text('New Win/Tab') . qq\|] + [\| . $locale->text('Print') . qq\|] + [\| . $locale->text('Back') . qq\|] + [\| . $locale->text('Fwd') . qq\|] +	\| . $login . $datum . qq\|