X-Git-Url: https://git.donarmstrong.com/?p=reference.git;a=blobdiff_plain;f=lib%2FReference%2FRetrieve%2FPubMed.pm;fp=lib%2FReference%2FRetrieve%2FPubMed.pm;h=78cf93533641c6b190f04c039e6f1ca77b303ba9;hp=6cc771be078e9db14c95cfdf087d1b117626e771;hb=0b74a1447877c1c01dd7803cd9208c7c5006c82e;hpb=6eca5aec481210de2f3fa2a3fb22aed90c7efa5a

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;