Warnungen über undefinierte/nicht numerische Werte vermeiden

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index d130272dd41b7427df9c0e09de176c2530afd142..141233d94c94735f3f1efbec418441508cfc4bcc 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -931,6 +931,11 @@ sub parse_amount {
 
   my ($self, $myconfig, $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;
   if (   ($myconfig->{numberformat} eq '1.000,00')
       || ($myconfig->{numberformat} eq '1000,00')) {
     $amount =~ s/\.//g;