Revision 0dd879bc
Von Moritz Bunkus vor etwa 16 Jahren hinzugefügt
| SL/Menu.pm | ||
|---|---|---|
| 264 | 264 |
@menu = grep { /^${menulevel}--/ } @{ $self->{ORDER} };
|
| 265 | 265 |
} |
| 266 | 266 |
|
| 267 |
my @a = split(/;/, $myconfig->{acs});
|
|
| 268 |
my $excl = (); |
|
| 269 |
|
|
| 270 |
# remove --AR, --AP from array |
|
| 271 |
grep { ($a, $b) = split(/--/); s/--$a$//; } @a;
|
|
| 272 |
|
|
| 273 |
map { $excl{$_} = 1 } @a;
|
|
| 274 |
|
|
| 275 |
@a = (); |
|
| 276 |
map { push @a, $_ unless $excl{$_} } (@menu);
|
|
| 277 |
|
|
| 278 | 267 |
$main::lxdebug->leave_sub(2); |
| 279 | 268 |
|
| 280 |
return @a; |
|
| 281 |
} |
|
| 282 |
|
|
| 283 |
sub generate_acl {
|
|
| 284 |
my ($self, $menulevel, $hash) = @_; |
|
| 285 |
|
|
| 286 |
my @items = $self->access_control(\%main::myconfig, $menulevel); |
|
| 287 |
|
|
| 288 |
$menulevel =~ s/[^A-Za-z_\/\.\+\-]/_/g; |
|
| 289 |
$hash->{"access_" . lc($menulevel)} = 1 if ($menulevel);
|
|
| 290 |
|
|
| 291 |
foreach my $item (@items) {
|
|
| 292 |
$self->generate_acl($item, $hash); #unless ($menulevel); |
|
| 293 |
} |
|
| 269 |
return @menu; |
|
| 294 | 270 |
} |
| 295 | 271 |
|
| 296 | 272 |
sub parse_access_string {
|
| SL/User.pm | ||
|---|---|---|
| 974 | 974 |
sub config_vars {
|
| 975 | 975 |
$main::lxdebug->enter_sub(); |
| 976 | 976 |
|
| 977 |
my @conf = qw(acs address admin businessnumber company countrycode
|
|
| 977 |
my @conf = qw(address admin businessnumber company countrycode |
|
| 978 | 978 |
currency dateformat dbconnect dbdriver dbhost dbport dboptions |
| 979 | 979 |
dbname dbuser dbpasswd email fax name numberformat password |
| 980 | 980 |
printer role sid signature stylesheet tel templates vclimit angebote |
| bin/mozilla/is.pl | ||
|---|---|---|
| 69 | 69 |
|
| 70 | 70 |
$form{jsscript} = "date";
|
| 71 | 71 |
|
| 72 |
if ($myconfig{acs} =~ "AR--Add Sales Invoice" || $myconfig{acs} =~ "AR--AR")
|
|
| 73 |
{
|
|
| 74 |
$form->error("Access Denied");
|
|
| 75 |
} |
|
| 76 | 72 |
&invoice_links; |
| 77 | 73 |
&prepare_invoice; |
| 78 | 74 |
&display_form; |
| ... | ... | |
| 89 | 85 |
$form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
|
| 90 | 86 |
#/show hhistory button |
| 91 | 87 |
|
| 92 |
if ($myconfig{acs} =~ "AR--Add Sales Invoice" || $myconfig{acs} =~ "AR--AR")
|
|
| 93 |
{
|
|
| 94 |
$form->error("Access Denied");
|
|
| 95 |
} |
|
| 96 | 88 |
$edit = 1; |
| 97 | 89 |
if ($form->{print_and_post}) {
|
| 98 | 90 |
$form->{action} = "print";
|
Auch abrufbar als: Unified diff
Zugangskontrolle mithilfe des Eintrags "acs" in der Benutzerkonfiguration wird nicht mehr benutzt.