[Bio] / FortyEight / get_number_of_external_jobs.pl Repository:
ViewVC logotype

Diff of /FortyEight/get_number_of_external_jobs.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Mon Nov 5 20:19:18 2007 UTC revision 1.2, Mon Nov 5 20:23:46 2007 UTC
# Line 55  Line 55 
55  }  }
56    
57    
58    my $nr_excluded = 0;
59  foreach my $user ( keys %overview ){  foreach my $user ( keys %overview ){
60    foreach my $genome ( keys %{ $overview{ $user } } ){    foreach my $genome ( keys %{ $overview{ $user } } ){
61      unless ( $exclude->{ $user } ){      if ( $exclude->{ $user } ){
62          $nr_excluded++;
63        }
64        else{
65        print $user , "\t" , $genome ,"\t", $overview{ $user }->{ $genome }, "\n";        print $user , "\t" , $genome ,"\t", $overview{ $user }->{ $genome }, "\n";
66      }      }
67    }    }
68  }  }
69    
70    print "Excluded jobs = $nr_excluded\n";

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3