[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.316, Tue Jul 19 16:14:21 2005 UTC revision 1.317, Tue Jul 19 16:29:35 2005 UTC
# Line 2180  Line 2180 
2180      my( $rev  );      my( $rev  );
2181    
2182      $rev =  reverse( $$seqP );      $rev =  reverse( $$seqP );
2183      $rev =~ tr/a-z/A-Z/;      $rev =~ tr/A-Z/a-z/;
2184      $rev =~ tr/ACGTUMRWSYKBDHV/TGCAAKYWSRMVHDB/;      $rev =~ tr/acgtumrwsykbdhv/tgcaakywsrmvhdb/;
2185      return \$rev;      return \$rev;
2186  }  }
2187    
# Line 8888  Line 8888 
8888              }              }
8889          }          }
8890      }      }
8891      return join("",@pieces);      return lc(join("",@pieces));
8892  }  }
8893    
8894  sub get_dna {  sub get_dna {
# Line 8911  Line 8911 
8911              my $ln = ($end - $beg) + 1;              my $ln = ($end - $beg) + 1;
8912              if (length($chunk) >= $ln)              if (length($chunk) >= $ln)
8913              {              {
8914                  return substr($chunk,(($beg-1)-$startN),$ln);                  return lc(substr($chunk,(($beg-1)-$startN),$ln));
8915              }              }
8916          }          }
8917      }      }

Legend:
Removed from v.1.316  
changed lines
  Added in v.1.317

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3