diff options
Diffstat (limited to 'packages/fcl-web/src/base/fphttp.pp')
| -rw-r--r-- | packages/fcl-web/src/base/fphttp.pp | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/packages/fcl-web/src/base/fphttp.pp b/packages/fcl-web/src/base/fphttp.pp index 314333403d..d6cbdaefdd 100644 --- a/packages/fcl-web/src/base/fphttp.pp +++ b/packages/fcl-web/src/base/fphttp.pp @@ -397,15 +397,16 @@ end; function TCustomWebActions.GetActionName(ARequest: TRequest): String; begin + If (FActionVar<>'') then + Result:=ARequest.QueryFields.Values[FActionVar] + else + Result := ''; If Assigned(FOnGetAction) then 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 - begin - If (FActionVar<>'') then - Result:=ARequest.QueryFields.Values[FActionVar]; - If (Result='') then - Result:=ARequest.GetNextPathInfo; - end; + Result:=ARequest.GetNextPathInfo; end; constructor TCustomWebActions.Create(AItemClass: TCollectionItemClass); |