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

* Applied Patch from Attila Borka (bug 19374)

Browse Source 
git-svn-id: trunk@17602 -
This commit is contained in:
michael 2011-05-29 09:51:49 +00:00
parent 2005f6869b
commit c7d9525a2f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-web/src/base/custweb.pp
View File

@ -376,8 +376,11 @@ begin
If (Result='') then If (Result='') then
begin begin
S:=ARequest.PathInfo; S:=ARequest.PathInfo;
If (Length(S)>0) and (S[1]='/') then If (Length(S)>0) and (S[1]='/') then
Delete(S,1,1); Delete(S,1,1); //Delete the leading '/' if exists
I:=Length(S);
If (I>0) and (S[I]='/') then
Delete(S,I,1); //Delete the trailing '/' if exists
I:=Pos('/',S); I:=Pos('/',S);
if (I>0) then if (I>0) then
Result:=ARequest.GetNextPathInfo; Result:=ARequest.GetNextPathInfo;