$action = $menuitem->{action};
}
- my $level = $::form->escape($item);
+ my $level = $::form->escape($item);
- my $str = qq|<a href="$module?action=| . $::form->escape($action) . qq|&level=| . $::form->escape($level);
-
- my @vars = qw(module action target href);
+ my @vars;
+ my $target = $menuitem->{target} ? qq| target="| . $::form->escape($menuitem->{target}) . '"' : '';
+ my $str = qq|<a${target} href="|;
if ($menuitem->{href}) {
- $str = qq|<a href="$menuitem->{href}|;
- @vars = qw(module target href);
+ $main::lxdebug->leave_sub();
+ return $str . $menuitem->{href} . '">';
}
- map { delete $menuitem->{$_} } @vars;
+ $str .= qq|$module?action=| . $::form->escape($action) . qq|&level=| . $::form->escape($level);
+
+ map { delete $menuitem->{$_} } qw(module action target href);
# add other params
foreach my $key (keys %{ $menuitem }) {
sub use_stylesheet {
my $self = shift;
qw(
- frame_header/header.css
+ icons16.css frame_header/header.css
),
$self->SUPER::use_stylesheet(@_);
}
}
sub pre_content {
- &render;
+ $_[0]->render;
}
sub start_content {
$callback = URI->new($callback)->rel($callback) if $callback;
$callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/;
- $self->SUPER::render('menu/menuv3', { no_menu => 1, no_output => 1 },
+ $self->presenter->render('menu/menuv3',
force_ul_width => 1,
date => $self->clock_line,
menu => $self->print_menu,