From d6b2d508833e58c88f02bf40de1ce20ec97c84eb Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 8 Dec 2023 09:58:49 +0100
Subject: [PATCH] remove .000000 from values

---
 upari.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/upari.pl b/upari.pl
index 72a512f..222dc39 100755
--- a/upari.pl
+++ b/upari.pl
@@ -152,7 +152,8 @@ foreach my $val ( 1 .. 4 ) {
 			#print "new=", dump( $row ), $/;
 =cut
 		}
-		$data->{$key_id}->{$num}->{$val} = $row;
+		# remove .000000 from values
+		$data->{$key_id}->{$num}->{$val} = [ map { s/^(\d+)\.0+$/$1/g; $_; } @$row ];
 	}
 	close $fh;
 
-- 
2.20.1