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

<%[Report.Write Util.IfElse(Session("fUseCurvyBoxes"), "
", "
") Dim strFirstChar, strFirstCharPrev, g, fLinkToGenoMap ReportGenerator.NegateAxisY = True If Session("fUseTreeIndexes") Then Report.WriteLn "
    " GenoMaps.Sortby("Name") For Each g in GenoMaps If (g.DrawingObjects.ToGenoCollection.Count > 0) Then ' If the GenoMap has not drawing objects, skip it. 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 WriteHtmlGenoMap(g) End If Next If strFirstCharPrev <> "" Then Report.WriteLn "
  • " Report.WriteLn "" Else For Each g In GenoMaps WriteHtmlGenoMap(g) Next End If If (fLinkToGenoMap) Then Session("toc_genomaps") = true End If Sub WriteHtmlGenoMap(g) strPathGenoMap = g.Session("PathGenoMap") If (strPathGenoMap <> "") Then 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.WriteFormattedLn "
  • {} {&t}
  • ", Dic("AltSVGImage"), strPathGenoMap , cx, cy, Util.IfElse(Session("SvgDefault"), "SVG", "PDF"), g.Name fLinkToGenoMap = true End If End If End Sub ]%>
    <%[If Session("fUseCurvyBoxes") Then CurvyBoxClose()]%> <%[ WriteHtmlFramesetSafeguard(GenoMaps.Count) ]%>