Bläddra i källkod

* Fix for samesite

git-svn-id: trunk@45447 -
michael 5 år sedan
förälder
incheckning
c3218e19c7
1 ändrade filer med 1 tillägg och 1 borttagningar
  1. 1 1
      packages/fcl-web/src/base/httpdefs.pp

+ 1 - 1
packages/fcl-web/src/base/httpdefs.pp

@@ -2347,7 +2347,7 @@ begin
     if FSecure then
     if FSecure then
       AddToResult(SCookieSecure);
       AddToResult(SCookieSecure);
     if FSameSite<>ssEmpty then
     if FSameSite<>ssEmpty then
-      AddToResult(SSameSiteValues[FSameSite]);
+      AddToResult(SCookieSameSite+': '+SSameSiteValues[FSameSite]);
   except
   except
 {$ifdef cgidebug}
 {$ifdef cgidebug}
     On E : Exception do
     On E : Exception do