From a100db5ee03112123822e07bca1d2f2efbfa0d0b Mon Sep 17 00:00:00 2001
From: Guillaume Rousse <guillaume.rousse@renater.fr>
Date: Tue, 7 Nov 2017 15:03:53 +0100
Subject: [PATCH] filter out duplicated contacts
---
lib/IdPAccountManager/WebRequest.pm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lib/IdPAccountManager/WebRequest.pm b/lib/IdPAccountManager/WebRequest.pm
index 9705304..ef1b628 100755
--- a/lib/IdPAccountManager/WebRequest.pm
+++ b/lib/IdPAccountManager/WebRequest.pm
@@ -7,6 +7,7 @@ use CGI;
use English qw(-no_match_vars);
use Template;
use Log::Any::Adapter;
+use List::MoreUtils qw(uniq);
use IdPAccountManager::Data::TestAccount;
use IdPAccountManager::Data::AuthenticationToken;
@@ -277,7 +278,7 @@ sub req_select_sp {
# complete persistent object
$provider->displayname($sp->{display_name});
- $provider->contacts(map { $_->{EmailAddress} } @{$sp->{contacts}})
+ $provider->contacts(uniq map { $_->{EmailAddress} } @{$sp->{contacts}})
if $sp->{contacts};
# save in DB
--
GitLab