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

{}{&t}{}{}

", 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 ]%>