diff --git a/release-notes.md b/release-notes.md index b3d636a04..daf069d12 100644 --- a/release-notes.md +++ b/release-notes.md @@ -1,7 +1,7 @@ ## Change Notes: -* +* fix wrong link returned from SHL Server (must be secure) ## Conformance Notes: -* \ No newline at end of file +* tx.fhir.org passed all 304 HL7 terminology service tests (mode 'tx.fhir.org', tests v1.7.5, runner v6.5.10) diff --git a/server/endpoint_shl.pas b/server/endpoint_shl.pas index 7f4365fca..1b583f1c9 100644 --- a/server/endpoint_shl.pas +++ b/server/endpoint_shl.pas @@ -111,7 +111,7 @@ function TSHLWebServer.processCreate(request: TIdHTTPRequestInfo; response: TIdH try resp.str['uuid'] := NewGuidId; resp.str['pword'] := NewGuidId; - resp.str['link'] := 'http://'+common.host+PathWithSlash+resp.str['uuid']; + resp.str['link'] := 'https://'+common.host+PathWithSlash+resp.str['uuid']; c.SQL := 'Insert into SHL (uuid, pword, expiry, mimetype) values (:u, :p, :e, :m)'; c.prepare;