[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.11, Sat Sep 2 07:01:26 2006 UTC revision 1.12, Sat Sep 2 17:02:08 2006 UTC
# Line 236  Line 236 
236          }          }
237          my @possibles = $newSprout->GetFlat(['Genome'], $filter, \@parms, 'Genome(id)');          my @possibles = $newSprout->GetFlat(['Genome'], $filter, \@parms, 'Genome(id)');
238          # Get the possibles that aren't in the group and add identifying information.          # Get the possibles that aren't in the group and add identifying information.
239          my @leftOut = NameGenomes($newSprout, [ grep { $inGroup{$_} } @possibles ]);          my @leftOut = NameGenomes($newSprout, [ grep { ! exists $inGroup{$_} } @possibles ]);
240          # If anything survived, show the list.          # If anything survived, show the list.
241          if (@leftOut) {          if (@leftOut) {
242              ShowLists(! $options->{summary}, "Candidates for $group" => \@leftOut);              ShowLists(! $options->{summary}, "Candidates for $group" => \@leftOut);

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3