Changeset 1158 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Ajax/Services/Mailing.pm

Timestamp:

09/20/12 10:37:15 (12 years ago)

Author:

nanardon

Message:

add attachment support in mail

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Ajax/Services/Mailing.pm (modified) (1 diff)

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

@@ -86 +86 @@
 }
 
+sub attachments :Local {
+    my ( $self, $c ) = @_;
+    foreach ($c->req->param('rm_attachment')) {
+        $c->session->{mailing}{attachments}[$_ -1] = undef;
+    }
+
+    $c->session->{mailing}{attachments} = [
+        grep { $_ }
+        @{
+        $c->session->{mailing}{attachments} || []}
+    ];
+}
+
 sub end : Private {
     my ( $self, $c ) = @_;