From 0f8c31bfb80716efc8f4ae7db1c428c66e7e643e Mon Sep 17 00:00:00 2001
From: Alessandro Battilani <alessandro.battilani@gmail.com>
Date: Sun, 1 Nov 2020 19:32:10 +0100
Subject: [PATCH] gestione D2W ok

---
 LoadCSVData.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/LoadCSVData.pl b/LoadCSVData.pl
index bba5295..1d10c9c 100644
--- a/LoadCSVData.pl
+++ b/LoadCSVData.pl
@@ -562,15 +562,15 @@ while ( my $line = <FILE> ) {
 
                 #$NodeData =~ s/Dis\./N\/A/g;
                 @NewData = grep /\S/, split( /\||;/, $NodeData );
+                if ( scalar (@NewData) != 0 ) {
+                  my $idx = 0;
 
-                my $idx = 0;
-
-                $CSVData[ $idx++ ] = join( ';', splice( @NewData, 0, 2 ) );
-                foreach my $ch (@channels) {
-                    $CSVData[ $idx++ ] =
-                      join( ';', splice( @NewData, 0, $ch ) );
+                  $CSVData[ $idx++ ] = join( ';', splice( @NewData, 0, 2 ) );
+                  foreach my $ch (@channels) {
+                      $CSVData[ $idx++ ] =
+                        join( ';', splice( @NewData, 0, $ch ) );
+                  }
                 }
-
             }
             elsif ( $tooltype eq "MUSA" ) {