X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fio.pl;h=03ca708546cdafb64f40c15d4015ac8a8ba9d75a;hb=f49ad7f1f479daf79dd78d3ff0e0894c1e6c311c;hp=b50fe4e148eda0350161d86848de711af6af9c83;hpb=b1dbc0a2a7a5b363ee05d62acdc86bc8c76bb1be;p=kivitendo-erp.git

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index b50fe4e14..03ca70854 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1040,9 +1040,9 @@ sub edit_e_mail {
 
   $form->{email} = $form->{shiptoemail} if $form->{shiptoemail} && $form->{formname} =~ /(pick|packing|bin)_list/;
 
-  if ($form->{"cp_id"} && !$form->{"email"}) {
+  if ($form->{"cp_id"}) {
     CT->get_contact(\%myconfig, $form);
-    $form->{"email"} = $form->{"cp_email"};
+    $form->{"email"} = $form->{"cp_email"} if $form->{"cp_email"};
   }
 
   my $title = $locale->text('E-mail') . " " . $form->get_formname_translation();
@@ -1263,6 +1263,7 @@ sub print {
     &save();
     $form->{formname} = $formname;
     &edit();
+    $::lxdebug->leave_sub();
     ::end_of_request();
   }