X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/eb173d13dbd63cd2fdbeae93edf8dcb61900e0c9..7bc5598c8f1164a811d5118dcab57bd4e206289b:/bin/mozilla/is.pl

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 5bfa9deeb..f36c8f2d0 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -1522,6 +1522,14 @@ sub storno {
     $form->error($locale->text("Invoice has already been storno'd!"));
   }
 
+  map({ my $key = $_; delete($form->{$key})
+          unless (grep({ $key eq $_ } qw(path login password id type))); }
+      keys(%{ $form }));
+
+  &invoice_links;
+  &prepare_invoice;
+  relink_accounts();
+
   $form->{storno_id} = $form->{id};
   $form->{storno} = 1;
   $form->{id} = "";