From 1761b4f11715a50030cd92c8a439e889328598ef Mon Sep 17 00:00:00 2001 From: michael Date: Sat, 16 Apr 2011 10:42:18 +0000 Subject: [PATCH] * Fixed case for .lrs files git-svn-id: trunk@30309 - --- components/fpweb/reglazwebextra.pp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/components/fpweb/reglazwebextra.pp b/components/fpweb/reglazwebextra.pp index c55b4d88d8..fa63ab3fd2 100644 --- a/components/fpweb/reglazwebextra.pp +++ b/components/fpweb/reglazwebextra.pp @@ -160,7 +160,8 @@ function TFileDescWebProviderDataModule.GetImplementationSource(const Filename, SourceName, ResourceName: string): string; begin Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName); - Result:=Result+'Initialization'+sLineBreak; + if GetResourceType = rtRes then + Result:=Result+'initialization'+LineEnding; Result:=Result+' RegisterHTTPModule(''T'+ResourceName+''',T'+ResourceName+');'+LineEnding; end; @@ -219,7 +220,7 @@ begin Free; end; Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName); - if RM or RH then + if (GetResourceType = rtRes) and (RM or RH) then Result:=Result+'Initialization'+sLineBreak; If RM then Result:=Result+' RegisterHTTPModule('''+HP+''',T'+ResourceName+');'+LineEnding; @@ -281,7 +282,7 @@ begin Free; end; Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName); - if RM or RH then + if (GetResourceType = rtRes) and (RM or RH) then Result:=Result+'Initialization'+sLineBreak; If RM then Result:=Result+' RegisterHTTPModule('''+HP+''',T'+ResourceName+');'+LineEnding;