anchor.diff:      begin
         if not pm.has('lastUpdated') then
         begin
  -        serveSearch(pm['name'], pm['canonical'], pm['fhirversion'], pm['sort'], request, response);
  +        serveSearch(pm['name'], pm['canonical'], pm['fhirversion'], pm['sort'], secure, request, response);
           result := 'Search Packages';
         end
         else if pm['lastUpdated'].startsWith('-') then
  
positive.code:     result := '';
  end;
  
  procedure TFHIRPackageWebServer.serveSearch(name, canonical, FHIRVersion, sort : String; request : TIdHTTPRequestInfo; response : TIdHTTPResponseInfo);
  var
    conn : TFDBConnection;
    json : TJsonArray;
  
negative.code:     procedure servePage(fn : String; request : TIdHTTPRequestInfo; response : TIdHTTPResponseInfo; secure : boolean);
      procedure serveDownload(id, version : String; response : TIdHTTPResponseInfo);
      procedure serveVersions(id, sort : String; request : TIdHTTPRequestInfo; response : TIdHTTPResponseInfo);
      procedure serveSearch(name, canonical, FHIRVersion, sort : String; secure : boolean; request : TIdHTTPRequestInfo; response : TIdHTTPResponseInfo);
      procedure serveUpdates(date : TFslDateTime; response : TIdHTTPResponseInfo);
      procedure SetScanning(const Value: boolean);
      function doRequest(AContext: TIdContext; request: TIdHTTPRequestInfo; response: TIdHTTPResponseInfo; id: String; secure: boolean): String;
  