* fix for mantis 15820, override getnamepath as suggested by Paul.

git-svn-id: trunk@16592 -

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

@@ -63,6 +63,7 @@ Type
   Protected
     procedure SetContentProducer(const AValue: THTTPContentProducer);virtual;
     Function  GetDisplayName : String; override;
+    Function  GetNamePath : String; override;
     Procedure SetDisplayName(const AValue : String); override;
     Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse; Var Handled : Boolean);
     Procedure DoHandleRequest(ARequest : TRequest; AResponse : TResponse; Var Handled : Boolean); virtual;
@@ -316,6 +317,13 @@ begin
   Result:=FName;
 end;
 
+Function TCustomWebAction.GetNamePath : String;
+begin
+ If (FName='') then
+    FName:=ClassName+IntToStr(self.Index);
+  Result:=FName;
+end;
+
 procedure TCustomWebAction.SetDisplayName(const AValue: String);
 begin
   Inherited;