[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.6, Wed Jan 9 21:40:06 2008 UTC revision 1.7, Fri Feb 27 16:23:26 2009 UTC
# Line 39  Line 39 
39                  fmeyer => 1 ,                  fmeyer => 1 ,
40                  gdpusch => 1 ,                  gdpusch => 1 ,
41                  awilke => 1 ,                  awilke => 1 ,
42                    vvons  => 1,
43                };                };
44    
45  my %overview;  my %overview;
46    
47  for my $job (@jobs)  {  for my $job (@jobs)  {
48    my $jobuser = $job->getUserObject();    my $jobuser = $job->getUserObject();
49    # print $jobuser->login."\t".$job->genome_name."\n";    unless ($jobuser and ref $jobuser){
50            print STDERR "No user for $job\n";
51            next;
52            }
53       print $jobuser->login."\t".$job->genome_name."\n";
54    if ( $overview{ $jobuser->login }->{ $job->genome_name } ){    if ( $overview{ $jobuser->login }->{ $job->genome_name } ){
55      my $nr = $overview{ $jobuser->login }->{ $job->genome_name };      my $nr = $overview{ $jobuser->login }->{ $job->genome_name };
56      $nr++;      $nr++;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3