[Bio] / FigKernelPackages / CorrespondenceCache.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/CorrespondenceCache.pm

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

revision 1.1, Thu Jul 8 20:15:39 2010 UTC revision 1.2, Wed Feb 9 16:59:51 2011 UTC
# Line 112  Line 112 
112      my $retVal;      my $retVal;
113      # Get the ID of the source gene's genome.      # Get the ID of the source gene's genome.
114      my $genome1 = genome_of($fid1);      my $genome1 = genome_of($fid1);
115      # Look for a correspondence table.      # Is it the same as the target genome?
116        if ($genome1 eq $genome2) {
117            # Yes, so simply return the input gene.
118            $retVal = $fid1;
119        } else {
120        # No, we have to work for it. Look for a correspondence table.
121      my $corrHash = $self->get_correspondence_map($genome1, $genome2);      my $corrHash = $self->get_correspondence_map($genome1, $genome2);
122      # Only continue if we found one.      # Only continue if we found one.
123      if (defined $corrHash) {      if (defined $corrHash) {
124          # Get the corresponding gene from the hash.          # Get the corresponding gene from the hash.
125          $retVal = $corrHash->{$fid1};          $retVal = $corrHash->{$fid1};
126      }      }
127        }
128      # Return the result.      # Return the result.
129      return $retVal;      return $retVal;
130  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3