Email-Funktion: Wenn bei den Kundendaten keine Emailadresse angegeben, dafür aber...

[mfinanz.git] / bin / mozilla / io.pl

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index c7d0aa37ea84cc8804357bc23abfbc5568b8a1e3..bb99e2c579f8e0aecc40fa321f7c9bbcd2011596 100644 (file)
--- 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";