[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.19, Tue Jan 9 01:53:17 2007 UTC revision 1.20, Wed Feb 21 13:18:01 2007 UTC
# Line 99  Line 99 
99  use SFXlate;  use SFXlate;
100  use Sprout;  use Sprout;
101  use CGI;  use CGI;
102    use FIGRules;
103    
104  # Get the command-line options and parameters.  # Get the command-line options and parameters.
105  my ($options, @parameters) = StandardSetup([qw(Sprout) ],  my ($options, @parameters) = StandardSetup([qw(Sprout) ],
# Line 154  Line 155 
155      # Add feature counts to the new genomes.      # Add feature counts to the new genomes.
156      for my $insertedGenome (@{$insertedGenomes}) {      for my $insertedGenome (@{$insertedGenomes}) {
157          my $genomeID = $insertedGenome->[0];          my $genomeID = $insertedGenome->[0];
158          # For a new genome, display the feature count.          # For a new genome, display the feature and BBH counts.
159          my $count = $newSprout->GetCount(['HasFeature'], "HasFeature(from-link) = ?",          my $count = $newSprout->GetCount(['HasFeature'], "HasFeature(from-link) = ?",
160                                           [$genomeID]);                                           [$genomeID]);
161          my $suffix = ($count == 1 ? " one feature" : "$count features");          my $suffix = ($count == 1 ? " one feature" : "$count features");
162            my $bbhCount = FIGRules::BatchBBHs("fig|$genomeID.%", 1e-10);
163            $suffix .= "; " . ($bbhCount == 1 ? "one BBH" : "$bbhCount BBHs");
164          $insertedGenome->[1] .= "($suffix)";          $insertedGenome->[1] .= "($suffix)";
165      }      }
166      # Add information about SEED status to the deleted genomes.      # Add information about SEED status to the deleted genomes.

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3