Commit c19a8320 authored by Sebastien Moretti's avatar Sebastien Moretti
Browse files

Optimize part of the code

parent 164fa2dd
......@@ -1203,10 +1203,15 @@ sub prepareResults4BOJ{
my $readyname = '';
$readyname = fastaHeaders4ProtoGene($input_name);
if ( $intronLess =~ /:.+/ || $bestOne =~ /^NA[CTWZGS]_/ || $nameLess =~ /^NA[CTWZGS]_/ ){
$readyname =~ s/_G_@@/_G_$bestOne-IntronLess _S_ $blastHit _DESC_ / if ( $nameLess eq '' );
$readyname =~ s/_G_@@/_G_$nameLess-IntronLess _S_ $blastHit _DESC_ / if ( $nameLess ne '' );
$readyname =~ s/(.)$/$1 MATCHES_ON $description/ if ( $description ne '' );
$bestOne = $nameLess if ( $nameLess ne '' );
if ( $nameLess eq '' ){
$readyname =~ s/_G_@@/_G_$bestOne-IntronLess _S_ $blastHit _DESC_ /;
}
else {# $nameLess ne ''
$readyname =~ s/_G_@@/_G_$nameLess-IntronLess _S_ $blastHit _DESC_ /;
$bestOne = $nameLess;
}
$readyname =~ s/(.)$/$1 MATCHES_ON $description/ if ( $description ne '' );
}
else{
$readyname =~ s/_G_@@/_G_Unavailable _S_ $blastHit _DESC_ /;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment