paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 23:19:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

wiki: Fix hyperlinks from TOC to chapter headers of html files generated by wikiconvert (part 1 of issue #0028274)

Browse Source 
git-svn-id: trunk@49318 -
This commit is contained in:
wp 2015-06-12 15:21:36 +00:00
parent 5572c8e982
commit e7139754a5
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/wiki/lazwiki/wiki2xhtmlconvert.pas
View File

@ -236,9 +236,7 @@ begin
if HeaderTxt<>'' then begin
HRef:=WikiHeaderToLink(HeaderTxt);
// add anchor
LinkNode:=doc.CreateElement('a');
LinkNode.SetAttribute('name', HRef);
Page.CurDOMNode.ParentNode.InsertBefore(LinkNode, Page.CurDOMNode);
Page.CurDOMNode.SetAttribute('id', HRef);
// add TOC link
LINode:=doc.CreateElement('li');
LINode.SetAttribute('class', 'toclevel-'+IntToStr(Page.SectionLevel));