From 467079a0f11f0c69b769d7d8940a92e2e5f29ed7 Mon Sep 17 00:00:00 2001 From: "renater.salaun" <renater.salaun@047e039d-479c-447e-8a29-aa6bf4a09bab> Date: Mon, 16 Mar 2015 13:19:00 +0000 Subject: [PATCH] Fix : show duplicate SP contacts only once in wizard git-svn-id: https://svn.geant.net/GEANT/edugain_testidp_account_manager/trunk@107 047e039d-479c-447e-8a29-aa6bf4a09bab --- lib/IdPAccountManager/ServiceProvider.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/IdPAccountManager/ServiceProvider.pm b/lib/IdPAccountManager/ServiceProvider.pm index 6d07563..5c6df0b 100644 --- a/lib/IdPAccountManager/ServiceProvider.pm +++ b/lib/IdPAccountManager/ServiceProvider.pm @@ -40,17 +40,17 @@ sub print { sub list_contacts_as_array { my $self = shift; - my @contact_list; + my %contact_list; foreach my $contact_email (split /,/, $self->contacts()) { - push @contact_list, $contact_email; + $contact_list{$contact_email}++; } foreach my $contact_email (split /,/, $Conf::global{'dev_sp_contact'}) { - push @contact_list, $contact_email; + $contact_list{$contact_email}++; } - return @contact_list; + return keys %contact_list; } ## Check if email address is a known contact (or conf.dev_sp_contact) -- GitLab