[Bio] / Sprout / GenomeStats.pl Repository:
ViewVC logotype

Diff of /Sprout/GenomeStats.pl

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

revision 1.4, Sun Jun 18 07:12:58 2006 UTC revision 1.7, Sun Jun 18 07:39:38 2006 UTC
# Line 190  Line 190 
190                  $counters{$ss} += 1;                  $counters{$ss} += 1;
191                  $totalFeatures++;                  $totalFeatures++;
192              }              }
193              Trace("$totalFeatures total feature found for $genomeID.") if T(3);              Trace("$totalFeatures total features found for $genomeID.") if T(3);
194              # We have all our data. Next we need to compute the percentages and the links.              # We have all our data. Next we need to compute the percentages and the links.
195              # First, the link stuff.              # First, the link stuff.
196              my $linkPrefix = "$options->{linkCGI}?user=\&genome=$genomeID&SPROUT=1&request=";              my $linkPrefix = "$options->{linkCGI}?user=\&genome=$genomeID&SPROUT=1&request=";
# Line 198  Line 198 
198              for my $type (keys %linkParms) {              for my $type (keys %linkParms) {
199                  $counters{$type} = a( { href => "$linkPrefix$linkParms{$type}" },                  $counters{$type} = a( { href => "$linkPrefix$linkParms{$type}" },
200                                       sprintf("%d(%.1f%%)", $counters{$type},                                       sprintf("%d(%.1f%%)", $counters{$type},
201                                               $counters{$type} * 100 / $totalFeatures));                                               Tracer::Percent($counters{$type}, $totalFeatures)));
202              }              }
203              # Create the row text.              # Create the row text.
204              my $rowHtml = td( "$genomeName$new", $genomeLen, $pegCount,              my $rowHtml = td( "$genomeName$new", $genomeLen, $pegCount,
# Line 265  Line 265 
265              $realGroupID = $1;              $realGroupID = $1;
266          }          }
267          # Append this group's genomes into the result hash.          # Append this group's genomes into the result hash.
268          Tracer::AddToListMap(\%retVal, $realGroupID, $groupHash{$groupID});          Tracer::AddToListMap(\%retVal, $realGroupID, @{$groupHash{$groupID}});
269      }      }
270      # Return the result hash.      # Return the result hash.
271      return %retVal;      return %retVal;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3