<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[ InitGlobalVariables 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) ]%> @[ Report.WriteFormatted Dic("FmtTitleTocGenoMaps"), 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("TocIndexSvg"), Dic.PlurialCardinal("TocIndexSvg",1)) ]@

<%[WriteHtmlLinkToPrivateToc fPrivateFolder, "genomaps"]%>
<%[ Dim strFirstChar, strFirstCharPrev, g, fLinkToGenoMap ReportGenerator.NegateAxisY = True If g_fUseTreeIndexes Then Report.WriteLn "" Report.WriteFormattedLn "
  • {&t}
  • " Report.WriteLn "" Else For Each g In GenoMaps If fPrivateFolder Or Not isPrivateGenoMap(g) Then WriteHtmlGenoMap(g) Next End If If (fLinkToGenoMap) Then Session("toc_genomaps") = true End If Sub WriteHtmlGenoMap(g) strPathGenoMap = g.Session("PathGenoMap") If (strPathGenoMap <> "") Then If fPrivateFolder Then strPathGenoMap = g_strPrivateFolder & strPathGenoMap Set box=g.BoundaryRect If (Not Util.IsNothing(box)) Then cx=box.Left + (box.Right-box.Left) / 2 cy=box.Top + (box.Bottom - box.Top) / 2 Report.WriteFormattedBr "{} {&t}", Dic("AltSVGImage"), strPathGenoMap , cx, cy, g.Name fLinkToGenoMap = true End If End If End Sub ]%>

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