Commit 495b78e2 authored by Ian Longden's avatar Ian Longden
Browse files

get uniprot HGNC references as last priority

parent d054f099
...@@ -161,6 +161,9 @@ sub create_xrefs { ...@@ -161,6 +161,9 @@ sub create_xrefs {
my %dependent_sources = $self->get_dependent_xref_sources(); # name-id hash my %dependent_sources = $self->get_dependent_xref_sources(); # name-id hash
if(defined($dependent_sources{'HGNC'})){
$dependent_sources{'HGNC'} = XrefParser::BaseParser->get_source_id_for_source_name("HGNC","uniprot");
}
# Get predicted equivalents of various sources used here # Get predicted equivalents of various sources used here
my $sp_pred_source_id = my $sp_pred_source_id =
$self->get_source_id_for_source_name( $self->get_source_id_for_source_name(
...@@ -336,6 +339,10 @@ sub create_xrefs { ...@@ -336,6 +339,10 @@ sub create_xrefs {
$dep{SOURCE_NAME} = $source; $dep{SOURCE_NAME} = $source;
$dep{LINKAGE_SOURCE_ID} = $xref->{SOURCE_ID}; $dep{LINKAGE_SOURCE_ID} = $xref->{SOURCE_ID};
$dep{SOURCE_ID} = $dependent_sources{$source}; $dep{SOURCE_ID} = $dependent_sources{$source};
if($source =~ /HGNC/){
$acc =~ s/HGNC://;
$dep{LABEL} = $extra[0]
}
$dep{ACCESSION} = $acc; $dep{ACCESSION} = $acc;
if($dep =~ /MIM/){ if($dep =~ /MIM/){
$dep{ACCESSION} = $acc; $dep{ACCESSION} = $acc;
......
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