gestione D2W ok

2020-11-01 19:32:10 +01:00
parent b76acb5893
commit 0f8c31bfb8
1 changed files with 7 additions and 7 deletions
--- a/LoadCSVData.pl
+++ b/LoadCSVData.pl
@@ -562,7 +562,7 @@ while ( my $line = <FILE> ) {

                #$NodeData =~ s/Dis\./N\/A/g;
                @NewData = grep /\S/, split( /\||;/, $NodeData );
-
+                if ( scalar (@NewData) != 0 ) {
                  my $idx = 0;

                  $CSVData[ $idx++ ] = join( ';', splice( @NewData, 0, 2 ) );
@@ -570,7 +570,7 @@ while ( my $line = <FILE> ) {
                      $CSVData[ $idx++ ] =
                        join( ';', splice( @NewData, 0, $ch ) );
                  }
-
+                }
            }
            elsif ( $tooltype eq "MUSA" ) {