Mailer: Zeichensatzattribut bei Anhängen nur bei Text-Anhängen setzen

[kivitendo-erp.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 55817db5535538ceeece09f895869cac6bef19d5..6f183e90a2500061c90a878a34da4fb51f9e5f55 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1201,7 +1201,7 @@ sub send_email {
                                         id      => $attfile->id,
                                         type    => $attfile->mime_type,
                                         name    => $attfile->file_name,
                                         id      => $attfile->id,
                                         type    => $attfile->mime_type,
                                         name    => $attfile->file_name,

-                                        content => $attfile->get_content };
+                                        content => $attfile->get_content ? ${ $attfile->get_content } : undef };

     }
   }
   $mail->{message}  =~ s/\r//g;
     }
   }
   $mail->{message}  =~ s/\r//g;


@@ -1293,6 +1293,7 @@ sub get_formname_translation {
     dunning                 => $main::locale->text('Dunning'),
     letter                  => $main::locale->text('Letter'),
     ic_supply               => $main::locale->text('Intra-Community supply'),
     dunning                 => $main::locale->text('Dunning'),
     letter                  => $main::locale->text('Letter'),
     ic_supply               => $main::locale->text('Intra-Community supply'),

+    statement               => $main::locale->text('Statement'),

   );
 
   $main::lxdebug->leave_sub();
   );
 
   $main::lxdebug->leave_sub();