Commit d169fd59 authored by Ian Longden's avatar Ian Longden
Browse files

fix for attribute seq edits

parent 346a350f
...@@ -978,11 +978,8 @@ sub get_all_Attributes { ...@@ -978,11 +978,8 @@ sub get_all_Attributes {
} }
if( defined $attrib_code) { if( defined $attrib_code) {
my @results; my @results = grep { uc($_->code()) eq uc($attrib_code) }
if(defined $_){ @{$self->{'attributes'}};
@results = grep { uc($_->code()) eq uc($attrib_code) }
@{$self->{'attributes'}};
}
return \@results; return \@results;
} else { } else {
return $self->{'attributes'}; return $self->{'attributes'};
...@@ -1025,6 +1022,7 @@ sub add_Attributes { ...@@ -1025,6 +1022,7 @@ sub add_Attributes {
} }
if($seq_change){ if($seq_change){
foreach my $ex(@{$self->get_all_Exons()}){ foreach my $ex(@{$self->get_all_Exons()}){
$ex->{'_trans_exon_array'} = undef;
$ex->{'_seq_cache'} = undef; $ex->{'_seq_cache'} = undef;
} }
my $translation = $self->translation; my $translation = $self->translation;
......
Markdown is supported
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