Skip to content
Snippets Groups Projects
Commit 6b1f7ece authored by Daniel Rios's avatar Daniel Rios
Browse files

modified the / separator to |

parent 57a8b528
No related branches found
No related tags found
No related merge requests found
......@@ -96,7 +96,7 @@ sub get_all_ConsequenceType {
#we have to consider het alleles
my $string;
if ($allele->allele_string =~ /\|\\\//){
if ($allele->allele_string =~ /[\|\\\/]/){
my @alleles = split /[\|\\\/]/,$allele->allele_string;
if ($alleles[0] ne $allele->ref_allele_string){
$string = $alleles[0];
......@@ -107,8 +107,7 @@ sub get_all_ConsequenceType {
}
else{
$string = $allele->allele_string;
}
}
my $opposite_strand = 0; #to indicate wether transcript and allele and in different strands
if( $transcript->strand != $allele->strand ) {
$string =~tr/ACGT/TGCA/;
......
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