%[@ IncludeFile "Code/Util.vbs" ]%>
<%[@ IncludeFile "Code/Lang.vbs" ]%>
<%[@ IncludeFile "Code/TimelineInfo.vbs" ]%>
<%[
' The following prevents the page to be generated if the family name is empty or the family is excluded from the report.
' This is achieved simply by checking if the Href is empty
If (f.Href = "") Then
Report.AbortPage
End If
Report.TagBr = " " & vbCRLF ' For debugging, but it does not harm to re-define the tag
InitGlobalVariables
strName = f.Session("Name")
strTitle = Util.JavaScriptEncode(strName)
fPrivate = isPrivate(f)
fPrivateFolder = Eval(Left(Report.FileOutput,g_nPrivateFolder)=g_strPrivateFolder)
If fPrivate <> fPrivateFolder Then Report.AbortPage
]%>
@[Report.WriteFormatted Dic("FmtTitleFamily"), strName]@
<%[If fPrivate Then Report.WriteFormattedLn "",g_strBaseUrl]%>
<%[
' create timeline data in JSON format.
Dim nEvents, strLocale, strBuffer, collEvents, oEvent, strEvent, fTimeline, cchStart, oLinks, oTLInfo
fTimeline = False
If g_Timelines Then
strLocale = GetLocale
' force Locale to be English so that dates are in english.
SetLocale("en-gb")
nEvents = 0
Set oLinks = Util.NewStringDictionary()
Set oTLInfo = New TimelineInfo
cchStart = Report.BufferLength
oTLInfo.AddHeader True
WriteFamilyEvents oTLInfo, f, Dic("Marriage") & " " & f.Session("Name"), False, True
oTLInfo.AddTrailer True, ""
If oTLInfo.Nodes >= g_TimelineMinEventsFamily Then
fTimeline = True
Else
Report.BufferLength = cchStart
End If
setLocale(strLocale)
End If
' style sheet after timeline so can override style if required
Report.WriteLn ""
Report.WriteLn ""
If fTimeline Then
Report.WriteFormattedLn "", strTitle
Else
Report.WriteFormattedLn "", strTitle
End If
Report.Write "
", StrHtmlImgFamily(f), strName, StrHtmlImgFileGno(f), StrHtmlImgFileSvg(f), StrHtmlImgTimeline(f)
WriteHtmlFamily f, -1, nothing
if fTimeline Then
]%>
@[Report.WriteTextDic "TimelineHeadingFamily"]@
<%[
End If
WriteHtmlAdditionalInformation(f)
If (g_ichReferencesStart >= 0) Then
' We have no other details, so remove the "Show All Other Details | Hide All Other Details"
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
WriteHtmlAllFootnotes f.Sources
WriteHtmlFramesetSafeguardK strName, "GenoProReportFamily", f
'===========================================================
' Subroutines to generate the page
'===========================================================
Sub WriteMetaDescription(f)
Report.WritePhraseDic "FmtMetaDescFamily", f
End Sub
Sub WriteMetaKeywords(f)
Report.WritePhraseDic "FmtMetaKeyWordsFamily", f
End Sub
]%>