From a63aaabd1fc1e72db9a746e81f62f3703d9985db Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 18 Apr 2007 12:53:12 +0000
Subject: [PATCH] Beim Verschicken von Emails auch die Variable
 $form->{EMAIL_RECIPIENT} als Empfaenger benutzen, falls in $form->{email}
 z.B. die Emailadresse des Kunden steht. Bei der Sammelrechnung genau deswegen
 $form->{EMAIL_RECIPIENT} benutzen.

---
 SL/Form.pm        | 2 +-
 bin/mozilla/rp.pl | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index 928d75fa3..4f4a48d0e 100644
--- 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);
-      $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;
diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index 848ec62ba..8156df08d 100644
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -2018,6 +2018,9 @@ sub print_form {
     $form->{IN} =~ s/html$/tex/;
   }
 
+  # Save $form->{email} because it will be overwritten.
+  $form->{EMAIL_RECIPIENT} = $form->{email};
+
   $i = 0;
   while (@{ $form->{AG} }) {
 
-- 
2.39.5