--- Merging r18838 into '.':

U    packages/fcl-web/src/base/fphttpserver.pp

# revisions: 18838
------------------------------------------------------------------------
r18838 | michael | 2011-08-25 17:11:19 +0200 (Thu, 25 Aug 2011) | 1 line
Changed paths:
   M /trunk/packages/fcl-web/src/base/fphttpserver.pp

* Fixed missing content vars
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_6@18956 -

packages/fcl-web/src/base/fphttpserver.pp

@@ -226,6 +226,7 @@ procedure TFPHTTPConnectionRequest.SetContent(AValue : String);
 begin
   FContent:=Avalue;
   FContentRead:=true;
+  InitRequestVars;
 end;
 (*
 Procedure TFPHTTPConnectionRequest.SetFieldValue(Index : Integer; Value : String);