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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.583, Sat Apr 28 15:50:12 2007 UTC revision 1.584, Sat Apr 28 15:52:30 2007 UTC
# Line 2711  Line 2711 
2711      my ($ncbi_genetic_code_num) = @_;      my ($ncbi_genetic_code_num) = @_;
2712      my $code = &FIG::standard_genetic_code();      my $code = &FIG::standard_genetic_code();
2713    
2714      if ($ncbi_genetic_code_num == 4) {      if    ($ncbi_genetic_code_num == 11) {
2715            #...Do nothing
2716        }
2717        elsif ($ncbi_genetic_code_num ==  4) {
2718          $code->{TGA} = 'W';          $code->{TGA} = 'W';
2719      }      }
2720        else {
2721            die "Sorry, only genetic codes 11 and 4 are currently supported";
2722        }
2723    
2724      return $code;      return $code;
2725  }  }

Legend:
Removed from v.1.583  
changed lines
  Added in v.1.584

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3