Aktualisierung

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 44d857c8658ce48fa26ed4cd1fdf04745f156cc4..b63e633abaa3ca15731a952264a632be0198b07e 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -147,7 +147,7 @@ sub new {
   $self->{action} = lc $self->{action};
   $self->{action} =~ s/( |-|,|\#)/_/g;
 
-  $self->{version}   = "2.4.1";
+  $self->{version}   = "2.4.2";
 
   $main::lxdebug->leave_sub();
 
@@ -653,7 +653,7 @@ sub format_amount {
   }
   my $neg = ($amount =~ s/-//);
 
-  if (defined($places)) {
+  if (defined($places) && ($places ne '')) {
     if ($places < 0) {
       $amount *= 1;
       $places *= -1;