<%[@ IncludeFile "Code/Lang.vbs" ]%> <%[@ IncludeFile "Code/Util.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ If Not Session("Timelines") Then Report.AbortPage If Session("cTocExpand") = -1 Or Session("cTocExpand") >= GenoMaps.Count Then fTreeOpen = true strToggle="collapse" Else fTreeOpen = false strToggle = "expand" End If ]%> @[ Report.WriteFormatted Dic("FmtTitleTocTimelines"), 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.WriteText Util.IfElse(GenoMaps.Count > 1, Dic("TocIndexTimeline"), Dic.PlurialCardinal("TocIndexTimeLine",1)) ]@

<%[Report.Write Util.IfElse(Session("fUseCurvyBoxes"), "
", "
") Dim strFirstChar, strFirstCharPrev, g, NodeDensity, datespan, strTLData Report.WriteLn "
    " GenoMaps.Sortby("Name") For Each g in GenoMaps strTLData = g.Session("TLData") If strTLData <> "" Then strFirstChar = Util.StrStripAccentsUCase(Util.StrStripPunctuation(Util.StrGetFirstChar(g.Name))) If strFirstChar <> strFirstCharPrev Then If strFirstCharPrev <> "" Then Report.WriteLn "
" Report.WriteFormattedLn "
  • {&t}
      ", Util.IfElse(fTreeOpen,"o","c"), strFirstChar strFirstCharPrev = strFirstChar End If Report.WriteFormatted "
    • {} {&t}
    • ", Dic("AltTimeLineImage"), g.Index, strTLData, g.Name End If Next If strFirstCharPrev <> "" Then Report.WriteLn "
  • " Report.WriteLn "" ]%>
    <%[If Session("fUseCurvyBoxes") Then CurvyBoxClose()]%> <%[ WriteHtmlFramesetSafeguard(GenoMaps.Count) ]%>