"
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) ]%>