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

* Let TSessionHTTPModule.CheckSession really create a new session when there is none

Browse Source 
git-svn-id: trunk@14576 -
This commit is contained in:
joost 2010-01-08 15:20:41 +00:00
parent d56bd6d246
commit 699c07ce7f
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/websession.pp
View File

@ -342,8 +342,8 @@ procedure TSessionHTTPModule.CheckSession(ARequest : TRequest);
begin begin
{$ifdef cgidebug}SendMethodEnter('SessionHTTPModule('+Name+').CheckSession');{$endif} {$ifdef cgidebug}SendMethodEnter('SessionHTTPModule('+Name+').CheckSession');{$endif}
If CreateSession and Assigned(FSession) then If CreateSession and Assigned(Session) then
FSession.InitSession(ARequest,FOnNewSession,FOnSessionExpired); Session.InitSession(ARequest,FOnNewSession,FOnSessionExpired);
{$ifdef cgidebug}SendMethodExit('SessionHTTPModule('+Name+').CheckSession');{$endif} {$ifdef cgidebug}SendMethodExit('SessionHTTPModule('+Name+').CheckSession');{$endif}
end; end;