projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
storno_id spalte in ar eingefuegt, und die post_transaction angepasst um diese auch...
[kivitendo-erp.git]
/
SL
/
Menu.pm
diff --git
a/SL/Menu.pm
b/SL/Menu.pm
index
77bc848
..
89a6ffd
100644
(file)
--- a/
SL/Menu.pm
+++ b/
SL/Menu.pm
@@
-34,13
+34,17
@@
package Menu;
package Menu;
+use SL::Inifile;
+
sub new {
$main::lxdebug->enter_sub();
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();
$main::lxdebug->leave_sub();
@@
-69,7
+73,7
@@
sub menuitem {
my $level = $form->escape($item);
my $str =
my $level = $form->escape($item);
my $str =
- qq|<a style="vertical-align:top" href=$module?
path=$form->{path}&
action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
+ qq|<a style="vertical-align:top" href=$module?action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
my @vars = qw(module action target href);
my @vars = qw(module action target href);
@@
-122,7
+126,7
@@
sub menuitem_v3 {
my $str = qq|<a href="$module?action=| . $form->escape($action) .
qq|&level=| . $form->escape($level);
my $str = qq|<a href="$module?action=| . $form->escape($action) .
qq|&level=| . $form->escape($level);
- map({ $str .= "&${_}=" . $form->escape($form->{$_}); } qw(
path
login password));
+ map({ $str .= "&${_}=" . $form->escape($form->{$_}); } qw(login password));
my @vars = qw(module action target href);
my @vars = qw(module action target href);
@@
-176,7
+180,7
@@
sub menuitemNew {
my $level = $form->escape($item);
my $str =
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}) {
my @vars = qw(module action target href);
if ($self->{$item}{href}) {