From 54f57820549535f4e0b5aa221e2f44e1167ec561 Mon Sep 17 00:00:00 2001
From: Manuel Cillero <manuel@cillero.es>
Date: Mon, 13 Apr 2020 12:17:40 +0200
Subject: [PATCH] Fix problem identifying basic user access

---
 Dam/DamLogic.pm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/Dam/DamLogic.pm b/Dam/DamLogic.pm
index 688b52b..ea41ae6 100644
--- a/Dam/DamLogic.pm
+++ b/Dam/DamLogic.pm
@@ -404,18 +404,17 @@ sub Session__new {
 	# Access groups become individual accesses:
 	my $user_access = '1';
 	if (!is_empty($access)) {
-		my @all_access = split(',', $access);
 		my @ACCESS_GROUPS = @{CONFIG('REF_ACCESS_GROUPS')};
-		foreach my $one_access (@all_access) {
+		foreach my $access_list (split(',', $access)) {
 			foreach my $group (@ACCESS_GROUPS) {
-				if ($one_access eq $$group[0]) {
-					$user_access .= concat(',', $$group[1]);
+				if (is_eq($access_list, $$group[0])) {
+					$access_list = $$group[1];
 					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('Assigned access'), $user_access);