From: Jason Stephenson <jason@sigio.com>
Date: Thu, 7 Aug 2014 13:01:55 +0000 (-0400)
Subject: Fixes for ILS::make_header.
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=66f9e074da5e8b8c43e68afbe1643a2935cc1dff;p=working%2FNCIPServer.git

Fixes for ILS::make_header.

Signed-off-by: Jason Stephenson <jason@sigio.com>
---

diff --git a/lib/NCIP/ILS.pm b/lib/NCIP/ILS.pm
index aae5939..6d5f06a 100644
--- a/lib/NCIP/ILS.pm
+++ b/lib/NCIP/ILS.pm
@@ -86,7 +86,8 @@ sub make_header {
     my $header;
 
     for my $key (keys %$request) {
-        if ($request->{$key}->{InitiationHeader}) {
+        if (ref $request->{$key} eq 'HASH'
+                && $request->{$key}->{InitiationHeader}) {
             $initheader = $request->{$key}->{InitiationHeader};
             last;
         }
@@ -94,10 +95,10 @@ sub make_header {
 
     if ($initheader && $initheader->{FromAgencyId}
             && $initheader->{ToAgencyId}) {
-        $header = NCIP::Header->new(
+        $header = NCIP::Header->new({
             FromAgencyId => $initheader->{ToAgencyId},
             ToAgencyId => $initheader->{FromAgencyId}
-        );
+        });
     }
 
     return $header;