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