[Bio] / Sprout / Sapling.pm Repository:
ViewVC logotype

Diff of /Sprout/Sapling.pm

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

revision 1.48, Thu Oct 6 19:21:18 2011 UTC revision 1.49, Tue Mar 26 02:10:46 2013 UTC
# Line 901  Line 901 
901      # Get the parameters.      # Get the parameters.
902      my ($self, $genomeID, $format) = @_;      my ($self, $genomeID, $format) = @_;
903      # Get the genome's taxonomic group.      # Get the genome's taxonomic group.
904      my ($taxon) = split /\./, $genomeID, 2;      my ($taxon) = split m/\./, $genomeID, 2;
905      # We'll put the return data in here.      # We'll put the return data in here.
906      my @retVal;      my @retVal;
907      # Loop until we hit a domain.      # Loop until we hit a domain.
# Line 1788  Line 1788 
1788      while (my $pairData = $query->Fetch()) {      while (my $pairData = $query->Fetch()) {
1789          # Record the genomes for the pegs in the pair. The pegs can be found          # Record the genomes for the pegs in the pair. The pegs can be found
1790          # separated by a colon in the pairing ID.          # separated by a colon in the pairing ID.
1791          for my $peg (split /:/, $pairData->PrimaryValue('to-link')) {          for my $peg (split m/:/, $pairData->PrimaryValue('to-link')) {
1792              $retVal{genome_of($peg)} = 1;              $retVal{genome_of($peg)} = 1;
1793          }          }
1794      }      }

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3