From 81fe2e0cda00e69939c9261c07f907ee883fa1ed Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Tue, 26 Jun 2012 18:06:22 +0200
Subject: [PATCH] =?UTF-8?q?Ne=20pas=20ajouter=20le=20domaine=20=C3=A0=20l'?=
 =?UTF-8?q?adresse=20mail=20si=20le=20pseudo=20contient=20d=C3=A9j=C3=A0?=
 =?UTF-8?q?=20un=20domaine?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../perl5/site_perl/esmith/FormMagick/Panel/userpanelViewgroups.pm   | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/userpanelViewgroups.pm b/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/userpanelViewgroups.pm
index 018c101..8990faf 100644
--- a/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/userpanelViewgroups.pm
+++ b/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/userpanelViewgroups.pm
@@ -82,7 +82,10 @@ sub get_group_mail {
     my $domain = $db->get('DomainName')->value();
     my @mails = ("$group\@$domain");
     foreach ($accounts->pseudonyms()){
-        push @mails, $_->key . "\@$domain" if (($_->prop('Account') || '') eq $group);
+        next unless (($_->prop('Account') || '') eq $group);
+        my $mail = $_->key;
+        $mail .= "\@$domain" if ($mail !~ /\@/);
+        push @mails, $mail;
     }
     return join("<br>",@mails);
 }