From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 19 Dec 2014 18:37:52 +0000 (-0800)
Subject: just use Dumper to dump the publication type instead of guessing
X-Git-Url: https://git.donarmstrong.com/?p=reference.git;a=commitdiff_plain;h=7ec44eb25d6d5f727e751188d7418198eccd47a6;hp=0cd432d9cb4205a2d93aa1d442d8283117971369

just use Dumper to dump the publication type instead of guessing
---

diff --git a/lib/Reference/Retrieve/PubMed.pm b/lib/Reference/Retrieve/PubMed.pm
index 81bef47..1fc4dff 100644
--- a/lib/Reference/Retrieve/PubMed.pm
+++ b/lib/Reference/Retrieve/PubMed.pm
@@ -189,9 +189,7 @@ sub _create_reference_from_xml($$){
 	  }
      }
      if (not defined $ref_type) {
-	  warn "Unsupported PublicationType: ".(ref($ref->{MedlineCitation}->{Article}->{PublicationTypeList}->{PublicationType})?
-						join(',',@{$ref->{MedlineCitation}->{Article}->{PublicationTypeList}->{PublicationType}}):
-						$ref->{MedlineCitation}->{Article}->{PublicationTypeList}->{PublicationType});
+	  warn "Unsupported PublicationType: ".Dumper($ref->{MedlineCitation}->{Article}->{PublicationTypeList}->{PublicationType});
 	  print STDERR Dumper($ref) if $DEBUG;
 	  $ref_type = 'article';
      }