paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 18:19:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* suppress keyword if seealso is assigned. Fix for code that is scheduled to be rewritten.

Browse Source 
git-svn-id: trunk@39793 -
This commit is contained in:
marco 2018-09-22 11:44:20 +00:00
parent 116230f759
commit 5e7e4814d9
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/chm/src/chmsitemap.pas
View File

@ -253,10 +253,8 @@ begin
begin
if (FLevel > 0 ) then
begin
if LowerCase(GetTagName(AActualTag)) = 'param' then begin
TagAttributeName := GetVal(AActualTag, 'name');
if LowerCase(GetTagName(AActualTag)) = 'param' then begin
TagAttributeName := GetVal(AActualTag, 'name');
TagAttributeValue := GetVal(AActualTag, 'value');
//writeln('name,value',tagattributename, ' ',tagattributevalue);
if TagAttributeName <> '' then begin
@ -424,7 +422,7 @@ var
WriteString('<LI> <OBJECT type="text/sitemap">');
Inc(Indent, 8);
if (SiteMapType = stIndex) and (Item.Children.Count > 0) then
if (SiteMapType = stIndex) and ((Item.Children.Count > 0) or (item.seealso<>'')) then
WriteParam('Keyword', Item.Text);
//if Item.KeyWord <> '' then WriteParam('Keyword', Item.KeyWord);
if Item.Text <> '' then WriteParam('Name', Item.Text);