Add required FromAgencyId and ToAgencyId to LookupVersionResponse.

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

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