paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check for redirects also on other level. Fixes tbufdataset.active in the FCL index

Browse Source 
git-svn-id: trunk@42138 -
This commit is contained in:
marco 2019-05-30 15:46:36 +00:00
parent 8ba75c847a
commit ad44f618da
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
utils/fpdoc/dw_htmlchm.inc
View File

@ -289,7 +289,7 @@ var
ParentElement: TPasElement;
MemberItem: TChmSiteMapItem;
Stream: TMemoryStream;
s: String;
s,s2: String;
begin
DoLog('Generating Index...');
@ -354,7 +354,12 @@ begin
TmpItem := MemberItem.Children.NewItem;
TmpItem.Text := ParentElement.Name;
TmpITem.addLocal(FixHTMLpath(Allocator.GetFilename(TmpElement, 0)));
s2:=Allocator.GetFilename(TmpElement, 0);
if s<>s2 then
begin
writeln('Hint: Index2 Resolved:',tmpitem.local,' to ',s);
TmpItem.AddLocal(s);
end;
end;
end;
// routines