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

* fix for #22664 from Benito Zander. pos() instead of comparetext was used.

Browse Source 
git-svn-id: trunk@22143 -
This commit is contained in:
marco 2012-08-20 10:42:31 +00:00
parent 7201bd8526
commit 811b65da87
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-web/src/base/cgiapp.pp
View File

@ -686,7 +686,7 @@ begin
Finally Finally
I.Free; I.Free;
end; end;
if Pos(ContentType,'MULTIPART/FORM-DATA')=0 then if CompareText(ContentType,'MULTIPART/FORM-DATA')=0 then
ProcessMultiPart(M,ContentType) ProcessMultiPart(M,ContentType)
else if CompareText(ContentType,'APPLICATION/X-WWW-FORM-URLENCODED')=0 then else if CompareText(ContentType,'APPLICATION/X-WWW-FORM-URLENCODED')=0 then
ProcessUrlEncoded(M) ProcessUrlEncoded(M)