Commit 6156a34c authored by Ian Longden's avatar Ian Longden
Browse files

no_source_label_list to be called from mapper if it exists only

parent 7db18900
......@@ -802,7 +802,14 @@ GSQL
my $checked = 0;
my $added = 0;
my $removed = 0;
my %no_source_name_in_desc = %{$self->no_source_label_list()};
my %no_source_name_in_desc;
if( $self->mapper->can("no_source_label_list") ){
foreach my $ext (@{$self->no_source_label_list()}){
$no_source_name_in_desc{$ext} = 1;
}
}
foreach my $gene_id (keys %genes_to_transcripts) {
......@@ -1541,13 +1548,14 @@ sub check_desc{
}
sub no_source_label_list{
my $self = shift;
my %list;
#sub no_source_label_list{
# my $self = shift;
# my @list;
## this needs to be added to the species .pm file
## @list = qw(Uniprot/SWISSPROT Refseq_dna);
##
# return \@list;
#}
# foreach my $ex (qw(Uniprot/SWISSPROT Refseq_dna)){
# $list{$ex} = 1;
# }
return \%list;
}
1;
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