X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/71b8b51469ed9cb1da0c87e8d4de07e7dfe30589..ed76c91e9b0870269fd66b3b6d13dbeb68c9c153:/bin/mozilla/is.pl

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index c44351d00..4adc9f708 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -861,6 +861,11 @@ sub storno {
     $form->error($locale->text('Cannot storno invoice for a closed period!'));
   }
 
+  # save the history of invoice being stornoed
+  $form->{snumbers} = qq|invnumber_| . $form->{invnumber};
+  $form->{addition} = "STORNO";
+  $form->save_history;
+
   map({ my $key = $_; delete($form->{$key}) unless (grep({ $key eq $_ } qw(id login password type))); } keys(%{ $form }));
 
   invoice_links();