From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 18 Jan 2007 16:21:31 +0000 (+0000)
Subject: Email-Funktion: Wenn bei den Kundendaten keine Emailadresse angegeben, dafür aber... 
X-Git-Tag: release-2.4.1~1^2~21
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=e492c53b9ea0c2f69c6e93f10945399707ba0b07;p=kivitendo-erp.git

Email-Funktion: Wenn bei den Kundendaten keine Emailadresse angegeben, dafür aber ein Ansprechpartner ausgewählt ist, dann wird die Emailadresse des Ansprechpartners automatisch eingetragen.
---

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";