Skip to content
Snippets Groups Projects
Commit 0ca142d1 authored by Glenn Proctor's avatar Glenn Proctor
Browse files

Commented out Medline xref generation - redundant with Pubmed.

parent 8ebf9de0
No related branches found
No related tags found
No related merge requests found
......@@ -254,16 +254,16 @@ sub create_xrefs {
}
# store PUBMED and MEDLINE dependent xrefs too
my ($medline) = $_ =~ /RX\s+MEDLINE=(\d+);/;
if (defined $medline) {
my %medline_dep;
$medline_dep{SOURCE_ID} = $dependent_sources{PUBMED};
$medline_dep{LINKAGE_SOURCE_ID} = $xref->{SOURCE_ID};
$medline_dep{ACCESSION} = $medline;
push @{$xref->{DEPENDENT_XREFS}}, \%medline_dep;
}
#my ($medline) = $_ =~ /RX\s+MEDLINE=(\d+);/;
#if (defined $medline) {
#
# my %medline_dep;
# $medline_dep{SOURCE_ID} = $dependent_sources{PUBMED};
# $medline_dep{LINKAGE_SOURCE_ID} = $xref->{SOURCE_ID};
# $medline_dep{ACCESSION} = $medline;
# push @{$xref->{DEPENDENT_XREFS}}, \%medline_dep;
#
#}
my ($pubmed) = $_ =~ /RX\s+PubMed=(\d+);/;
if (defined $pubmed) {
......
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