[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.7, Tue Jun 27 16:45:07 2006 UTC revision 1.8, Tue Jun 27 16:54:35 2006 UTC
# Line 172  Line 172 
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 subsystems";
175      # Count the number of new annotations.      # Count the number of new annotations and features.
176      my $newAnnotations = $sfx->GetCount(['Annotation'], "", []);      my %things = ( Annotation => 'annotations',
177      my $oldAnnotations = $oldSfx->GetCount(['Annotation'], "", []);                     Feature => 'features',
178      my $delta = $newAnnotations - $oldAnnotations;                     Genome => 'organisms'
179                     );
180        for my $thing (sort keys %things) {
181            my $newCount = $sfx->GetCount([$thing], "", []);
182            my $oldCount = $oldSfx->GetCount([$thing], "", []);
183            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 ($newAnnotations > 5) {          if ($delta > 5) {
186          print $handle ", $delta new annotations";              print $handle ", $delta new $things{$thing}s";
187            }
188      }      }
189      # Terminate the heading.      # Terminate the heading.
190      print $handle ".</h3>\n";      print $handle ".</h3>\n";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3