浏览代码

* avoid prepending unitname with abs paths.

git-svn-id: trunk@24099 -
marco 12 年之前
父节点
当前提交
545a3e708c
共有 1 个文件被更改,包括 2 次插入4 次删除
  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
 begin
   Result:=ResolveLinkID(Name);
   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;
 end;
 
 
 function THTMLWriter.ResolveLinkID(const Name: String; Level : Integer = 0): DOMString;
 function THTMLWriter.ResolveLinkID(const Name: String; Level : Integer = 0): DOMString;
@@ -1389,8 +1389,6 @@ begin
 end;
 end;
 
 
 
 
-
-
 procedure THTMLWriter.AppendText(Parent: TDOMNode; const AText: DOMString);
 procedure THTMLWriter.AppendText(Parent: TDOMNode; const AText: DOMString);
 begin
 begin
   Parent.AppendChild(Doc.CreateTextNode(AText));
   Parent.AppendChild(Doc.CreateTextNode(AText));