Commit 005e305d authored by Sebastien Moretti's avatar Sebastien Moretti
Browse files

Remove useless argument for create BOJ output fct

parent b8b9f41b
......@@ -427,7 +427,7 @@ for(my $r=0; $r<=$#original_names; $r++){
}
else {
createCDSOutputFile($resultPOS, $original_seq[$r], $fasta_header);
createBOJOutputFile($resultBOJ, $original_seq[$r]);
createBOJOutputFile($resultBOJ);
}
......@@ -1336,6 +1336,7 @@ sub createCDSOutputFile{
$peptide =~ s/(.)/$1--/g;
print {$CDSP} $CDSresultat, ">$original_name\n$peptide\n";
}
my $CDSreformated = '';
my @allCDS = split(/>/, $CDSresultat);
for(my $er=0; $er<=$#allCDS; $er++){
......@@ -1353,7 +1354,7 @@ sub createCDSOutputFile{
}
sub createBOJOutputFile{
my ($BOJresultat, $original_seq) = @_;
my ($BOJresultat) = @_;
$BOJresultat =~ s/ +/ /g;
open(my $BOJ, '>>', "$originalMSA.boj");
......@@ -1374,6 +1375,7 @@ sub buildIntronlessBOJOutputFile{
$readyname =~ s{_G_@@}{_G_$NTname-IntronLess _S_ $BLASTstatus _DESC_ } if ( $NTname ne '' );
$readyname =~ s{(.)$}{$1 MATCHES_ON $annot} if ( $annot ne '' );
$readyname =~ s{ +}{ }g;
open(my $BOJ, '>>', "$originalMSA.boj");
print {$BOJ} ">$readyname\n$original_seq\n";
close $BOJ;
......@@ -1408,6 +1410,7 @@ sub buildFailureBOJOutputFile{
$readyname = fastaHeaders4ProtoGene($original_name);
$readyname =~ s{_G_@@}{_G_$NTstatus _S_ $BLASTstatus _DESC_ };
$readyname =~ s{ +}{ }g;
open( my $BOJ, '>>', "$originalMSA.boj");
print {$BOJ} ">$readyname\n$original_seq\n";
close $BOJ;
......
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