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

@@ -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)