From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 28 Feb 2017 16:00:23 +0000 (+0100)
Subject: Dateimanagement: Anhänge nicht als Referenz an SL::Mailer übergeben
X-Git-Tag: release-3.5.4~1247
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=9871f82b4a4f8f7aec00c5f950555645b5d56936;p=kivitendo-erp.git

Dateimanagement: Anhänge nicht als Referenz an SL::Mailer übergeben

SL::Mailer erwartet, dass der Inhalt der Anhänge, die in
$mailer->{attachments} übergeben werden, direkt im Attribut »content«
gespeichert ist.

Das Interface von SL::File hingegen gibt nur eine Skalarreferenz auf
den Dateiinhalt zurück. Daher kann diese nicht 1:1 an den SL::Mailer
übergeben werden, da es ansonsten zu Fehlermeldungen von Rose beim
Speichern im E-Mail-Journal kommt (»cannot bind reference«).
---

diff --git a/SL/Form.pm b/SL/Form.pm
index 362268d3e..6f183e90a 100644
--- 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,
-                                        content => $attfile->get_content };
+                                        content => $attfile->get_content ? ${ $attfile->get_content } : undef };
     }
   }
   $mail->{message}  =~ s/\r//g;