handle HASH in abstract

[reference.git] / lib / Reference / Retrieve / PubMed.pm

diff --git a/lib/Reference/Retrieve/PubMed.pm b/lib/Reference/Retrieve/PubMed.pm
index 553245d6ddc60ec3a30857db74662f5d558a466e..81bef475cdaa565b806a3017c17ded13eb6b35d7 100644 (file)
--- 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;
             $ret .= $element->{Label}.': '.$element->{content};
         }
         return $ret;

+    } elsif (ref($abstract) and ref($abstract) eq 'HASH') {
+        return $abstract->{Label}.': '.$abstract->{content};

     } else {
         return $abstract;
     }
     } else {
         return $abstract;
     }