# Clean up.

silvioprog · Jan 28, 2014 · 57f8e01 · 57f8e01
1 parent 4209926
commit 57f8e01
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/demos/chat/chatactns.pas b/demos/chat/chatactns.pas
@@ -52,7 +52,8 @@ procedure TChatPostMsg.Post;
 const
   MSG = '<div class="msgln">(%s) <b>%s</b>: %s<br></div>';
 begin
-  Add(MSG, [FormatDateTime('yyyy-mm-dd', Now), Session.Fields['name'].AsString,
+  Add(MSG, [FormatDateTime('yyyy-mm-dd', Now),
+    StripHTMLMarkup(Session.Fields['name'].AsString),
     StripHTMLMarkup(Fields['text'].AsString)]);
   Save;
 end;