Beim Verschicken von Emails auch die Variable $form->{EMAIL_RECIPIENT} als Empfaenger...

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 928d75fa383a6563391558769332d08809a28f1e..4f4a48d0e5a07f766b5b02aef5308fe2c914a72a 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -796,7 +796,7 @@ sub parse_template {
 
       map { $mail->{$_} = $self->{$_} }
         qw(cc bcc subject message version format charset);
 
       map { $mail->{$_} = $self->{$_} }
         qw(cc bcc subject message version format charset);

-      $mail->{to}     = qq|$self->{email}|;
+      $mail->{to} = $self->{EMAIL_RECIPIENT} ? $self->{EMAIL_RECIPIENT} : $self->{email};

       $mail->{from}   = qq|"$myconfig->{name}" <$myconfig->{email}>|;
       $mail->{fileid} = "$fileid.";
       $myconfig->{signature} =~ s/\\r\\n/\\n/g;
       $mail->{from}   = qq|"$myconfig->{name}" <$myconfig->{email}>|;
       $mail->{fileid} = "$fileid.";
       $myconfig->{signature} =~ s/\\r\\n/\\n/g;