<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[@ IncludeFile "Code/TimelineInfo.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ ' 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 strName = f.Session("Name") strTitle = Util.JavaScriptEncode(strName) ]%> @[Report.WriteFormatted Dic("FmtTitleFamily"), strName]@ <%[ If Session("VideoJs") Then ]%> <%[ End If ]%> <%[ ' create timeline data in JSON format. Dim nEvents, strLocale, strBuffer, collEvents, oEvent, strEvent, fTimeline, cchStart, oLinks, oTLInfo fTimeline = False If Session("Timelines") Then strLocale = GetLocale ' force Locale to be English so that dates are in english. SetLocale("en-gb") nEvents = 0 Set oLinks = Util.NewStringDictionary() cchStart = Report.BufferLength Report.WriteLn "" Report.WriteLn "" Report.WriteLn "" If oTLInfo.Nodes >= Session("TimelineMinEventsFamily") Then fTimeline = True Else Report.BufferLength = cchStart End If setLocale(strLocale) End If ' style sheet after timeline so can override style if required ]%> @[GoogleAnalytics]@
<%[ Session("NotesStart") = Report.BufferLength WriteHtmlButtonToggle("Notes") ichNotesEnd = Report.BufferLength Session("ReferencesStart") = Report.BufferLength WriteHtmlButtonToggle("OtherDetails") ichReferencesEnd = Report.BufferLength Report.Write "
" Report.WriteFormatted "

{}{}{}{}{}{}

", StrHtmlImgFamily(f), StrHtmlHighlightName(strName), StrHtmlImgFileGno(f), StrHtmlImgFileSvg(f), StrHtmlImgTimeline(f), StrHtmlImgMap(f) cchStart = Report.BufferLength WriteHtmlFamily f, -1, nothing If Report.BufferLength > cchStart Then Session("ReferencesStart") = -1 if fTimeline Then ]%>
<%[ End If WriteHtmlAdditionalInformation(f) If (Session("ReferencesStart") >= 0) Then ' We have no other details, so remove the "Show All Other Details | Hide All Other Details" Report.BufferRemoveAt Session("ReferencesStart"), ichReferencesEnd End If If (Session("NotesStart") >= 0) Then ' We have no annotations, so remove the "Show All Notes | Hide All Notes" Report.BufferRemoveAt Session("NotesStart"), ichNotesEnd End If WriteHtmlAllFootnotes f.Sources, False 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 ]%>