@[ Report.WriteText Session("Title") ]@ - Genealogy Places and Locations
<%[
If g_fGoogleMaps Then
Report.WriteFormattedLn "", g_strGoogleMapsApiKey
End If
If g_fGoogleMaps And Not g_fGoogleMapsLink Then
Dim strPlace, strZoom
strPlace=Util.FormatPhrase("{0}[[{?0},]{1}][[{?0|1},]{2}][[{?0|1|2},]{3}][[{?0|1|2|3},]{4}][[{?0|1|2|3|4},]{5}]",p.Street, p.City, p.County, p.State, p.Zip, p.Country)
if strPlace = "" Then strPlace=JoinPlaceNames(p, p.Name, true)
strZoom=CustomTag(p, "Map.Google.Zoom")
if strZoom = "" Then strZoom = g_strGoogleMapsZoom
Report.WriteFormattedLn "", p.Latitude, p.Longitude, strPlace, strZoom
Else
Report.WriteLn ""
End If
Report.WriteLn "
"
WriteHtmlPlace p, g_fGoogleMaps, g_fGoogleMapsLink
If g_ichReferencesStart >= 0 Then
' We have no place references, so remove the "Show All References | Hide All References"
Report.BufferRemoveAt g_ichReferencesStart, ichReferencesEnd
End If
If (g_ichNotesStart >= 0) Then
' We have no annotations, so remove the "Show All Notes | Hide All Notes"
Report.BufferRemoveAt g_ichNotesStart, ichNotesEnd
End If
]%>
<%[ WriteHtmlFramesetSafeguard("Place") ]%>