From 5d732094a90933d1163cc08f123ab04f284fb8c2 Mon Sep 17 00:00:00 2001
From: Jason Stephenson <jason@sigio.com>
Date: Sat, 11 Oct 2014 11:54:25 -0400
Subject: [PATCH] Fix some more stuff in NCIP::ILS::Evergreen.

Running with perl -c caught another syntax error, and I saw that
I need hashrefs in a few places where I missed the {}.

Signed-off-by: Jason Stephenson <jason@sigio.com>
---
 lib/NCIP/ILS/Evergreen.pm | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/lib/NCIP/ILS/Evergreen.pm b/lib/NCIP/ILS/Evergreen.pm
index d419560..d46f913 100644
--- a/lib/NCIP/ILS/Evergreen.pm
+++ b/lib/NCIP/ILS/Evergreen.pm
@@ -1468,8 +1468,10 @@ sub handle_item_elements {
             if ($copy->dummy_isbn()) {
                 $description->BibliographicItemId(
                     NCIP::Item::BibliographicItemId->new(
-                        BibliographicItemIdentifier => $copy->dummy_isbn(),
-                        BibliographicItemIdentifierCode => 'ISBN'
+                        {
+                            BibliographicItemIdentifier => $copy->dummy_isbn(),
+                            BibliographicItemIdentifierCode => 'ISBN'
+                        }
                     )
                 );
             }
@@ -1480,8 +1482,10 @@ sub handle_item_elements {
             $description->Authort($details->{mvr}->author());
             $description->BibliographicRecordId(
                 NCIP::Item::BibliographicRecordId->new(
-                    BibliographicRecordIdentifier => $details->{mvr}->doc_id(),
-                    BibliographicRecordIdentifierCode => 'SYSNUMBER'
+                    {
+                        BibliographicRecordIdentifier => $details->{mvr}->doc_id(),
+                        BibliographicRecordIdentifierCode => 'SYSNUMBER'
+                    }
                 )
             );
             if ($details->{mvr}->publisher()) {
@@ -1505,7 +1509,7 @@ sub handle_item_elements {
         if ($details->{volume}) {
             $optionalfields->ItemDescription(
                 NCIP::Item::Description->new(
-                    CallNumber => $details->{volume}->label();
+                    {CallNumber => $details->{volume}->label()}
                 )
             );
         }
@@ -1535,7 +1539,7 @@ sub handle_item_elements {
     if (grep {$_ eq 'Physical Condition'} @$elements) {
         $optionalfields->PhysicalCondition(
             NCIP::Item::PhysicalCondition->new(
-                PhysicalConditionType => 'Unknown'
+                {PhysicalConditionType => 'Unknown'}
             )
         );
     }
-- 
2.43.2