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

* Fixed bug in path building for links to elements which don't have their

Browse Source 
own page, but their parent element has
This commit is contained in:
sg 2003-04-22 00:00:05 +00:00
parent 811fdad9b6
commit 342f5c3bed
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
utils/fpdoc/dw_html.pp
View File

@ -604,13 +604,13 @@ begin
if Length(Result) = 0 then if Length(Result) = 0 then
begin begin
Result := Engine.FindAbsoluteLink(Module.PathName + '.' + Name); Result := Engine.FindAbsoluteLink(Module.PathName + '.' + Name);
// WriteLn('Suche nach ', Module.PathName + '.' + Name, ' => ', Result); // WriteLn('Searching for ', Module.PathName + '.' + Name, ' => ', Result);
if Length(Result) = 0 then if Length(Result) = 0 then
for i := Length(Name) downto 1 do for i := Length(Name) downto 1 do
if Name[i] = '.' then if Name[i] = '.' then
begin begin
Result := ResolveLinkID(Copy(Name, 1, i - 1)); Result := ResolveLinkID(Copy(Name, 1, i - 1));
break; exit;
end; end;
end; end;
ThisPackage := ThisPackage.NextSibling; ThisPackage := ThisPackage.NextSibling;
@ -1701,7 +1701,6 @@ var
begin begin
AppendMenuBar(0); AppendMenuBar(0);
AppendTitle(Format(SDocPackageTitle, [Copy(Package.Name, 2, 256)])); AppendTitle(Format(SDocPackageTitle, [Copy(Package.Name, 2, 256)]));
WriteLn('Package Pathname: ', Package.PathName); // ###
AppendShortDescr(CreatePara(BodyElement), Package); AppendShortDescr(CreatePara(BodyElement), Package);
AppendText(CreateH2(BodyElement), SDocUnits); AppendText(CreateH2(BodyElement), SDocUnits);
@ -2578,7 +2577,11 @@ end.
{ {
$Log$ $Log$
Revision 1.3 2003-04-17 14:15:24 sg Revision 1.4 2003-04-22 00:00:05 sg
* Fixed bug in path building for links to elements which don't have their
own page, but their parent element has
Revision 1.3 2003/04/17 14:15:24 sg
* Added writing of array ranges * Added writing of array ranges
Revision 1.2 2003/03/18 19:28:44 michael Revision 1.2 2003/03/18 19:28:44 michael