[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.21, Thu Feb 22 22:06:29 2007 UTC revision 1.22, Tue Apr 10 06:04:34 2007 UTC
# Line 143  Line 143 
143      # Get the current SEED.      # Get the current SEED.
144      my $fig = FIG->new();      my $fig = FIG->new();
145      # Get the old Sprout.      # Get the old Sprout.
146      my $oldSprout = SFXlate->new_sprout_only($FIG_Config::oldSproutDB);      my $oldSprout = SFXlate->old_sprout_only();
147      # Get its genomes in alphabetical order.      # Get its genomes in alphabetical order.
148      my @oldGenomes = GetGenomes($oldSprout);      my @oldGenomes = GetGenomes($oldSprout);
149      # Get the new Sprout.      # Get the new Sprout.
# Line 269  Line 269 
269              push @html, ShowLists($cgi, "Candidates for $group" => \@leftOut);              push @html, ShowLists($cgi, "Candidates for $group" => \@leftOut);
270          }          }
271      }      }
     # Compare the property tables.  
     Trace("Comparing properties.") if T(2);  
     # Set up lists of all the properties in each sprout.  
     my @oldProps = GetProperties($oldSprout);  
     my @newProps = GetProperties($newSprout);  
     # Compare the lists.  
     my ($insertedProps, $deletedProps) = Tracer::CompareLists(\@oldProps, \@newProps);  
     # Now get all the properties in the new Sprout without any features.  
     my @emptyProps = grep { $_->[1] == 0 } @newProps;  
     # Show what we've found.  
     push @html, ShowLists($cgi, 'New Properties'     => $insertedProps,  
                                 'Deleted Properties' => $deletedProps,  
                                 'Empty Properties'   => \@emptyProps);  
272      # Now we process the features of the common genes.      # Now we process the features of the common genes.
273      if (! $options->{nofeats}) {      if (! $options->{nofeats}) {
274          # First we need a hash of the inserted stuff so we know to skip it.          # First we need a hash of the inserted stuff so we know to skip it.

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3