[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.33, Tue Apr 29 20:50:13 2008 UTC revision 1.34, Sat Sep 20 14:31:22 2008 UTC
# Line 217  Line 217 
217                  $groupTotals{$counterKey} += $counters{$counterKey};                  $groupTotals{$counterKey} += $counters{$counterKey};
218              }              }
219              $groupTotals{features} += $totalFeatures;              $groupTotals{features} += $totalFeatures;
220              # 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.
             # First, the link stuff.  
             my $linkPrefix = "%NMPDR{FIG/genome_statistics.cgi}%?user=;genome=$genomeID;SPROUT=1;request=";  
             # Now format the counters and percentages.  
221              for my $type (keys %linkParms) {              for my $type (keys %linkParms) {
222                  $counters{$type} = a( { href => "$linkPrefix$linkParms{$type}" },                  $counters{$type} = sprintf("%d(%.1f%%)", $counters{$type},
223                                       sprintf("%d(%.1f%%)", $counters{$type},                                             Tracer::Percent($counters{$type}, $totalFeatures));
                                              Tracer::Percent($counters{$type}, $totalFeatures)));  
224              }              }
225              my @counterValues = map { $counters{$_} } @columnTypes;              my @counterValues = map { $counters{$_} } @columnTypes;
226              # The last link is a button to look at the subsystem summaries.              # The last column is a subsystem count.
227              my $ssCount = $sprout->GetCount(['ParticipatesIn'], 'ParticipatesIn(from-link) = ?',              my $ssCount = $sprout->GetCount(['ParticipatesIn'], 'ParticipatesIn(from-link) = ?',
228                                                 [$genomeID]);                                                 [$genomeID]);
229              my $ssLink = "$options->{linkCGI}?user=\&genome=$genomeID&SPROUT=1&show_subsystems=1";              my $ssCol = $ssCount;
             my $ssCol = "<a href=\"$ssLink\">$ssCount</a>";  
230              # Start creating the table cells.              # Start creating the table cells.
231              my $rowHtml = "| $genomeText |";              my $rowHtml = "| $genomeText |";
232              # Add any special columns.              # Add any special columns.

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3