From ff52ff78876e0aa8afae8971a39e8a058af7ebb8 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 14 Jan 2014 15:41:41 -0800
Subject: [PATCH] fix xpath expressions for pubmed_search

---
 pubmed_search | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/pubmed_search b/pubmed_search
index 6dff865..778960a 100755
--- a/pubmed_search
+++ b/pubmed_search
@@ -110,11 +110,14 @@ my $raw_xml = $fac->efetch(-email => 'don@donarmstrong.com',
                           )->run(-raw_xml => 1);
 use XML::LibXML;
 my $xml = XML::LibXML->load_xml(string => $raw_xml);
-for my $article ($xml->findnodes('PubmedArticleSet/PubmedArticle/MedlineCitation')) {
-    # print $article->toString;
-    my ($pmid) = $article->findnodes('./PMID');
-    my ($title) = $article->findnodes('./Article/ArticleTitle');
-    my ($abstract) = $article->findnodes('./Article/Abstract');
+print STDERR $xml->toString if $DEBUG;
+for my $article ($xml->findnodes(q{//*[local-name()='MedlineCitation']})) {
+    print STDERR $article->toString if $DEBUG;
+    my ($pmid) = $article->findnodes(q{./*[local-name()='PMID']});
+    my ($title) = $article->findnodes(q{./*[local-name()='Article']}.
+                                      q{/*[local-name()='ArticleTitle']});
+    my ($abstract) = $article->findnodes(q{./*[local-name()='Article']}.
+                                         q{/*[local-name()='Abstract']});
     if ($options{org_mode}) {
         print "** PMID: ";
     }
-- 
2.39.5