fixed bug in translate_seq

git-svn-id: http://biopieces.googlecode.com/svn/trunk@802 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/bp_bin/align_seq b/bp_bin/align_seq
index af114e1da2d78e1490cbf016fc10ab89a4656fe1..632d732f21fe47bcdc054061bcc210f9fbdae8fe 100755 (executable)
--- a/bp_bin/align_seq
+++ b/bp_bin/align_seq
@@ -49,7 +49,7 @@ $out = Maasha::Biopieces::write_stream( $options->{ "stream_out" } );
 
 while ( $record = Maasha::Biopieces::get_record( $in ) ) 
 {
-    if ( $record->{ "SEQ_NAME" } and $record->{ "SEQ" } ) {
+    if ( $record->{ "SEQ_NAME" } and $record->{ "SEQ" } ) {  # TODO use biopieces2fasta() instead
         push @entries, [ $record->{ "SEQ_NAME" }, $record->{ "SEQ" } ];
     } elsif ( $record->{ "Q_ID" } and $record->{ "SEQ" } ) {
         push @entries, [ $record->{ "Q_ID" }, $record->{ "SEQ" } ];

diff --git a/bp_bin/translate_seq b/bp_bin/translate_seq
index ba6b07f696d8d21cca3b3e395c49bc4fa63ec477..d62188af432c7e9a16ec152e58707901198dda82 100755 (executable)
--- a/bp_bin/translate_seq
+++ b/bp_bin/translate_seq
@@ -50,7 +50,7 @@ while ( $record = Maasha::Biopieces::get_record( $in ) )
 {
     if ( $record->{ "SEQ" } )
     {
-        if ( Maasha::Seq::seq_guess_type( $record->{ "SEQ" } ) eq "dna" )
+        if ( Maasha::Seq::seq_guess_type( $record->{ "SEQ" } ) =~ /DNA/i )
         {
             foreach $frame ( @{ $options->{ "frames" } } )
             {