From 7bc5598c8f1164a811d5118dcab57bd4e206289b Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 5 Mar 2007 14:22:22 +0000
Subject: [PATCH] =?utf8?q?Stornieren=20einer=20Verkaufsrechnung:=20vor=20d?=
 =?utf8?q?em=20Stornieren=20die=20Rechnungsdaten=20aus=20der=20Datenbank?=
 =?utf8?q?=20laden=20und=20nicht=20die=20gerade=20in=20der=20Maske=20aktue?=
 =?utf8?q?ll=20g=C3=BCltigen=20Daten=20benutzen.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 bin/mozilla/is.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

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} = "";
-- 
2.20.1