From 6a4f7b4e637c1a2f1f6f480df14c2bc4bfdc4c31 Mon Sep 17 00:00:00 2001
From: Jason Stephenson <jason@sigio.com>
Date: Sat, 23 Aug 2014 11:29:55 -0400
Subject: [PATCH] More LookupVersion fixes.

NCIP has too many redundant layers of tags.

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

diff --git a/lib/NCIP/ILS.pm b/lib/NCIP/ILS.pm
index dbc6a32..2bceb16 100644
--- a/lib/NCIP/ILS.pm
+++ b/lib/NCIP/ILS.pm
@@ -187,8 +187,8 @@ sub lookupversion {
 
     my $response = NCIP::Response->new({type => "LookupVersionResponse"});
     my $payload = {
-        fromagencyid => $request->{LookupVersion}->{ToAgencyId},
-        toagencyid => $request->{LookupVersion}->{FromAgencyId},
+        fromagencyid => $request->{LookupVersion}->{ToAgencyId}->{AgencyId},
+        toagencyid => $request->{LookupVersion}->{FromAgencyId}->{AgencyId},
         versions => [ NCIP::Const::SUPPORTED_VERSIONS ]
     };
     $response->data($payload);
diff --git a/templates/includes/LookupVersionResponse.inc b/templates/includes/LookupVersionResponse.inc
index 8b111e0..e596073 100644
--- a/templates/includes/LookupVersionResponse.inc
+++ b/templates/includes/LookupVersionResponse.inc
@@ -1,8 +1,12 @@
 <FromAgencyId>
+<AgencyId>
 [%- data.fromagencyid -%]
+</AgencyId>
 </FromAgencyId>
 <ToAgencyId>
+<AgencyId>
 [%- data.toagencyid -%]
+<AgencyId>
 </ToAgencyId>
 [% FOREACH version IN data.versions -%]
 <VersionSupported>
-- 
2.43.2