handle HASH in abstract
authorDon Armstrong <don@donarmstrong.com>
Sun, 1 Jun 2014 02:13:33 +0000 (19:13 -0700)
committerDon Armstrong <don@donarmstrong.com>
Sun, 1 Jun 2014 02:13:33 +0000 (19:13 -0700)
lib/Reference/Retrieve/PubMed.pm

index 553245d..81bef47 100644 (file)
@@ -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;
     }