errore ctrl send ftp e query sxclude anchor e none

LoadCSVData.pl

@@ -207,7 +207,7 @@ sub getNodesType {
                            inner join tools as t on t.id = n.tool_id
                            inner join units as u on u.id = t.unit_id
                            inner join nodetypes as y on n.nodetype_id = y.id
-                           where t.name = "'
+                           where y.type not in (\'Anchor Link\', \'None\') and t.name = "'
           . $tool
           . '" and u.name = "'
           . $unit
@@ -522,10 +522,9 @@ while ( my $line = <FILE> ) {
                         $CSVData[ $idx++ ] =
                           join( ';', splice( @NewData, 0, 2 ) );
                         foreach my $ch (@channels) {
-                            if ( $ch > 0 ) {
-                                $CSVData[ $idx++ ] =
-                                  join( ';', splice( @NewData, 0, $ch ) );
-                            }
+                            $CSVData[ $idx++ ] =
+                              join( ';', splice( @NewData, 0, $ch ) );
+
                         }
                     }
 

SendFtpElabData.pl

@@ -72,7 +72,7 @@ sub trxelab {
 
     my $fileelab;
 
-    if ( !defined($ftp_filename) or $ftp_filename eq "" ) {
+    if ( !defined $ftp_filename or $ftp_filename eq "" ) {
         $fileelab =
             '/var/lib/mysql-files/'
           . $tool . '_'
@@ -123,8 +123,7 @@ sub trxelab {
     print getTimeStamp("log") . " - pid $$ >> $unit - $tool ftp parm:\n";
 
     while ( my ( $key, $value ) = each(%ftp_parms) ) {
-        print getTimeStamp("log")
-          . " - pid $$ >> - $key = $ftp_parms{$key}\n";
+        print getTimeStamp("log") . " - pid $$ >> - $key = $ftp_parms{$key}\n";
     }
 
     if (   !defined $duedate