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

Diff of /Sprout/Sprout.pm

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

revision 1.85, Tue Sep 19 00:14:04 2006 UTC revision 1.87, Tue Sep 26 13:46:03 2006 UTC
# Line 3274  Line 3274 
3274          # Here we have a group list. Loop through them individually,          # Here we have a group list. Loop through them individually,
3275          # getting a list of the relevant genomes.          # getting a list of the relevant genomes.
3276          for my $group (@{$groupList}) {          for my $group (@{$groupList}) {
3277              my @genomeIDs = $self->GetFlat(['Genome'], "Genome(group-name) = ?",              my @genomeIDs = $self->GetFlat(['Genome'], "Genome(primary-group) = ?",
3278                  [$group], "Genome(id)");                  [$group], "Genome(id)");
3279              $retVal{$group} = \@genomeIDs;              $retVal{$group} = \@genomeIDs;
3280          }          }
# Line 3282  Line 3282 
3282          # Here we need all of the groups. In this case, we run through all          # Here we need all of the groups. In this case, we run through all
3283          # of the genome records, putting each one found into the appropriate          # of the genome records, putting each one found into the appropriate
3284          # group. Note that we use a filter clause to insure that only genomes          # group. Note that we use a filter clause to insure that only genomes
3285          # in groups are included in the return set.          # in real NMPDR groups are included in the return set.
3286          my @genomes = $self->GetAll(['Genome'], "Genome(group-name) > ' '", [],          my @genomes = $self->GetAll(['Genome'], "Genome(primary-group) <> ?",
3287                                      ['Genome(id)', 'Genome(group-name)']);                                      [$FIG_Config::otherGroup], ['Genome(id)', 'Genome(primary-group)']);
3288          # Loop through the genomes found.          # Loop through the genomes found.
3289          for my $genome (@genomes) {          for my $genome (@genomes) {
3290              # Pop this genome's ID off the current list.              # Pop this genome's ID off the current list.

Legend:
Removed from v.1.85  
changed lines
  Added in v.1.87

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3