[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.8, Sun Jun 18 07:53:45 2006 UTC revision 1.9, Sun Jun 18 08:10:42 2006 UTC
# Line 134  Line 134 
134          # Start the table.          # Start the table.
135          print GROUPFILE "<table class=\"$tableStyle\">\n";          print GROUPFILE "<table class=\"$tableStyle\">\n";
136          # Create the header row.          # Create the header row.
137          print GROUPFILE Tr( { class => 'odd' }, th("Strain annotated in NMPDR",          print GROUPFILE Tr( { class => 'odd' }, th(["Strain annotated in NMPDR",
138                                                   "Genome size, bp",                                                   "Genome size, bp",
139                                                   "Protein Encoding Genes (PEGs)",                                                   "Protein Encoding Genes (PEGs)",
140                                                   "Named genes in subsystems",            # s0                                                   "Named genes in subsystems",            # s0
141                                                   "Named genes not in subsystems",        # n0                                                   "Named genes not in subsystems",        # n0
142                                                   "Hypothetical genes in subsystems",     # s1                                                   "Hypothetical genes in subsystems",     # s1
143                                                   "Hypothetical genes not in subsystems", # n1                                                   "Hypothetical genes not in subsystems", # n1
144                                                   "RNAs")) . "\n";                                                   "RNAs",
145                                                       ])) . "\n";
146          # Set up some useful stuff for the four count columns.          # Set up some useful stuff for the four count columns.
147          my %linkParms = ( s0 => "nohypo_sub", n0 => "nohypo_nosub",          my %linkParms = ( s0 => "nohypo_sub", n0 => "nohypo_nosub",
148                            s1 => "hypo_sub", n1 => "hypo_nosub" );                            s1 => "hypo_sub", n1 => "hypo_nosub" );
# Line 200  Line 201 
201                                       sprintf("%d(%.1f%%)", $counters{$type},                                       sprintf("%d(%.1f%%)", $counters{$type},
202                                               Tracer::Percent($counters{$type}, $totalFeatures)));                                               Tracer::Percent($counters{$type}, $totalFeatures)));
203              }              }
204                my @counterValues = map { $counters{$_} } @columnTypes;
205              # Create the row text. We use a list reference to distribute the TD tag              # Create the row text. We use a list reference to distribute the TD tag
206              # across all the cells.              # across all the cells.
207              my $rowHtml = td(["$genomeName$new", $genomeLen, $pegCount,              my $rowHtml = td(["$genomeName$new", $genomeLen, $pegCount,
208                                map { $counters{$_} } @columnTypes,                                @counterValues, $rnaCount,
                               $rnaCount,  
209                               ]);                               ]);
210              # Put it in the row hash.              # Put it in the row hash.
211              $rows{$genomeName} = $rowHtml;              $rows{$genomeName} = $rowHtml;

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3