From c69920474dc471d99519ebba4907e16d592e3fa1 Mon Sep 17 00:00:00 2001
From: Jason Stephenson <jason@sigio.com>
Date: Sat, 23 Aug 2014 10:22:58 -0400
Subject: [PATCH] Add required FromAgencyId and ToAgencyId to
 LookupVersionResponse.

Signed-off-by: Jason Stephenson <jason@sigio.com>
---
 lib/NCIP/ILS.pm                              | 3 ++-
 templates/includes/LookupVersionResponse.inc | 6 ++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/lib/NCIP/ILS.pm b/lib/NCIP/ILS.pm
index 9d0ecc0..dbc6a32 100644
--- a/lib/NCIP/ILS.pm
+++ b/lib/NCIP/ILS.pm
@@ -186,8 +186,9 @@ sub lookupversion {
     my $request = shift;
 
     my $response = NCIP::Response->new({type => "LookupVersionResponse"});
-    $response->header($self->make_header($request));
     my $payload = {
+        fromagencyid => $request->{LookupVersion}->{ToAgencyId},
+        toagencyid => $request->{LookupVersion}->{FromAgencyId},
         versions => [ NCIP::Const::SUPPORTED_VERSIONS ]
     };
     $response->data($payload);
diff --git a/templates/includes/LookupVersionResponse.inc b/templates/includes/LookupVersionResponse.inc
index 5cfcc8e..b08479e 100644
--- a/templates/includes/LookupVersionResponse.inc
+++ b/templates/includes/LookupVersionResponse.inc
@@ -1,3 +1,9 @@
+<FromAgencyId>
+[%- fromagencyid -%]
+</FromAgencyId>
+<ToAgencyId>
+[%- toagencyid -%]
+</ToAgencyId>
 [% FOREACH version IN data.versions -%]
 <VersionSupported>
 [%- version | xml -%]
-- 
2.11.0