%[@ IncludeFile "Code/Util.vbs" ]%>
<%[@ IncludeFile "Code/Lang.vbs" ]%>
<%[
InitGlobalVariables
iCount = Session("IndividualsCount") + 0
If g_cTocExpand = -1 Or g_cTocExpand >= iCount Then
fTreeOpen = true
strToggle="collapse"
Else
fTreeOpen = false
strToggle = "expand"
End If
fPrivateFolder = Eval(Left(Report.FileOutput,g_nPrivateFolder) = g_strPrivateFolder)
If fPrivateFolder Then strPrivacy="private" Else strPrivacy="public"
Report.LogWarning "Report.FileOutput=" & Report.FileOutput & " g_strPrivateFolder=" & g_strPrivateFolder & "[" & g_nPrivateFolder & "]"
Report.LogWarning "fPrivateFolder=" & fPrivateFolder & " strPrivacy=" & strPrivacy
]%>
@[ Report.WriteFormatted Dic("FmtTitleTocIndividuals"), Session("Title") ]@
<%[If fPrivateFolder Then
Report.WriteFormattedLn "",g_strBaseUrl
Else
Report.WriteLn ""
End If]%>
<%[If g_fUseTreeIndexes Then]%>
@[WriteHtmlButtonToggle("Entries")]@
@[ Report.WriteTextDic "TocIndexIndividuals" ]@
<%[WriteHtmlLinkToPrivateToc fPrivateFolder, "individuals"]%>
<%[Else]%>
@[ Report.WriteTextDic "TocIndexIndividuals" ]@
<%[WriteHtmlLinkToPrivateToc fPrivateFolder, "individuals"]%>
<%[End If]%>
<%[
WriteHtmlTocIndividuals fTreeOpen, false, false
]%>
<%[If g_fUseTreeIndexes Then]%>
<%[End If]%>
<%[ WriteHtmlFramesetSafeguardK Session("Title"), "GenoProReportIndividuals", nothing ]%>