Access ROR client ID environment variable (#30)

* Access ROR client ID environment variable

* Add temporary endpoint to test if accessing the environment variable is successful

elifesciences/issues#9358

Author: fred-atherden

src/webapp/validator.xqm

@@ -2,6 +2,16 @@ module namespace e = 'http://elifesciences.org/modules/validate';
 import module namespace session = "http://basex.org/modules/session";
 import module namespace rest = "http://exquery.org/ns/restxq";
 declare namespace svrl = "http://purl.oclc.org/dsdl/svrl";
+declare variable $e:ror-client-id := fn:environment-variable('ROR_CLIENT_ID');
+
+declare
+%rest:GET
+%rest:path('/ror-test')
+function e:get-ror-client-id() {
+      if ($e:ror-client-id)
+      then <result>{$e:ror-client-id}</result>
+      else <result>Variable was not found.</result>
+};
 
 (: Schematron :)
 
@@ -404,6 +414,7 @@ declare function e:introduce-rors($xml as item()) {
       let $json := try {
                  http:send-request(
                  <http:request method='get' href="{('https://api.ror.org/v2/organizations?affiliation='||web:encode-url($display))}" timeout='2'>
+                   <http:header name="Client-Id" value="{$e:ror-client-id}"/>
                  </http:request>)//*:json}
                catch * {<json><number__of__results>0</number__of__results></json>}
       return if ((number($json//*:number__of__results) = 0) or not($json//*:items/_[number(*:score[1]) ge 0.8]))
@@ -428,6 +439,7 @@ declare function e:introduce-rors($xml as item()) {
        let $json := try {
                  http:send-request(
                  <http:request method='get' href="{('https://api.ror.org/v2/organizations?affiliation='||web:encode-url($inst))}" timeout='2'>
+                   <http:header name="Client-Id" value="{$e:ror-client-id}"/>
                  </http:request>)//*:json}
                catch * {<json><number__of__results>0</number__of__results></json>}
         return if ((number($json//*:number__of__results) = 0) or not($json//*:items/_[number(*:score[1]) ge 0.8]))
@@ -787,6 +799,7 @@ declare function e:get-ror-rows($xml) as element(tr)* {
       let $json := try {
                  http:send-request(
                  <http:request method='get' href="{('https://api.ror.org/v2/organizations?affiliation='||web:encode-url($display))}" timeout='2'>
+                   <http:header name="Client-Id" value="{$e:ror-client-id}"/>
                  </http:request>)//*:json}
                catch * {<json><number__of__results>0</number__of__results></json>}
       where (number($json//*:number__of__results) gt 0) and $json//*:items/_[number(*:score[1]) ge 0.8]