[Bio] / Sprout / GenomeStats.pl Repository:
ViewVC logotype

Diff of /Sprout/GenomeStats.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Sun Jun 18 05:37:14 2006 UTC revision 1.6, Sun Jun 18 07:33:37 2006 UTC
# Line 107  Line 107 
107      # Extract the genome group data from the old Sprout.      # Extract the genome group data from the old Sprout.
108      my %oldGroupHash = $oldSprout->GetGroups();      my %oldGroupHash = $oldSprout->GetGroups();
109      if (! $options->{strict}) {      if (! $options->{strict}) {
110          %oldGroupHash = FixGroups(%oldGroupHash);          %oldGroupHash = Fix(%oldGroupHash);
111      }      }
112      # Get the new Sprout.      # Get the new Sprout.
113      my $sprout = SFXlate->new_sprout_only();      my $sprout = SFXlate->new_sprout_only();
114      my %newGroupHash = $sprout->GetGroups();      my %newGroupHash = $sprout->GetGroups();
115      if (! $options->{strict}) {      if (! $options->{strict}) {
116          %newGroupHash = FixGroups(%newGroupHash);          %newGroupHash = Fix(%newGroupHash);
117      }      }
118      # Loop through the groups.      # Loop through the groups.
119      for my $groupID (keys %newGroupHash) {      for my $groupID (keys %newGroupHash) {
# Line 190  Line 190 
190                  $counters{$ss} += 1;                  $counters{$ss} += 1;
191                  $totalFeatures++;                  $totalFeatures++;
192              }              }
193                Trace("$totalFeatures total features found for $genomeID.") if T(3);
194              # We have all our data. Next we need to compute the percentages and the links.              # We have all our data. Next we need to compute the percentages and the links.
195              # First, the link stuff.              # First, the link stuff.
196              my $linkPrefix = "$options->{linkCGI}?user=\&genome=$genomeID&SPROUT=1&request=";              my $linkPrefix = "$options->{linkCGI}?user=\&genome=$genomeID&SPROUT=1&request=";
# Line 264  Line 265 
265              $realGroupID = $1;              $realGroupID = $1;
266          }          }
267          # Append this group's genomes into the result hash.          # Append this group's genomes into the result hash.
268          Tracer::AddToListMap(\%retVal, $realGroupID, $groupHash{$groupID});          Tracer::AddToListMap(\%retVal, $realGroupID, @{$groupHash{$groupID}});
269      }      }
270      # Return the result hash.      # Return the result hash.
271      return %retVal;      return %retVal;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3