# Returns string;
if ( -f $options->{ 'database' } . ".phr" ) {
- return "protein";
+ return "PROTEIN";
} else {
- return "nucleotide";
+ return "NUCLEOTIDE";
}
}
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";
}