Beim Verschicken von Einkaufs- und Verkaufsbelegen per Email nur dann speichern,...

[kivitendo-erp.git] / bin / mozilla / oe.pl

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index a89c06aac0490a95e4ed8c22d61681c868c39cbd..bab0734d639922ce7115bae523f38ebb9d05b3d7 100644 (file)
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -2545,9 +2545,20 @@ sub e_mail {
 
   $form->{print_and_save} = 1;
 
 
   $form->{print_and_save} = 1;
 

-  &save;
+  if (!$form->{id}) {
+    $print_post = 1;
+
+    my $saved_form = save_form();
+
+    save();
+
+    my %saved_vars;
+    map({ $saved_vars{$_} = $form->{$_}; } qw(id ordnumber quonumber));
+    restore_form($saved_form);
+    map({ $form->{$_} = $saved_vars{$_}; } qw(id ordnumber quonumber));
+  }

 
 

-  &edit_e_mail;
+  edit_e_mail();

 
   $lxdebug->leave_sub();
 }
 
   $lxdebug->leave_sub();
 }