X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=SL%2FMenu.pm;h=89a6ffd15e06cb1b16b94388e40ccb40186c5bfb;hb=0ecb31986f567eb0b1e9949978458baba04c0ef9;hp=77bc848fd2b8fec7e23385c491ce48c443500ae8;hpb=181ce4f5bab35c1f270a192f062cd27cd34060ba;p=kivitendo-erp.git
diff --git a/SL/Menu.pm b/SL/Menu.pm
index 77bc848fd..89a6ffd15 100644
--- a/SL/Menu.pm
+++ b/SL/Menu.pm
@@ -34,13 +34,17 @@
package Menu;
+use SL::Inifile;
+
sub new {
$main::lxdebug->enter_sub();
- my ($type, $menufile, $level) = @_;
+ my ($type, $menufile) = @_;
+
+ my $self = {};
+ my $inifile = Inifile->new($menufile);
- use SL::Inifile;
- my $self = Inifile->new($menufile, $level);
+ map { $self->{$_} = $inifile->{$_} } keys %{ $inifile };
$main::lxdebug->leave_sub();
@@ -69,7 +73,7 @@ sub menuitem {
my $level = $form->escape($item);
my $str =
- qq|{path}&action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
+ qq|{login}&password=$form->{password}|;
my @vars = qw(module action target href);
@@ -122,7 +126,7 @@ sub menuitem_v3 {
my $str = qq|escape($form->{$_}); } qw(path login password));
+ map({ $str .= "&${_}=" . $form->escape($form->{$_}); } qw(login password));
my @vars = qw(module action target href);
@@ -176,7 +180,7 @@ sub menuitemNew {
my $level = $form->escape($item);
my $str =
- qq|$module?path=$form->{path}&action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
+ qq|$module?action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
my @vars = qw(module action target href);
if ($self->{$item}{href}) {