summaryrefslogtreecommitdiff
path: root/packages/fcl-web/src/base/fphttpserver.pp
diff options
context:
space:
mode:
Diffstat (limited to 'packages/fcl-web/src/base/fphttpserver.pp')
-rw-r--r--packages/fcl-web/src/base/fphttpserver.pp2
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-web/src/base/fphttpserver.pp b/packages/fcl-web/src/base/fphttpserver.pp
index 5b26eaccb1..77c495751f 100644
--- a/packages/fcl-web/src/base/fphttpserver.pp
+++ b/packages/fcl-web/src/base/fphttpserver.pp
@@ -35,7 +35,6 @@ Type
TFPHTTPConnectionRequest = Class(TRequest)
private
FConnection: TFPHTTPConnection;
-
protected
procedure SetContent(AValue : String);
Property Connection : TFPHTTPConnection Read FConnection;
@@ -369,6 +368,7 @@ Var
begin
Request.Method:=GetNextWord(AStartLine);
Request.URL:=GetNextWord(AStartLine);
+ Request.PathInfo:=Request.URL;
S:=GetNextWord(AStartLine);
If (Pos('HTTP/',S)<>1) then
Raise Exception.Create(SErrMissingProtocol);