Warnungen über undefinierte/nicht numerische Werte vermeiden
authorMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 8 Mar 2013 16:47:00 +0000 (17:47 +0100)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 8 Mar 2013 16:55:08 +0000 (17:55 +0100)
SL/Form.pm

index d130272..141233d 100644 (file)
@@ -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;