From 5cdb20edf33f6e6cf5151b3d56e0b614222bf097 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Wed, 29 Aug 2012 20:24:44 +0200 Subject: [PATCH] weg mit menuitem in Menu.pm --- SL/Menu.pm | 31 ------------------------------- 1 file changed, 31 deletions(-) diff --git a/SL/Menu.pm b/SL/Menu.pm index debceae88..63a4f868e 100644 --- a/SL/Menu.pm +++ b/SL/Menu.pm @@ -70,37 +70,6 @@ sub menuitems { } $self->access_control; } -sub menuitem { - $main::lxdebug->enter_sub(); - - my ($self, $myconfig, $form, $item) = @_; - - my $module = $self->{$item}{module} || $form->{script}; - my $action = $self->{$item}{action} || "section_menu"; - my $target = $self->{$item}{target} || ""; - my $level = $form->escape($item); - my $target_token = ($target) ? "target='$target'" : ''; - - my $href = ($self->{$item}{href}) - ? $form->escape($self->{$item}{href}) - : "$module?action=$action"; - - # add other params - foreach my $key (keys %{ $self->{$item} }) { - next if $key =~ /target|module|action/; - $href .= "&" . $form->escape($key, 1) . "="; - my ($value, $conf) = split(/=/, $self->{$item}{$key}, 2); - $value = $myconfig->{$value} . "/$conf" if ($conf); - $href .= $form->escape($value, 1); - } - - my $str = ""; - - $main::lxdebug->leave_sub(); - - return $str; -} - sub menuitem_js { my ($self, $myconfig, $form, $item) = @_; -- 2.20.1