[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.106, Wed Feb 6 23:21:02 2008 UTC revision 1.107, Thu Feb 7 00:06:16 2008 UTC
# Line 155  Line 155 
155      my @genomes = $sprout->RealCoreGenomes();      my @genomes = $sprout->RealCoreGenomes();
156    
157  Return the IDs of the original core NMPDR genomes. These are the ones  Return the IDs of the original core NMPDR genomes. These are the ones
158  in the major groups indicated in the C<@realCoreGroups> member of the  in the major groups indicated in the C<$realCoreGroups> member of the
159  B<FIG_Config> file.  B<FIG_Config> file.
160    
161  =cut  =cut
# Line 170  Line 170 
170      # Loop through the groups, keeping the ones that belong to real core      # Loop through the groups, keeping the ones that belong to real core
171      # organisms.      # organisms.
172      for my $group (keys %groups) {      for my $group (keys %groups) {
173          if (grep { $group =~ /$_/ } @FIG_Config::realCoreGroups) {          if (grep { $group =~ /$_/ } @{$FIG_Config::realCoreGroups}) {
174              push @retVal, @{$groups{$group}};              push @retVal, @{$groups{$group}};
175          }          }
176      }      }

Legend:
Removed from v.1.106  
changed lines
  Added in v.1.107

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3