diff --git a/misc-scripts/xref_mapping/XrefMapper/DisplayXrefs.pm b/misc-scripts/xref_mapping/XrefMapper/DisplayXrefs.pm index 9045b25d754e7187999ec31473315d636d9d3d70..7510f6e5fdffda0faa559c8a35f19826b9920001 100644 --- a/misc-scripts/xref_mapping/XrefMapper/DisplayXrefs.pm +++ b/misc-scripts/xref_mapping/XrefMapper/DisplayXrefs.pm @@ -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;