From cfb50fea87d2ad692094d230ea1ac32637944a38 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 3 Jun 2011 07:36:36 +0000
Subject: [PATCH] * Fix in case PATHINFO is used instead of full URL

git-svn-id: trunk@17647 -
---
 packages/fcl-web/src/base/fpwebfile.pp | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/packages/fcl-web/src/base/fpwebfile.pp b/packages/fcl-web/src/base/fpwebfile.pp
index 2adf9c5191..1e79ca17fe 100644
--- a/packages/fcl-web/src/base/fpwebfile.pp
+++ b/packages/fcl-web/src/base/fpwebfile.pp
@@ -85,12 +85,10 @@ Function TFPCustomFileModule.GetRequestFileName(Const ARequest : TRequest) : Str
 begin
   Result:=ARequest.PathInfo;
   If (Result='') then
-    begin
     Result:=ARequest.URI;
-    sb;
-    If (BaseURL<>'') and (Pos(BaseURL,Result)=1) then
-      Delete(Result,1,Length(BaseURL));
-    end;
+  sb;
+  If (BaseURL<>'') and (Pos(BaseURL,Result)=1) then
+    Delete(Result,1,Length(BaseURL));
   sb;
 end;