From e492c53b9ea0c2f69c6e93f10945399707ba0b07 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 18 Jan 2007 16:21:31 +0000
Subject: [PATCH] =?utf8?q?Email-Funktion:=20Wenn=20bei=20den=20Kundendaten?=
 =?utf8?q?=20keine=20Emailadresse=20angegeben,=20daf=C3=BCr=20aber=20ein?=
 =?utf8?q?=20Ansprechpartner=20ausgew=C3=A4hlt=20ist,=20dann=20wird=20die?=
 =?utf8?q?=20Emailadresse=20des=20Ansprechpartners=20automatisch=20eingetr?=
 =?utf8?q?agen.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 bin/mozilla/io.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index c7d0aa37e..bb99e2c57 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -33,6 +33,7 @@
 #
 #######################################################################
 
+use SL::CT;
 use SL::IC;
 use CGI::Ajax;
 use CGI;
@@ -1265,6 +1266,11 @@ sub e_mail {
     $form->{email} = $form->{shiptoemail} if $form->{shiptoemail};
   }
 
+  if ($form->{"cp_id"} && !$form->{"email"}) {
+    CT->get_contact(\%myconfig, $form);
+    $form->{"email"} = $form->{"cp_email"};
+  }
+
   $name = $form->{ $form->{vc} };
   $name =~ s/--.*//g;
   $title = $locale->text('E-mail') . " $name";
-- 
2.20.1