X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fkopf.pl;h=ed11e522be1af6b8b712a8ee2308d6e885f04631;hb=97c8f14b3fea88e6b482919d944cb8e6461bc451;hp=3e01a31a04935c8626aa1e0266e3c04a46124a28;hpb=9bd3030a376850c427c102c6e0c54f19bd19332e;p=kivitendo-erp.git diff --git a/bin/mozilla/kopf.pl b/bin/mozilla/kopf.pl index 3e01a31a0..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,13 +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| @@ -117,5 +131,8 @@ print qq| |; +} + +1; #

[\| . $locale->text('drucken') . 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\|