%[@ IncludeFile "Code/Util.vbs" ]%>
<%[@ IncludeFile "Code/Lang.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
strName = f.Name
strTitle = Util.JavaScriptEncode(strName)
Report.TagBr = " " & vbCRLF ' For debugging, but it does not harm to re-define the tag
InitGlobalVariables
fPrivate = isPrivate(f)
fPrivateFolder = Eval(Left(Report.FileOutput,g_nPrivateFolder)=g_strPrivateFolder)
If fPrivate <> fPrivateFolder Then Report.AbortPage
]%>
", StrHtmlImgFamily(f), strName, StrHtmlImgFileGno(f), StrHtmlImgFileSvg(f)
WriteHtmlFamily f, -1, nothing
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.WriteText "Family of " & f
End Sub
Sub WriteMetaKeywords(f)
Report.WriteText "family " & f
End Sub
]%>