Zugangskontrolle mithilfe des Eintrags "acs" in der Benutzerkonfiguration wird nicht...

diff --git a/SL/Menu.pm b/SL/Menu.pm
index 60d78dd27fcf885c4a553af54343d02020e68387..81eedb1a804228bcc7ed2340b6729269a2e9d623 100644 (file)
--- a/SL/Menu.pm
+++ b/SL/Menu.pm
@@ -264,33 +264,9 @@ sub access_control {
     @menu = grep { /^${menulevel}--/ } @{ $self->{ORDER} };
   }
 
     @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);
-

   $main::lxdebug->leave_sub(2);
 
   $main::lxdebug->leave_sub(2);
 

-  return @a;
-}
-
-sub generate_acl {
-  my ($self, $menulevel, $hash) = @_;
-
-  my @items = $self->access_control(\%main::myconfig, $menulevel);
-
-  $menulevel =~ s/[^A-Za-z_\/\.\+\-]/_/g;
-  $hash->{"access_" . lc($menulevel)} = 1 if ($menulevel);
-
-  foreach my $item (@items) {
-    $self->generate_acl($item, $hash); #unless ($menulevel);
-  }
+  return @menu;

 }
 
 sub parse_access_string {
 }
 
 sub parse_access_string {

diff --git a/SL/User.pm b/SL/User.pm
index 44cd34ab7a6c69d6dfe57357a463eec1d97e45f1..805335a29e94708a3366d7309d6d8c24450d29b3 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -974,7 +974,7 @@ sub create_employee_entry {
 sub config_vars {
   $main::lxdebug->enter_sub();
 
 sub config_vars {
   $main::lxdebug->enter_sub();
 

-  my @conf = qw(acs address admin businessnumber company countrycode
+  my @conf = qw(address admin businessnumber company countrycode

     currency dateformat dbconnect dbdriver dbhost dbport dboptions
     dbname dbuser dbpasswd email fax name numberformat password
     printer role sid signature stylesheet tel templates vclimit angebote
     currency dateformat dbconnect dbdriver dbhost dbport dboptions
     dbname dbuser dbpasswd email fax name numberformat password
     printer role sid signature stylesheet tel templates vclimit angebote

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 85768154354f0a310e75f8f7b976497ffd23885b..68bfb0196fecf5bb5d4180fb29937e9975aaee17 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -69,10 +69,6 @@ sub add {
 
   $form{jsscript} = "date";
 
 
   $form{jsscript} = "date";
 

-  if ($myconfig{acs} =~ "AR--Add Sales Invoice" || $myconfig{acs} =~ "AR--AR")
-  {
-    $form->error("Access Denied");
-  }

   &invoice_links;
   &prepare_invoice;
   &display_form;
   &invoice_links;
   &prepare_invoice;
   &display_form;


@@ -89,10 +85,6 @@ sub edit {
   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
   #/show hhistory button
 
   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
   #/show hhistory button
 

-  if ($myconfig{acs} =~ "AR--Add Sales Invoice" || $myconfig{acs} =~ "AR--AR")
-  {
-    $form->error("Access Denied");
-  }

   $edit = 1;
   if ($form->{print_and_post}) {
     $form->{action}   = "print";
   $edit = 1;
   if ($form->{print_and_post}) {
     $form->{action}   = "print";