From dd9984eccb5f07a34689992cd0d353b94da2089c Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 22 Jun 2010 16:14:52 +0200
Subject: [PATCH] modify multiple columns

---
 public/code/Duguje.float.pl | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

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