From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 1 Jun 2014 02:13:33 +0000 (-0700)
Subject: handle HASH in abstract
X-Git-Url: https://git.donarmstrong.com/?p=reference.git;a=commitdiff_plain;h=0cd432d9cb4205a2d93aa1d442d8283117971369;ds=sidebyside

handle HASH in abstract
---

diff --git a/lib/Reference/Retrieve/PubMed.pm b/lib/Reference/Retrieve/PubMed.pm
index 553245d..81bef47 100644
--- a/lib/Reference/Retrieve/PubMed.pm
+++ b/lib/Reference/Retrieve/PubMed.pm
@@ -257,6 +257,8 @@ sub _fix_medline_abstract{
             $ret .= $element->{Label}.': '.$element->{content};
         }
         return $ret;
+    } elsif (ref($abstract) and ref($abstract) eq 'HASH') {
+        return $abstract->{Label}.': '.$abstract->{content};
     } else {
         return $abstract;
     }