[Bio] / FigKernelScripts / changed_starts.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/changed_starts.pl

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

revision 1.5, Sat Aug 20 02:37:22 2005 UTC revision 1.6, Sat Aug 20 12:32:29 2005 UTC
# Line 29  Line 29 
29  foreach $_ (sort { $b->[3] <=> $a->[3] } @changes)  foreach $_ (sort { $b->[3] <=> $a->[3] } @changes)
30  {  {
31      ($peg,$old_loc,$new_loc,$conf_gap) = @$_;      ($peg,$old_loc,$new_loc,$conf_gap) = @$_;
32      $genome = &FIG::genome_of($peg);      $peg =~ /\|(\d+\.\d+)/;
33        $genome = $1;
34      $dna    = $fig->dna_seq($genome,$new_loc);      $dna    = $fig->dna_seq($genome,$new_loc);
35      $trans  = $fig->translate($dna,undef,'start');      $trans  = $fig->translate($dna,undef,'start');
36      if ((substr($trans,-1) ne "*") && (($peg =~ /^new/) || (! $fig->possibly_truncated($peg))))      if ((substr($trans,-1) ne "*") && (($peg =~ /^new/) || (! $fig->possibly_truncated($peg))))

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3