Changeset 463

Timestamp:

10/01/09 03:30:32 (15 years ago)

Author:

nanardon

Message:

• fix syntax

File:

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

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

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