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 362268d..6f183e9 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,
-                                        content => $attfile->get_content };
+                                        content => $attfile->get_content ? ${ $attfile->get_content } : undef };
     }
   }
   $mail->{message}  =~ s/\r//g;