From b38ec769818e5d552b9c44325191732dd474f9b3 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 8 Dec 2023 19:33:56 +0100
Subject: [PATCH] remove cr or lf from data to fix csv export

---
 upari.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/upari.pl b/upari.pl
index dc8bead..424136c 100755
--- a/upari.pl
+++ b/upari.pl
@@ -175,7 +175,11 @@ foreach my $val ( 1 .. 4 ) {
 =cut
 		}
 		# remove .000000 from values
-		$data->{$key_id}->{$num}->{$val} = [ map { s/^(\d+)\.0+$/$1/g; $_; } @$row ];
+		$data->{$key_id}->{$num}->{$val} = [ map {
+				s/^(\d+)\.0+$/$1/g;	# remove .0000 decimals
+				s/[\r\n]/ /gs;
+				$_;
+		} @$row ];
 	}
 	close $fh;
 
-- 
2.20.1