"quote," if , is in data

diff --git a/upari.pl b/upari.pl
index c1be2e8..60eb772 100755 (executable)
--- a/upari.pl
+++ b/upari.pl
@@ -298,7 +298,7 @@ foreach my $key ( sort keys %$data ) {
 
                foreach my $val ( 1 .. 4 ) {
                        if ( my $id_data = $data->{$key}->{$id}->{$val} ) {
-                               print $out_fh join(',', @$id_data);
+                               print $out_fh join(',', map { m/,/ ? qq{"$_"} : $_ } @$id_data);
                                $broj_valova++;
                        } else {
                                print $out_fh ( ',' x $#{ $data_headers[$val] } ) ; # FIXME +1?