Changeset 1497 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql

Timestamp:

12/18/15 07:24:29 (9 years ago)

Author:

nanardon

Message:

Fix alias set twice

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Aliases.pm (modified) (3 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Aliases.pm

@@ -233 +233 @@
     my @users = $self->base->search_objects('user', ref $filter ? @{ $filter } : $filter);
 
-    my @forward = ();
+    my %forward = ();
 
     foreach my $user (@users) {
@@ -239 +239 @@
         $email{$user} or next;
         my $mail = $email{$user}->[0] or next;
-        push(@forward, $mail);
+        %forward{$mail} = 1;
     }
 
@@ -245 +245 @@
         'UPDATE aliases SET forward = ? WHERE ikey = ?'
     );
-    if (!$sth->execute(\@forward, $self->Iid)) {
+    if (!$sth->execute([ sort keys %forward ], $self->Iid)) {
         $self->base->log(LA_ERR, "Cannot update forward for aliases %s: %s", $self->id, $sth->errstr());
         return;