<%[@ 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 "
" g_ichNotesStart = Report.BufferLength WriteHtmlButtonToggle("Notes") ichNotesEnd = Report.BufferLength g_ichReferencesStart = Report.BufferLength WriteHtmlButtonToggle("OtherDetails") ichReferencesEnd = Report.BufferLength Report.Write "
" Report.WriteFormatted "

{}{&t}{}{}{}

", StrHtmlImgFamily(f), strName, StrHtmlImgFileGno(f), StrHtmlImgFileSvg(f), StrHtmlImgTimeline(f) WriteHtmlFamily f, -1, nothing if fTimeline Then ]%>
<%[ 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 ]%>