Changeset 1136 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts

Timestamp:

09/15/12 08:52:20 (12 years ago)

Author:

nanardon

Message:

• fix merge

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Services/Mailing.pm (modified) (3 diffs)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Services/Mailing.pm

@@ -97 +97 @@
     $email->header_set( Subject => $c->req->param('subject') );
 
-    warn $email->as_string;
+    $c->stash->{receivers} = [];
     foreach (sort (keys %{ $c->session->{to} })) {
         my $obj = $c->model('Accounts')->base->get_object(
@@ -103 +103 @@
         ) or next;
         my $email_addr = $obj->get_attributes('mail') or next;
+        push(@{ $c->stash->{receivers} }, $email_addr);
         my $to = sprintf(
             '%s <%s>',
@@ -120 +121 @@
         );
     }
+    $c->session->{mailing}{subject} = '';
+    $c->session->{mailing}{body} = '';
+    $c->session->{to} = {};
 
 }