<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[ InitGlobalVariables If Not g_Timelines Then Report.AbortPage If g_cTocExpand = -1 Or g_cTocExpand >= GenoMaps.Count 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.WriteFormatted Dic("FmtTitleTocTimelines"), Session("Title")]@ <%[If fPrivateFolder Then Report.WriteFormattedLn "",g_strBaseUrl Else Report.WriteLn "" End If]%> <%[If g_fUseTreeIndexes Then]%> @[WriteHtmlButtonToggle("Entries")]@ <%[Else]%> <%[End If]%>

@[ Report.WriteText Util.IfElse(GenoMaps.Count > 1, Dic("TocIndexTimeline"), Dic.PlurialCardinal("TocIndexTimeLine",1)) ]@

<%[WriteHtmlLinkToPrivateToc fPrivateFolder, "timelines"]%>
<%[ Dim strFirstChar, strFirstCharPrev, g, NodeDensity, datespan, strTLData Report.WriteLn "" Report.WriteFormattedLn "
  • {&t}
  • " Report.WriteLn "" ]%>

    <%[ WriteHtmlFramesetSafeguard(GenoMaps.Count) ]%>