%
var
aTopicList: THndTopicsInfoArray;
var
aKeywordList: THndKeywordsInfoArray;
var
nBlocLevel: integer = 0;
var
nCurTopic, nCurTopicLevel, nDif, nClose: integer;
var
nCurKeyword, nCurKeywordLevel, nCurKeywordTopic: integer;
var
sCurTopic, sCurKeyword, sProjectTitle: string;
var
sKeywordLink, sKeywordOnClick: string;
var
aAssociatedTopics: array of string;
var
sTheme: string;
begin
// Setup the file name
HndGeneratorInfo.CurrentFile := ExtractFileName(HndGeneratorInfo.OutputFile);
// Theme
sTheme := HndGeneratorInfo.GetCustomSettingValue('Theme');
if (sTheme = 'default') then sTheme := '';
sProjectTitle := HndProjects.GetProjectTitle();
aTopicList := HndTopicsEx.GetTopicListGenerated(True, False);
aKeywordList := HndKeywords.GetKeywordList(False);
%>
<% print(HTMLEncode(sProjectTitle)); %>
<% if (sTheme <> '') then begin %>
<% end; %>
<%
for nCurTopic := 0 to length(aTopicList) - 1 do
begin
sCurTopic := aTopicList[nCurTopic].id;
nCurTopicLevel := HndTopics.GetTopicLevel(sCurTopic);
%>