[fpc-devel] patch for THtmlWriter.EscapeText

[Vincent Snijders]

Hi,

Attached is a patch for patch for THtmlWriter.EscapeText

Vincent

Index: packages/fcl-base/src/whtml.pp
===================================================================
--- packages/fcl-base/src/whtml.pp	(revision 11609)
+++ packages/fcl-base/src/whtml.pp	(working copy)
@@ -136,9 +136,9 @@
 function THTMLWriter.EscapeText(AText: String): String;
 begin
   // replace by a more sensitive method.
-  Result:=StringReplace(AText,'&','&amp',[rfReplaceAll]);
-  Result:=StringReplace(Result,'<','&lt',[rfReplaceAll]);
-  Result:=StringReplace(Result,'>','&gt',[rfReplaceAll]);
+  Result:=StringReplace(AText,'&','&amp;',[rfReplaceAll]);
+  Result:=StringReplace(Result,'<','&lt;',[rfReplaceAll]);
+  Result:=StringReplace(Result,'>','&gt;',[rfReplaceAll]);
   Result:=StringReplace(Result,#10,'<BR>',[rfreplaceAll]);
 end;
 

_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel