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

Diff of /Sprout/NewStuffCheck.pl

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

revision 1.5, Thu Aug 24 09:16:18 2006 UTC revision 1.6, Thu Aug 24 17:30:38 2006 UTC
# Line 100  Line 100 
100      my %skipGenes = map { $_->[0] => 1 } @{$insertedGenomes};      my %skipGenes = map { $_->[0] => 1 } @{$insertedGenomes};
101      # Loop through the genomees.      # Loop through the genomees.
102      for my $genome (@newGenomes) {      for my $genome (@newGenomes) {
103          # Only process this gene if it's common to both          # Get the ID and name.
104          my ($genomeID, $genomeName) = @{$genome};          my ($genomeID, $genomeName) = @{$genome};
         if (! exists $skipGenes{$genomeID}) {  
105              Trace("Processing $genomeID.") if T(3);              Trace("Processing $genomeID.") if T(3);
106            if ($skipGenes{$genomeID}) {
107                # For a new
108            } else {
109              # Get the new and old features. This will be very stressful to the machine,              # Get the new and old features. This will be very stressful to the machine,
110              # because there are lots of features.              # because there are lots of features.
111              my @oldFeatures = GetFeatures($oldSprout, $genomeID);              my @oldFeatures = GetFeatures($oldSprout, $genomeID);
# Line 263  Line 265 
265      my $all = shift @_;      my $all = shift @_;
266      my %lists = @_;      my %lists = @_;
267      # Loop through the lists in alphabetical order by list name.      # Loop through the lists in alphabetical order by list name.
268      for my $listName (keys %lists) {      for my $listName (sort keys %lists) {
269          # Get the list itself.          # Get the list itself.
270          my $list = $lists{$listName};          my $list = $lists{$listName};
271          # Get the number of list items.          # Get the number of list items.
272          my $listSize = scalar @{$list};          my $listSize = scalar @{$list};
273          # Display the header.          # Only proceed if the list is nonempty.
274            if ($listSize > 0) {
275          my $header;          my $header;
276          if ($listSize == 0) {              if ($listSize == 1) {
             $header = "*** $listName: no entries";  
         } elsif ($listSize == 1) {  
277              $header = "*** $listName: one entry";              $header = "*** $listName: one entry";
278          } else {          } else {
279              $header = "*** $listName: $listSize entries";              $header = "*** $listName: $listSize entries";
# Line 297  Line 298 
298          }          }
299      }      }
300  }  }
301    }
302    
303  1;  1;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3