%[@ IncludeFile "Code/Util.vbs" ]%>
<%[@ IncludeFile "Code/Lang.vbs" ]%>
<%[If Session("Book") Then Report.AbortTemplate]%>
<%[
Dim strHtmlIndividualCharts
If Session("cTocExpand") = -1 Or Session("cTocExpand") >= Session("DescendantTreeCharts") Then
fTreeOpen = true
strToggle="collapse"
Else
fTreeOpen = false
strToggle = "expand"
End If
WriteHtmlTocIndividuals fTreeOpen, false, false, true
strHtmlIndividualCharts = Report.Buffer
Report.BufferLength = 0
]%>
@[ Report.WriteFormatted Dic("FmtTitleTocPictures"), Session("Title") ]@
<%[If Session("fUseTreeIndexes") Then]%>
<%[
If Session("fUseCurvyBoxes") Then
CurvyBoxOpen()
Else
Report.WriteLn ""
End if]%>
@[WriteHtmlButtonToggle("Entries")]@
<%[Else]%>
<%[If Session("fUseCurvyBoxes") Then
CurvyBoxOpen()
Else
Report.WriteLn "
"
End if
End if ]%>
@[Report.WriteFormattedLn Dic("TocIndexCharts")]@
<%[Report.Write Util.IfElse(Session("fUseCurvyBoxes"), "
", "
")
Report.WriteLn "
"
Report.Write strHtmlIndividualCharts
Report.WriteLn "
"
If Session("fUseCurvyBoxes") Then CurvyBoxClose()
WriteHtmlFramesetSafeguardK Pictures.Count, "GenoProReportPictures", nothing
]%>