X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/7647d46acbc2a8253c0afeac5c706c3eb76995d5..90c31393ba44d8c9f52bea079f57582958421cf2:/SL/Layout/V3.pm diff --git a/SL/Layout/V3.pm b/SL/Layout/V3.pm index 9d5e37d86..3d0b2c03f 100644 --- a/SL/Layout/V3.pm +++ b/SL/Layout/V3.pm @@ -98,13 +98,13 @@ sub menuitem_v3 { return $str . $menuitem->{href} . '">'; } - $str .= qq|$module?action=| . $::form->escape($action) . qq|&level=| . $::form->escape($level); + $str .= qq|$module?action=| . $::form->escape($action); map { delete $menuitem->{$_} } qw(module action target href); # add other params foreach my $key (keys %{ $menuitem }) { - $str .= "&" . $::form->escape($key, 1) . "="; + $str .= "&" . $::form->escape($key, 1) . "="; my ($value, $conf) = split(/=/, $menuitem->{$key}, 2); $value = $::myconfig{$value} . "/$conf" if ($conf); $str .= $::form->escape($value, 1); @@ -132,7 +132,7 @@ sub init_sub_layouts { sub use_stylesheet { my $self = shift; qw( - frame_header/header.css + icons16.css frame_header/header.css ), $self->SUPER::use_stylesheet(@_); } @@ -146,7 +146,7 @@ sub use_javascript { } sub pre_content { - &render; + $_[0]->render; } sub start_content { @@ -164,7 +164,7 @@ sub render { $callback = URI->new($callback)->rel($callback) if $callback; $callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/; - $self->SUPER::render('menu/menuv3', { output => 0 }, + $self->presenter->render('menu/menuv3', force_ul_width => 1, date => $self->clock_line, menu => $self->print_menu,