[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.9, Thu Aug 24 21:04:23 2006 UTC revision 1.10, Thu Aug 24 21:17:08 2006 UTC
# Line 126  Line 126 
126              # Here the group is in both versions. Fix the lists and compare them.              # Here the group is in both versions. Fix the lists and compare them.
127              my @newGroupList = NameGenomes($newSprout, $newGroups{$newGroup});              my @newGroupList = NameGenomes($newSprout, $newGroups{$newGroup});
128              my @oldGroupList = NameGenomes($oldSprout, $oldGroups{$newGroup});              my @oldGroupList = NameGenomes($oldSprout, $oldGroups{$newGroup});
129                Trace("Comparing lists for $newGroup.") if T(4);
130              my ($insertedGroupGenomes, $deletedGroupGenomes) = Tracer::CompareLists(\@newGroupList, \@oldGroupList);              my ($insertedGroupGenomes, $deletedGroupGenomes) = Tracer::CompareLists(\@newGroupList, \@oldGroupList);
131                Trace("Comparison complete.") if T(4);
132              # Delete the old group data. When we're done, this means we'll have a list of the deleted              # Delete the old group data. When we're done, this means we'll have a list of the deleted
133              # groups.              # groups.
134              delete $oldGroups{$newGroup};              delete $oldGroups{$newGroup};
135              # Show the lists. Empty lists will not be shown.              # Show the lists. Empty lists will not be shown.
136                Trace("Displaying group lists.") if T(4);
137              ShowLists(! $options->{summary},              ShowLists(! $options->{summary},
138                        "Genomes new to $newGroup" => $insertedGroupGenomes,                        "Genomes new to $newGroup" => $insertedGroupGenomes,
139                        "Genomes no longer in $newGroup" => $deletedGroupGenomes);                        "Genomes no longer in $newGroup" => $deletedGroupGenomes);
140          }          }
141      }      }
142        Trace("Processing deleted groups.") if T(4);
143      # Now list the deleted groups.      # Now list the deleted groups.
144      for my $oldGroup (sort keys %oldGroups) {      for my $oldGroup (sort keys %oldGroups) {
145          Trace("Processing deleted group $oldGroup.") if T(3);          Trace("Processing deleted group $oldGroup.") if T(3);

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3