update_defaults: Fall "Spalte noch leer" richtig behandeln

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 8859cae40f6e3c9980457a2c9c788f017ec374d2..5af4dc28774653a4185f77c253f721e998f1a32c 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -3190,6 +3190,7 @@ sub update_defaults {
   my ($var) = $sth->fetchrow_array;
   $sth->finish;
 
   my ($var) = $sth->fetchrow_array;
   $sth->finish;
 

+  $var   = 0 if !defined($var) || ($var eq '');

   $var   = SL::PrefixedNumber->new(number => $var)->get_next;
   $query = qq|UPDATE defaults SET $fld = ?|;
   do_query($self, $dbh, $query, $var);
   $var   = SL::PrefixedNumber->new(number => $var)->get_next;
   $query = qq|UPDATE defaults SET $fld = ?|;
   do_query($self, $dbh, $query, $var);