manuelcillero/perl-dam
manuelcillero/perl-dam
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix problem identifying basic user access

Browse source
This commit is contained in:
Manuel Cillero 2020-04-13 12:17:40 +02:00
parent 27ed9214ef
commit 54f5782054
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Dam/DamLogic.pm
View file

@ -404,18 +404,17 @@ sub Session__new {
# Access groups become individual accesses: # Access groups become individual accesses:
my $user_access = '1'; my $user_access = '1';
if (!is_empty($access)) { if (!is_empty($access)) {
my @all_access = split(',', $access);
my @ACCESS_GROUPS = @{CONFIG('REF_ACCESS_GROUPS')}; my @ACCESS_GROUPS = @{CONFIG('REF_ACCESS_GROUPS')};
foreach my $one_access (@all_access) { foreach my $access_list (split(',', $access)) {
foreach my $group (@ACCESS_GROUPS) { foreach my $group (@ACCESS_GROUPS) {
if ($one_access eq $$group[0]) { if (is_eq($access_list, $$group[0])) {
$user_access .= concat(',', $$group[1]); $access_list = $$group[1];
last; last;
} }
$user_access .= ",$one_access";
} }
$user_access = strval($user_access, ',', $access_list);
} }
$user_access = join(',', array_uniq(split(',', $user_access))); $user_access = strval_join(',', array_uniq(split(',', $user_access)));
} }
debug(_t('Original access'), $access); debug(_t('Original access'), $access);
debug(_t('Assigned access'), $user_access); debug(_t('Assigned access'), $user_access);