paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #36075

Browse Source 
git-svn-id: trunk@42993 -
This commit is contained in:
michael 2019-09-14 13:05:03 +00:00
parent 9b70c7623d
commit 55c4c61cd5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/base/iniwebsession.pp
View File

@ -406,8 +406,6 @@ begin
If (S='') then If (S='') then
begin begin
AddToSessionState(ssNew); AddToSessionState(ssNew);
If Assigned(OnNewSession) then
OnNewSession(Self);
GetSessionID; GetSessionID;
S:=IncludeTrailingPathDelimiter(SessionDir)+SF.SessionFilePrefix+SessionID; S:=IncludeTrailingPathDelimiter(SessionDir)+SF.SessionFilePrefix+SessionID;
{$ifdef cgidebug}SendDebug('Expired or new session. Creating new Ini file : '+S);{$endif} {$ifdef cgidebug}SendDebug('Expired or new session. Creating new Ini file : '+S);{$endif}
@ -415,6 +413,8 @@ begin
FIniFile.WriteDateTime(SSession,KeyStart,Now); FIniFile.WriteDateTime(SSession,KeyStart,Now);
FIniFile.WriteInteger(SSession,KeyTimeOut,Self.TimeOutMinutes); FIniFile.WriteInteger(SSession,KeyTimeOut,Self.TimeOutMinutes);
FSessionStarted:=True; FSessionStarted:=True;
If Assigned(OnNewSession) then
OnNewSession(Self);
end; end;
FIniFile.WriteDateTime(SSession,KeyLast,Now); FIniFile.WriteDateTime(SSession,KeyLast,Now);
If not FCached then If not FCached then