paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:06:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make sure that the value of ActionVar is passed as actionname to the OnGetAction event

Browse Source 
git-svn-id: trunk@16341 -
This commit is contained in:
joost 2010-11-13 21:16:29 +00:00
parent c4cd67c782
commit af40e489dc
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-web/src/base/fphttp.pp
View File

@ -397,15 +397,16 @@ end;
function TCustomWebActions.GetActionName(ARequest: TRequest): String; function TCustomWebActions.GetActionName(ARequest: TRequest): String;
begin begin
If (FActionVar<>'') then
Result:=ARequest.QueryFields.Values[FActionVar]
else
Result := '';
If Assigned(FOnGetAction) then If Assigned(FOnGetAction) then
FOnGetAction(Self,ARequest,Result); FOnGetAction(Self,ARequest,Result);
// GetNextPathInfo is only used after OnGetAction, so that the call to
// GetNextPathInfo can be avoided in the event.
If (Result='') then If (Result='') then
begin Result:=ARequest.GetNextPathInfo;
If (FActionVar<>'') then
Result:=ARequest.QueryFields.Values[FActionVar];
If (Result='') then
Result:=ARequest.GetNextPathInfo;
end;
end; end;
constructor TCustomWebActions.Create(AItemClass: TCollectionItemClass); constructor TCustomWebActions.Create(AItemClass: TCollectionItemClass);