Don't wrongly set up language in returned value sets

Author: Grahame Grieve

library/ftx/fhir_valuesets.pas

@@ -2337,8 +2337,8 @@ function TFHIRValueSetExpander.expand(source: TFHIRValueSetW;
   if (source.url <> '') then
     dependencies.Add(source.url);
 
-  if FParams.hasLanguages then
-    result.language := FParams.Languages.prefLang;
+//  if FParams.hasLanguages then
+//    result.language := FParams.Languages.prefLang;
 
   filter := TSearchFilterText.create(textFilter);
 

server/fhirserver.lpi

@@ -378,7 +378,7 @@
         <PackageName Value="LCL"/>
       </Item18>
     </RequiredPackages>
-    <Units Count="96">
+    <Units Count="97">
       <Unit0>
         <Filename Value="fhirserver.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -766,6 +766,10 @@
         <Filename Value="endpoint_xig.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit95>
+      <Unit96>
+        <Filename Value="web_server.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit96>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

server/fhirserver.lpr

@@ -49,7 +49,7 @@
 
   kernel, server_testing, server_stats, remote_config, telnet_server, package_spider,
   tx_registry_spider, tx_omop, tx_registry_model, endpoint_txregistry,
-  endpoint_icao, tests_cpt, tx_cpt, xig_provider, endpoint_xig;
+  endpoint_icao, tests_cpt, tx_cpt, xig_provider, endpoint_xig, web_server;
 
 {$R *.res}