%[@ 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"
]%>
<%[
Dim strFirstChar, strFirstCharPrev, g, NodeDensity, datespan, strTLData
Report.WriteLn "
"
GenoMaps.Sortby("Name")
For Each g in GenoMaps
If fPrivateFolder Or Not isPrivateGenoMap(g) Then
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
strTimeFile = "timeline.htm"
If fPrivateFolder Then strTimeFile = g_strPrivateFolder & strTimeFile
Report.WriteFormattedBr "{&t}", Dic("AltTimeLineImage"), strTimeFile, strTLData, g.Name
End If
End If
Next
If strFirstCharPrev <> "" Then Report.WriteLn "