Browse Source

* avoid prepending unitname with abs paths.

git-svn-id: trunk@24099 -
marco 12 years ago
parent
commit
545a3e708c
1 changed files with 2 additions and 4 deletions
  1. 2 4
      utils/fpdoc/dw_html.pp

+ 2 - 4
utils/fpdoc/dw_html.pp

@@ -913,8 +913,8 @@ function THTMLWriter.ResolveLinkIDInUnit(const Name,AUnitName: String): DOMStrin
 
 begin
   Result:=ResolveLinkID(Name);
-  If (Result='') and (AUnitName<>'')  then
-    Result:=ResolveLinkID(AUnitName+'.'+Name);
+  If (Result='') and (AUnitName<>'') and (length(Name)>0) and (Name[1]<>'#') then
+     Result:=ResolveLinkID(AUnitName+'.'+Name);
 end;
 
 function THTMLWriter.ResolveLinkID(const Name: String; Level : Integer = 0): DOMString;
@@ -1389,8 +1389,6 @@ begin
 end;
 
 
-
-
 procedure THTMLWriter.AppendText(Parent: TDOMNode; const AText: DOMString);
 begin
   Parent.AppendChild(Doc.CreateTextNode(AText));