modify multiple columns

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