|
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use DateTime;
|
|
|
|
sub run {
|
|
my $session_result = shift;
|
|
|
|
%::myconfig = $::auth->read_user($::form->{login}) if $::form->{login};
|
|
$::locale = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode};
|
|
|
|
$::form->header;
|
|
print $::form->parse_html_template('menu/header', {
|
|
now => DateTime->now,
|
|
show_debug => $::lx_office_conf{debug}{show_debug_menu},
|
|
lxdebug => $::lxdebug,
|
|
is_links => ($ENV{HTTP_USER_AGENT} =~ /links/i),
|
|
});
|
|
}
|
|
|
|
1;
|
|
|
|
#
|