diff --git a/LoadCSVData.pl b/LoadCSVData.pl index 0f1faf3..08cea7b 100755 --- a/LoadCSVData.pl +++ b/LoadCSVData.pl @@ -522,10 +522,17 @@ while ( my $line = ) { $CSVData[ $idx++ ] = join( ';', splice( @NewData, 0, 2 ) ); foreach my $ch (@channels) { - $CSVData[ $idx++ ] = - join( ';', splice( @NewData, 0, $ch ) ); + if ( $ch > 0 ) { + $CSVData[ $idx++ ] = + join( ';', splice( @NewData, 0, $ch ) ); + } } } + + #print Dumper \@CSVData; + #print Dumper \@channels; + #print Dumper \@din; + } elsif ( $tooltype eq "MUSA" ) {