reformat float using sprintf

[MojoFacets.git] / public / code / Duguje.float.pl

diff --git a/public/code/Duguje.float.pl b/public/code/Duguje.float.pl
index 317012d..960f63a 100644 (file)
--- a/public/code/Duguje.float.pl
+++ b/public/code/Duguje.float.pl
@@ -2,7 +2,6 @@ foreach my $col ( grep { m/(Duguje|Potra.uje|Saldo)/ } keys %$row ) {
  foreach my $v ( @{ $row->{$col} } ) {\r
   push @{ $update->{ $col . '_old' } }, $v;\r
   $v =~ s/(\d+)?\.?(\d{0,3})\,(\d{2})/$1$2.$3/;\r
-  $v *= 1;\r
-  push @{ $update->{$col} }, $v;\r
+  push @{ $update->{$col} }, sprintf('%.2f',$v);\r
  }\r
-}\r
+}
\ No newline at end of file