From 811b65da87fa8a1de733b78e555cb44fa3ad9e44 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Mon, 20 Aug 2012 10:42:31 +0000
Subject: [PATCH]  * fix for #22664 from Benito Zander. pos() instead of
 comparetext was used.

git-svn-id: trunk@22143 -
---
 packages/fcl-web/src/base/cgiapp.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-web/src/base/cgiapp.pp b/packages/fcl-web/src/base/cgiapp.pp
index 18ca27e076..c2a6e182aa 100644
--- a/packages/fcl-web/src/base/cgiapp.pp
+++ b/packages/fcl-web/src/base/cgiapp.pp
@@ -686,7 +686,7 @@ begin
     Finally
       I.Free;
     end;
-    if Pos(ContentType,'MULTIPART/FORM-DATA')=0 then
+    if CompareText(ContentType,'MULTIPART/FORM-DATA')=0 then
       ProcessMultiPart(M,ContentType)
     else if CompareText(ContentType,'APPLICATION/X-WWW-FORM-URLENCODED')=0 then
       ProcessUrlEncoded(M)