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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.54, Wed Jun 8 23:05:21 2005 UTC revision 1.55, Tue Jul 12 21:08:09 2005 UTC
# Line 995  Line 995 
995  sub get_variant_code_for_genome  sub get_variant_code_for_genome
996  {  {
997      my($self, $genome) = @_;      my($self, $genome) = @_;
   
998      my $index = $self->{genome_index}->{$genome};      my $index = $self->{genome_index}->{$genome};
999        if (defined $index) {
1000      return $self->{variant_code}->[$index];      return $self->{variant_code}->[$index];
1001  }  }
1002        else {
1003         return undef;
1004        }
1005    }
1006    
1007  sub get_roles  sub get_roles
1008  {  {

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3