X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bp_bin%2Fblast_seq;h=3c4df0d585b12e9f3f6ea371618231804979a7fc;hb=1bdb72cf6c17a75d5ce0c5187cff502bcc0c2dce;hp=be2b8163cd99bdc6e2f9f7f8da14d4f4bda37a0f;hpb=49915827e5d35284f24e7149d039478abd1e2139;p=biopieces.git

diff --git a/bp_bin/blast_seq b/bp_bin/blast_seq
index be2b816..3c4df0d 100755
--- a/bp_bin/blast_seq
+++ b/bp_bin/blast_seq
@@ -175,9 +175,9 @@ sub guess_database_type
 
     # Returns string;
     if ( -f $options->{ 'database' } . ".phr" ) {
-        return "protein";
+        return "PROTEIN";
     } else {
-        return "nucleotide";
+        return "NUCLEOTIDE";
     }
 }
 
@@ -197,13 +197,13 @@ sub guess_program
 
     my ( $program );
 
-    if ( $q_type      ne "protein" and $s_type ne "protein" ) {
+    if ( $q_type      ne "PROTEIN" and $s_type ne "PROTEIN" ) {
         $program = "blastn";
-    } elsif ( $q_type eq "protein" and $s_type eq "protein" ) {
+    } elsif ( $q_type eq "PROTEIN" and $s_type eq "PROTEIN" ) {
         $program = "blastp";
-    } elsif ( $q_type ne "protein" and $s_type eq "protein" ) {
+    } elsif ( $q_type ne "PROTEIN" and $s_type eq "PROTEIN" ) {
         $program = "blastx";
-    } elsif ( $q_type eq "protein" and $s_type ne "protein" ) {
+    } elsif ( $q_type eq "PROTEIN" and $s_type ne "PROTEIN" ) {
         $program = "tblastn";
     }