From e3aa3f5b7ea363bf7ec8e547c583b3b4a0758492 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 8 Mar 2013 17:47:00 +0100
Subject: [PATCH] =?utf8?q?Warnungen=20=C3=BCber=20undefinierte/nicht=20num?=
 =?utf8?q?erische=20Werte=20vermeiden?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/Form.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/SL/Form.pm b/SL/Form.pm
index d130272dd..141233d94 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -931,6 +931,11 @@ sub parse_amount {
 
   my ($self, $myconfig, $amount) = @_;
 
+  if (!defined($amount) || ($amount eq '')) {
+    $main::lxdebug->leave_sub(2);
+    return 0;
+  }
+
   if (   ($myconfig->{numberformat} eq '1.000,00')
       || ($myconfig->{numberformat} eq '1000,00')) {
     $amount =~ s/\.//g;
-- 
2.20.1