[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.546, Wed Nov 29 20:45:06 2006 UTC revision 1.547, Wed Nov 29 21:20:31 2006 UTC
# Line 2763  Line 2763 
2763      return $code;      return $code;
2764  }  }
2765    
2766    
2767    sub fr_to_go {
2768        my($self,$peg) = @_;
2769        my $fn = $self->function_of($peg);
2770        my $fn_govalue = $fn;
2771        $fn_govalue =~ /(.*)(EC.*)\)/;
2772        $fn_govalue =  $2;
2773        $fn_govalue =~ s/EC\s/EC:/;
2774        open(GOVALUES, "$FIG_Config::data/Global/ec2go") or warn $!;
2775        my @govalues = <GOVALUES>;
2776        my @go_terms = grep {$_ =~ /$fn_govalue/} @govalues;
2777        #There should only be one value and make the return value tab deliminated
2778        my $go_term = $go_terms[0];
2779        $go_term =~ s/\;/\t/;
2780        $go_term =~ s/\>/\t/;
2781        return $go_term;
2782    
2783    }
2784    
2785  =head3 translate  =head3 translate
2786    
2787  C<< my $aa_seq = &FIG::translate($dna_seq, $code, $fix_start);  >>  C<< my $aa_seq = &FIG::translate($dna_seq, $code, $fix_start);  >>

Legend:
Removed from v.1.546  
changed lines
  Added in v.1.547

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3