From 66f9e074da5e8b8c43e68afbe1643a2935cc1dff Mon Sep 17 00:00:00 2001
From: Jason Stephenson <jason@sigio.com>
Date: Thu, 7 Aug 2014 09:01:55 -0400
Subject: [PATCH] Fixes for ILS::make_header.

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

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;
-- 
2.43.2