Skip to content
Snippets Groups Projects
Commit f0eff3b4 authored by Kevin Howe's avatar Kevin Howe
Browse files

Fixed bug with replacement of petpide ambiguity chars with X

parent 9c3b1ea5
No related branches found
No related tags found
3 merge requests!48Fixed bug with replacement of petpide ambiguity chars with X,!48Fixed bug with replacement of petpide ambiguity chars with X,!48Fixed bug with replacement of petpide ambiguity chars with X
......@@ -340,6 +340,7 @@ sub dump_xref{
$sth->execute();
while(my @row = $sth->fetchrow_array()){
# Ambiguous peptides must be cleaned out to protect Exonerate from J,O and U codes
$row[1] = uc($row[1]);
$row[1] =~ s/(.{60})/$1\n/g;
if ($sequence_type eq 'peptide') { $row[1] =~ tr/JOU/X/ }
print $DH ">".$row[0]."\n".$row[1]."\n";
......
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