paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-09 20:38:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

wiki: fix internal links within same downloaded page

Browse Source 
git-svn-id: trunk@49326 -
This commit is contained in:
wp 2015-06-13 17:08:14 +00:00
parent 11c6f4dfca
commit c4766c9519
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/wiki/lazwiki/wiki2xhtmlconvert.pas
View File

@ -379,7 +379,7 @@ var
URL:=GetPageLink(TargetPage); URL:=GetPageLink(TargetPage);
if Anchor<>'' then if Anchor<>'' then
URL+='#'+Anchor; URL+='#'+Anchor;
end else if (not FileExistsUTF8(Filename)) then begin end else if ((FileName <> '') and not FileExistsUTF8(Filename)) then begin
if WarnMissingPageLinks and WarnURL(LinkToken.Link) then if WarnMissingPageLinks and WarnURL(LinkToken.Link) then
Log('WARNING: TWiki2XHTMLConverter.InsertLink "'+dbgstr(LinkToken.Link)+'": file not found: "'+Filename+'" at '+W.PosToStr(LinkToken.LinkStartPos,true)); Log('WARNING: TWiki2XHTMLConverter.InsertLink "'+dbgstr(LinkToken.Link)+'": file not found: "'+Filename+'" at '+W.PosToStr(LinkToken.LinkStartPos,true));
URL:=''; URL:='';