Handle variant SHL request

costateixeira · Feb 27, 2025 · e799001 · e799001
1 parent e8f5acf
commit e799001
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/server/endpoint_shl.pas b/server/endpoint_shl.pas
@@ -215,7 +215,7 @@ function TSHLWebServer.PlainRequest(AContext: TIdContext; ip: String; request: T
       result := processCreate(request, response, c)
     else if (request.CommandType = hcPOST) and (request.Document = PathWithSlash+'upload') then
       result := processUpload(request, response, c)
-    else if (request.CommandType = hcGET) and (request.Document.length > PathWithSlash.length) then
+    else if ((request.CommandType = hcGET) or (request.CommandType = hcPOST)) and (request.Document.length > PathWithSlash.length) then
     begin
       c.sql := 'select * from SHL where uuid = :u';
       c.prepare;

diff --git a/server/fhirserver.lpi b/server/fhirserver.lpi
@@ -1,3 +1,4 @@
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
     <Version Value="12"/>
@@ -1017,7 +1018,7 @@
         <Name Value="EPackageCrawlerException"/>
       </Item50>
       <Item51>
-        <Name Value="&lt;Unknown Class&gt;"/>
+        <Name Value="&lt;Unknown Class>"/>
       </Item51>
       <Item52>
         <Name Value="EDateFormatError"/>