Fix scoping of the exclusion list in access_control

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1205 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 1 insertions, 1 deletions

diff --git a/LedgerSMB/Menu.pm b/LedgerSMB/Menu.pm
index 57c83245..dce0be8e 100755
--- a/LedgerSMB/Menu.pm
+++ b/LedgerSMB/Menu.pm
@@ -107,7 +107,7 @@ sub access_control {
     }
 
     my @a = split /;/, $myconfig->{acs};
-    my $excl = ();
+    my %excl = ();
 
     # remove --AR, --AP from array
     grep { ( $a, $b ) = split /--/; s/--$a$//; } @a;