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

Diff of /Sprout/SproutSubsys.pm

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

revision 1.4, Mon Nov 28 22:52:11 2005 UTC revision 1.5, Thu Dec 8 18:04:12 2005 UTC
# Line 222  Line 222 
222      my ($self, $gidx) = @_;      my ($self, $gidx) = @_;
223      # Extract the variant code for the specified row index. It is the second      # Extract the variant code for the specified row index. It is the second
224      # element of the tuple from the "genomes" member.      # element of the tuple from the "genomes" member.
225      my $retVal = $self->{genomes}->{$gidx}->[1];      my $retVal = $self->{genomes}->[$gidx]->[1];
226      return $retVal;      return $retVal;
227  }  }
228    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3