paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 23:26:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

wiki: skip alternative title

Browse Source 
git-svn-id: trunk@35891 -
This commit is contained in:
mattias 2012-03-11 16:12:55 +00:00
parent 93cb3d2b93
commit 1ae66cb238
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -124,7 +124,7 @@ var
i: Integer; i: Integer;
begin begin
GetPageTranslations(Page.WikiDocumentName, LangToPage); GetPageTranslations(Page.WikiDocumentName, LangToPage);
debugln(['TWiki2XHTMLConverter.DoAddLinksToTranslations ',Page.WikiDocumentName,' ',LangToPage.Count]); //debugln(['TWiki2XHTMLConverter.DoAddLinksToTranslations ',Page.WikiDocumentName,' ',LangToPage.Count]);
Captions:=TStringList.Create; Captions:=TStringList.Create;
try try
if (LangToPage=nil) or (LangToPage.Count<2) then exit; if (LangToPage=nil) or (LangToPage.Count<2) then exit;
@ -586,6 +586,11 @@ begin
if Token is TWPNameValueToken then begin if Token is TWPNameValueToken then begin
NameValueToken:=TWPNameValueToken(Token); NameValueToken:=TWPNameValueToken(Token);
CurName:=copy(W.Src,NameValueToken.NameStartPos,NameValueToken.NameEndPos-NameValueToken.NameStartPos); CurName:=copy(W.Src,NameValueToken.NameStartPos,NameValueToken.NameEndPos-NameValueToken.NameStartPos);
if CurName='' then begin
// special without class = alternative title
// the title is already written
exit;
end;
CurValue:=copy(W.Src,NameValueToken.ValueStartPos,NameValueToken.ValueEndPos-NameValueToken.ValueStartPos); CurValue:=copy(W.Src,NameValueToken.ValueStartPos,NameValueToken.ValueEndPos-NameValueToken.ValueStartPos);
Node:=doc.CreateElement('span'); Node:=doc.CreateElement('span');
if CurName<>'' then if CurName<>'' then