More LookupVersion fixes.

NCIP has too many redundant layers of tags.

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

diff --git a/lib/NCIP/ILS.pm b/lib/NCIP/ILS.pm
index dbc6a32..2bceb16 100644 (file)
--- 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 (file)
--- 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>