Ajust function for get total of backups (incr + full)

Check.pm

@@ -36,10 +36,10 @@ sub action
 
     # Start loop
     foreach my $host ( GetUserHosts(1) ) {
-      my($incrAge, $reasonHilite, $frequency, $lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor, $ifErrors, $sizeConsistency, $sizeConsistencyColor);
+      my($incrAge, $reasonHilite, $frequency, $lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor, $ifErrors, $sizeConsistency, $sizeConsistencyColor, $fullCnt, $incrCnt, $nbBackups);
       my($shortErr);
       my @Backups = $bpc->BackupInfoRead($host);
-      my $fullCnt = $incrCnt = 0;
+      $fullCnt = $incrCnt = $nbBackup = 0;
 
       $bpc->ConfigRead($host);
       %Conf = $bpc->Conf();
@@ -50,9 +50,9 @@ sub action
       # Get number of total backups
       for ( my $i = 0 ; $i < @Backups ; $i++ ) {
           if ( $Backups[$i]{type} eq "full" ) { $fullCnt++; }
-          } elsif ( $Backups[$i]{type} eq "incr" ) { $incrCnt++; }
+          elsif ( $Backups[$i]{type} eq "incr" ) { $incrCnt++; }
       }
-      my $nbBackup = $fullCnt + $incrCnt;
+      $nbBackups = $fullCnt + $incrCnt;
 
       # Get frequency for this host
       if ( $Conf{IncrPeriod} < $Conf{FullPeriod} ) {