[Bio] / Sprout / GenomeSaplingLoader.pm Repository:
ViewVC logotype

Diff of /Sprout/GenomeSaplingLoader.pm

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

revision 1.6, Wed Nov 25 20:38:13 2009 UTC revision 1.7, Wed Nov 25 22:01:03 2009 UTC
# Line 125  Line 125 
125          # Get the next record.          # Get the next record.
126          $self->Add("set-records" => 1);          $self->Add("set-records" => 1);
127          my ($newSetID, $genomeID, $name) = Tracer::GetLine($ih);          my ($newSetID, $genomeID, $name) = Tracer::GetLine($ih);
128            # Only accept the genome if it's one of ours.
129            if ($genomeHash->{$genomeID}) {
130          # Is this a new set?          # Is this a new set?
131          if ($newSetID != $setID) {          if ($newSetID != $setID) {
132              # Yes. Output the old set.              # Yes. Output the old set.
# Line 146  Line 148 
148              $names{$genus}++;              $names{$genus}++;
149          }          }
150      }      }
151        }
152      # Close the input file.      # Close the input file.
153      close $ih;      close $ih;
154      # Output the last set.      # Output the last set.

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3