[Bio] / FigWebServices / subsys_summary.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys_summary.cgi

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

revision 1.15, Sat Feb 12 23:36:21 2005 UTC revision 1.16, Sun Feb 13 00:00:35 2005 UTC
# Line 153  Line 153 
153     my $totalpegs;     my $totalpegs;
154     my $nzv=0; # non-zero variant codes     my $nzv=0; # non-zero variant codes
155     # there should be a quicker way of getting this ... ?     # there should be a quicker way of getting this ... ?
    foreach my $role (@roles) {  
156      foreach my $genome (keys %genomes) {      foreach my $genome (keys %genomes) {
157        foreach my $role (@roles) {
158       my $count = scalar ($fig->pegs_in_subsystem_cell($subsys, $genome, $role));       my $count = scalar ($fig->pegs_in_subsystem_cell($subsys, $genome, $role));
159       $pegcount->{$genome} += $count;       $pegcount->{$genome} += $count;
160       $totalpegs += $count;       $totalpegs += $count;
161        }
162       my $vc=$fig->get_subsystem($subsys)->get_variant_code_for_genome($genome);       my $vc=$fig->get_subsystem($subsys)->get_variant_code_for_genome($genome);
163       unless ($vc == 0) {$nzv++}       unless ($vc == 0) {$nzv++}
164      }      }
    }  
165    
166     # add non-zero variant codes     # add non-zero variant codes
167     push @$tablerows, [$nzv, 1, $rows];     push @$tablerows, [$nzv, 1, $rows];

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3