Changeset 2013 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 05/03/17 09:29:29 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Mail/Aliases.pm
r1728 r2013 34 34 my ($self, $field) = @_; 35 35 $field eq 'forward' and do { 36 my @forw = s plit(',', $self->base->{aliases}{$self->id});36 my @forw = sort split(',', $self->base->{aliases}{$self->id}); 37 37 return scalar(@forw) > 1 38 38 ? [ @forw ] … … 46 46 if ($data{forward}) { 47 47 $self->base->{aliases}{$self->id} = ref $data{forward} 48 ? join(',', @{$data{forward}})48 ? join(',', sort @{$data{forward}}) 49 49 : $data{forward}; 50 50 return 1;
Note: See TracChangeset
for help on using the changeset viewer.