From 0b74a1447877c1c01dd7803cd9208c7c5006c82e Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 13 Jul 2017 16:05:20 -0500
Subject: [PATCH] update how journal information and issn are handled

---
 lib/Reference/Retrieve/PubMed.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/lib/Reference/Retrieve/PubMed.pm b/lib/Reference/Retrieve/PubMed.pm
index 6cc771b..78cf935 100644
--- a/lib/Reference/Retrieve/PubMed.pm
+++ b/lib/Reference/Retrieve/PubMed.pm
@@ -201,8 +201,8 @@ sub _create_reference_from_xml($$){
 			     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),
@@ -332,9 +332,14 @@ sub _fix_medline_journal($$$;){
      # 	</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;
-- 
2.39.2