X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/88bc69df3f068d3ca75d5a48ea46e5b26a448792..db68b6fd72b9f0d7d8be953746c0e7d6154f5eaf:/bin/mozilla/is.pl

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index d50d6d0f7..30d0a072f 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -1451,7 +1451,7 @@ sub post {
     if (!(IS->post_invoice(\%myconfig, \%$form))) {
       $form->error($locale->text('Cannot post invoice!'));
     }
-    remove_draft();
+    remove_draft() if $form->{remove_draft};
     # saving the history
   	if(!exists $form->{addition}) {
   	  $form->{addition} = "PRINTED AND POSTED";
@@ -1461,7 +1461,7 @@ sub post {
     
   } else {
     if (IS->post_invoice(\%myconfig, \%$form)){
-      remove_draft();
+      remove_draft() if $form->{remove_draft};
     	# saving the history
         if(!exists $form->{addition}) {
   	  		if($form->{storno}) {