fixed TRestServerAuthenticationHttpBasic after 244fe0e

synopse · Dec 5, 2022 · 6ae9b03 · 6ae9b03
1 parent b0a51d1
commit 6ae9b03
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.0.4402'
+'2.0.4403'
diff --git a/src/rest/mormot.rest.client.pas b/src/rest/mormot.rest.client.pas
@@ -2447,14 +2447,13 @@ function TRestClientUri.Uri(const url, method: RawUtf8; Resp: PRawUtf8;
 
   procedure CallInternalUri;
   begin
+    Call.Method := method;
     Call.Url := url; // reset to allow proper re-sign
+    Call.InHead := InHead; // ClientSessionSign() may add a cookie
     if fSession.Authentication <> nil then
       fSession.Authentication.ClientSessionSign(self, Call);
-    Call.Method := method;
     if fSession.HttpHeader <> '' then
-      Call.InHead := TrimU(InHead + #13#10 + fSession.HttpHeader)
-    else
-      Call.InHead := InHead;
+      Call.InHead := TrimU(Call.InHead + #13#10 + fSession.HttpHeader);
     if SendData <> nil then
       Call.InBody := SendData^;
     if Assigned(fOnIdle) then