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

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;

diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index 848ec62baed3981fd79e80af34a8bc061c7ec8fc..8156df08d5d45f5470378ec66cf27d5f91f9a044 100644 (file)
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -2018,6 +2018,9 @@ sub print_form {
     $form->{IN} =~ s/html$/tex/;
   }
 
     $form->{IN} =~ s/html$/tex/;
   }
 

+  # Save $form->{email} because it will be overwritten.
+  $form->{EMAIL_RECIPIENT} = $form->{email};
+

   $i = 0;
   while (@{ $form->{AG} }) {
 
   $i = 0;
   while (@{ $form->{AG} }) {