From 699c07ce7fc765a289b6b740364ee3d5de4588d7 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Fri, 8 Jan 2010 15:20:41 +0000
Subject: [PATCH]  * Let TSessionHTTPModule.CheckSession really create a new
 session when there is none

git-svn-id: trunk@14576 -
---
 packages/fcl-web/src/websession.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-web/src/websession.pp b/packages/fcl-web/src/websession.pp
index 10b3bf4110..048903ada4 100644
--- a/packages/fcl-web/src/websession.pp
+++ b/packages/fcl-web/src/websession.pp
@@ -342,8 +342,8 @@ procedure TSessionHTTPModule.CheckSession(ARequest : TRequest);
 
 begin
 {$ifdef cgidebug}SendMethodEnter('SessionHTTPModule('+Name+').CheckSession');{$endif}
-  If CreateSession and Assigned(FSession) then
-    FSession.InitSession(ARequest,FOnNewSession,FOnSessionExpired);
+  If CreateSession and Assigned(Session) then
+    Session.InitSession(ARequest,FOnNewSession,FOnSessionExpired);
 {$ifdef cgidebug}SendMethodExit('SessionHTTPModule('+Name+').CheckSession');{$endif}
 end;