--- Merging r17533 into '.':

U    packages/fcl-web/src/base/fpapache.pp

# revisions: 17533
------------------------------------------------------------------------
r17533 | michael | 2011-05-23 20:50:38 +0200 (Mon, 23 May 2011) | 1 line
Changed paths:
   M /trunk/packages/fcl-web/src/base/fpapache.pp

* Fixed missing initialization of webhandler
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@17567 -

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

@@ -125,6 +125,7 @@ Type
     procedure SetPriority(const AValue: THandlerPriority);
   public
     function InitializeWebHandler: TWebHandler; override;
+    Procedure Initialize;
     procedure ShowException(E: Exception); override;
     Function ProcessRequest(P : PRequest_Rec) : Integer; virtual;
     Function AllowRequest(P : PRequest_Rec) : Boolean; virtual;
@@ -716,6 +717,11 @@ begin
   Result:=TApacheHandler.Create(self);
 end;
 
+procedure TCustomApacheApplication.Initialize;
+begin
+  TApacheHandler(WebHandler).Initialize;
+end;
+
 procedure TCustomApacheApplication.ShowException(E: Exception);
 begin
   ap_log_error(pchar(TApacheHandler(WebHandler).ModuleName),0,APLOG_ERR,0,Nil,'module: %s',[Pchar(E.Message)]);