X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2a5e8973583d3e6dec80d291124bcee9baaf781e..6f266e929ff3eaefc84c34b46fa452c50eecbcf4:/SL/Layout/V3.pm?ds=inline diff --git a/SL/Layout/V3.pm b/SL/Layout/V3.pm index 713764f60..a59424001 100644 --- a/SL/Layout/V3.pm +++ b/SL/Layout/V3.pm @@ -87,18 +87,20 @@ sub menuitem_v3 { $action = $menuitem->{action}; } - my $level = $::form->escape($item); + my $level = $::form->escape($item); - my $str = qq|escape($menuitem->{target}) . '"' : ''; + my $str = qq|{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 }) {