Changeset 2013 for trunk

Timestamp:

05/03/17 09:29:29 (7 years ago)

Author:

nanardon

Message:

Sort aliases in mail file

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Mail/Aliases.pm (modified) (2 diffs)

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

@@ -34 +34 @@
     my ($self, $field) = @_;
     $field eq 'forward' and do {
-        my @forw = split(',', $self->base->{aliases}{$self->id});
+        my @forw = sort split(',', $self->base->{aliases}{$self->id});
         return scalar(@forw) > 1
             ? [ @forw ]
@@ -46 +46 @@
     if ($data{forward}) {
         $self->base->{aliases}{$self->id} = ref $data{forward}
-            ? join(',', @{$data{forward}})
+            ? join(',', sort @{$data{forward}})
             : $data{forward};
         return 1;