Beim Verschicken von Belegen per Email den Betreff analog zum Namen des Anhangs vorbe...

[mfinanz.git] / bin / mozilla / io.pl

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 5385b17ceb8a192323d7a1c2b0fb10a86da4c5ec..b48671bae20f4a1c695fd121ef174b29c7d33cbf 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -967,6 +967,7 @@ sub edit_e_mail {
   $form->{media}    = "email";
 
   my $attachment_filename = $form->generate_attachment_filename();
+  my $subject             = $form->{subject} || $form->generate_email_subject();
 
   $form->{"fokus"} = $form->{"email"} ? "Form.subject" : "Form.email";
   $form->header;
@@ -979,6 +980,7 @@ sub edit_e_mail {
   print $form->parse_html_template('generic/edit_email',
                                    { title           => $title,
                                      a_filename      => $attachment_filename,
+                                     subject         => $subject,
                                      _print_options_ => print_options('inline' => 1),
                                      HIDDEN          => [ map +{ name => $_, value => $form->{$_} }, @hidden_keys ],
                                      SHOW_BCC        => $myconfig{role} eq 'admin' });