* Process request variables for a HEAD request as if it is a GET request

git-svn-id: trunk@16372 -

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

@@ -1166,7 +1166,7 @@ begin
     if FHandleGetOnPost then
       InitGetVars;
     end
-  else if CompareText(R,'GET')=0 then
+  else if (CompareText(R,'GET')=0) or (CompareText(R,'HEAD')=0) then
     InitGetVars
   else
     Raise Exception.CreateFmt(SErrInvalidRequestMethod,[R]);