%[@ 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)
]%>
<%[
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
]%>
-
@[Report.WriteTextDic "TimelineHeadingFamily"]@
<%[
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
]%>