X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/cd73950c9f7616255cf917e36a6e1a03627f860d..90c31393ba44d8c9f52bea079f57582958421cf2:/SL/Layout/V3.pm diff --git a/SL/Layout/V3.pm b/SL/Layout/V3.pm index 03c6f3ebf..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 {