Mailer.pm wurde umgebaut, vergessene Caller geändert

Behebt #303, ggf. noch weitere Stellen betroffen.

diff --git a/SL/Controller/Letter.pm b/SL/Controller/Letter.pm
index 9efca360c4a5ff52647c4393a0b77ceff69cc368..780d7f99acdadd59c5a3a5a3eaa58b78934feac7 100644 (file)
--- a/SL/Controller/Letter.pm
+++ b/SL/Controller/Letter.pm
@@ -241,8 +241,8 @@ sub action_print_letter {
       my $signature        = $::myconfig{signature};
       $mail->{$_}          = $params{email}->{$_} for qw(to cc subject message bcc);
       $mail->{from}        = qq|"$::myconfig{name}" <$::myconfig{email}>|;
-      $mail->{attachments} = [{ filename => $result{file_name},
-                                name     => $params{email}->{attachment_filename} }];
+      $mail->{attachments} = [{ path => $result{file_name},
+                                name => $params{email}->{attachment_filename} }];
       $mail->{message}    .=  "\n-- \n$signature";
       $mail->{message}     =~ s/\r//g;
 

diff --git a/SL/DN.pm b/SL/DN.pm
index adb58b711b7cca5f78787694235a9daabc4003af..cf800dac5a0feb2a549d52e1f3624cf4c41bcca5 100644 (file)
--- a/SL/DN.pm
+++ b/SL/DN.pm
@@ -904,7 +904,7 @@ sub print_dunning {
   delete $form->{tmpfile};
 
   push @{ $form->{DUNNING_PDFS} }, $filename;
-  push @{ $form->{DUNNING_PDFS_EMAIL} }, { 'filename' => "${spool}/$filename",
+  push @{ $form->{DUNNING_PDFS_EMAIL} }, { 'path' => "${spool}/$filename",
                                            'name'     => $form->get_formname_translation('dunning') . "_${dunning_id}.pdf" };
 
   $form->get_employee_data('prefix' => 'employee', 'id' => $form->{employee_id});