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

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index c7d0aa3..bb99e2c 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";