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