1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
#=====================================================================
# SQL-Ledger Accounting
# Copyright (C) 2001
#
# Author: Dieter Simader
# Email: dsimader@sql-ledger.org
# Web: http://www.sql-ledger.org
#
# Contributors:
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#=====================================================================
#
# routines for menu items
#
#=====================================================================
package Menu;
sub new {
my ($type, $menufile, $level) = @_;
use SL::Inifile;
my $self = Inifile->new($menufile, $level);
bless $self, $type;
}
sub menuitem {
my ($self, $myconfig, $form, $item) = @_;
my $module = $form->{script};
my $action = "section_menu";
my $target = "";
if ($self->{$item}{module}) {
$module = $self->{$item}{module};
}
if ($self->{$item}{action}) {
$action = $self->{$item}{action};
}
if ($self->{$item}{target}) {
$target = $self->{$item}{target};
}
my $level = $form->escape($item);
my $str = qq|<a href=$module?path=$form->{path}&action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
my @vars = qw(module action target href);
if ($self->{$item}{href}) {
$str = qq|<a href=$self->{$item}{href}|;
@vars = qw(module target href);
}
map { delete $self->{$item}{$_} } @vars;
# add other params
foreach my $key (keys %{ $self->{$item} }) {
$str .= "&".$form->escape($key,1)."=";
($value, $conf) = split /=/, $self->{$item}{$key}, 2;
$value = $myconfig->{$value}."/$conf" if ($conf);
$str .= $form->escape($value, 1);
}
if ($target) {
$str .= qq| target=$target|;
}
$str .= ">";
}
sub access_control {
my ($self, $myconfig, $menulevel) = @_;
my @menu = ();
if ($menulevel eq "") {
@menu = grep { !/--/ } @{ $self->{ORDER} };
} else {
@menu = grep { /^${menulevel}--/ } @{ $self->{ORDER} };
}
my @a = split /;/, $myconfig->{acs};
my $excl = ();
# remove --AR, --AP from array
grep { ($a, $b) = split /--/; s/--$a$//; } @a;
map { $excl{$_} = 1 } @a;
@a = ();
map { push @a, $_ unless $excl{$_} } (@menu);
@a;
}
1;
|
