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

Diff of /Sprout/ShowCounts.pl

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

revision 1.8, Tue Jun 27 16:54:35 2006 UTC revision 1.9, Tue Jun 27 17:06:41 2006 UTC
# Line 171  Line 171 
171      print $handle "<br />$output";      print $handle "<br />$output";
172      # Get the number of subsystems.      # Get the number of subsystems.
173      my $subsystems = $sfx->GetCount(['Subsystem'], "", []);      my $subsystems = $sfx->GetCount(['Subsystem'], "", []);
174      print $handle "<br />$subsystems subsystems";      print $handle "<br />$subsystems active subsystems";
175      # Count the number of new annotations and features.      # Count the number of new annotations and features.
176      my %things = ( Annotation => 'annotations',      my %things = ( Annotation => 'annotations',
177                     Feature => 'features',                     Feature => 'features',
# Line 183  Line 183 
183          my $delta = $newCount - $oldCount;          my $delta = $newCount - $oldCount;
184          # Only display them if there's a reasonable number.          # Only display them if there's a reasonable number.
185          if ($delta > 5) {          if ($delta > 5) {
186              print $handle ", $delta new $things{$thing}s";              print $handle ", $delta&nbsp;new&nbsp;$things{$thing}";
187          }          }
188      }      }
189      # Terminate the heading.      # Terminate the heading.

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3