From 825a060618849ce8b9e75b776b593eb5836f43bf Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 23 Aug 2008 11:35:34 +0000
Subject: [PATCH] * Patch from Sergei Gorelkin to handle unicode
git-svn-id: trunk@11638 -
---
utils/fpdoc/dw_html.pp | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/utils/fpdoc/dw_html.pp b/utils/fpdoc/dw_html.pp
index b87f16c969..e52b10aadb 100644
--- a/utils/fpdoc/dw_html.pp
+++ b/utils/fpdoc/dw_html.pp
@@ -621,8 +621,8 @@ var
begin
Doc := THTMLDocument.Create;
Result := Doc;
- Doc.AppendChild(Doc.CreateProcessingInstruction(
- 'DOCTYPE', 'HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"'));
+ Doc.AppendChild(Doc.Impl.CreateDocumentType(
+ 'HTML', '-//W3C//DTD HTML 4.0 Transitional//EN', ''));
HTMLEl := Doc.CreateHtmlElement;
Doc.AppendChild(HTMLEl);
@@ -633,7 +633,7 @@ begin
HeadEl.AppendChild(El);
El['http-equiv'] := 'Content-Type';
- El['content'] := Format('text/html; charset=%s',[charset]);
+ El['content'] := 'text/html; charset=utf-8';
TitleElement := Doc.CreateElement('title');
HeadEl.AppendChild(TitleElement);
El := Doc.CreateElement('link');