From 14e9f8f92c2a307b2ba74e0a403dd027f865dc5f Mon Sep 17 00:00:00 2001
From: Grahame Grieve <grahameg@gmail.ccom>
Date: Thu, 27 Feb 2025 20:47:28 +1100
Subject: [PATCH] fix wrong link returned from SHL Server (must be secure)

---
 release-notes.md        | 4 ++--
 server/endpoint_shl.pas | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

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;