Changeset 811

Timestamp:

02/25/10 18:27:11 (14 years ago)

Author:

nanardon

Message:

• fix array evaluation when creating aliases object

Location:

LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Files:

• Mail.pm (modified) (1 diff)
• Mail/Aliases.pm (modified) (2 diffs)

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

@@ -119 +119 @@
         return;
     } elsif ($data{forward} && $otype =~ /^aliases$/i) {
-        $self->{$otype}{$id} = $data{forward};
+        $self->{$otype}{$id} = ref $data{forward}
+            ? join(',', @{$data{forward}})
+            : $data{forward};
         return 1;
     } elsif ($data{as} && $otype =~ /^revaliases$/i) {

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

@@ -33 +33 @@
     my ($self, $field) = @_;
     $field eq 'forward' and do {
+        warn $self->base->{aliases}{$self->id};
         my @forw = split(',', $self->base->{aliases}{$self->id});
         return scalar(@forw) > 1
@@ -43 +44 @@
 sub set_fields {
     my ($self, %data) = @_;
+    warn join(',' , keys %data);
     if ($data{forward}) {
+        warn $data{forward};
         $self->base->{aliases}{$self->id} = ref $data{forward}
             ? join(',', @{$data{forward}})