title => [_fix_medline_title($ref->{MedlineCitation}->{Article}->{ArticleTitle})],
abstract => [_fix_medline_abstract($ref->{MedlineCitation}->{Article}->{Abstract}->{AbstractText})],
journal => [_fix_medline_journal($ref->{MedlineCitation}->{Article}->{Journal},
- $ref->{MedlineCitation}->{Article}->{MedlineJournalInfo},
- $ua,
+ $ref->{MedlineCitation}->{MedlineJournalInfo},
+ $ua,
#@_, # configuration
)],
_fix_ids($ref),
# </TranslationStack>
# </eSearchResult>
- my $ISSN = $journal->{ISSN};
+ my $ISSN = length($journal->{ISSN})? $journal->{ISSN} : $medline_journal->{ISSNLinking};
if (ref $ISSN) {
$ISSN = $ISSN->{content};
+ }
+ if (not length($ISSN)) {
+ use Data::Printer;
+ p $journal;
+ die "No ISSN";
}
my $url = qq(http://www.ncbi.nlm.nih.gov/nlmcatalog/?term=${ISSN}[ISSN]&format=text&report=xml);
print STDERR "url: $url\n" if $DEBUG;