コミット前の保存を失念いていた。

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 2e987b5..1621d97 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -623,8 +623,8 @@ var
   s, t: string;
   i: Integer;
 begin
-  if hash(Request.CookieFields.Values['user']) <>
-    DataModule1.FDTable3.FieldByName('password').AsString then
+  s:=Request.CookieFields.Values['user'];
+  if (s = '')or(hash(s) <> DataModule1.FDTable3.FieldByName('password').AsString) then
   begin
     WebModule1loginAction(nil, Request, Response, Handled);
     Exit;
@@ -678,7 +678,6 @@ begin
     end;
     Post;
   end;
-  Request.CookieFields.Values['user'] := s;
   WebModule1adminAction(nil, Request, Response, Handled);
 end;