paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 15:10:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #33012 (duplicate module), patch from Sven Barth

Browse Source 
git-svn-id: trunk@37952 -
This commit is contained in:
michael 2018-01-13 10:01:10 +00:00
parent f930d186f0
commit b4375fd37a
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-web/src/base/custweb.pp
View File

@ -344,10 +344,12 @@ begin
MN:=Sender.ModuleName;
// Modules expect the path info to contain the action name as the first part. (See getmodulename);
ARequest.GetNextPathInfo;
if Sender.SkipStreaming then
M:=MC.CreateNew(Self)
else
M:=MC.Create(Self);
M:=FindModule(MC);
if (M=Nil) then
if Sender.SkipStreaming then
M:=MC.CreateNew(Self)
else
M:=MC.Create(Self);
DoCallModule(M,MN,ARequest,AResponse);
end;