<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ ' do not report source if no references If s.Session("References") > 0 Then Else Report.AbortPage End If Dim oFso Set oFso = CreateObject("Scripting.FileSystemObject") ]%> @[ Report.WriteFormatted Dic("FmtTitleSource"), Session("Title") ]@ <%[ If Session("VideoJs") Then ]%> <%[ End If ]%> @[GoogleAnalytics]@ <%[if session("fUseCurvyBoxes") then CurvyBoxOpen()]%>
<%[ Session("NotesStart") = Report.BufferLength WriteHtmlButtonToggle("Notes") ichNotesEnd = Report.BufferLength Session("ReferencesStart") = Report.BufferLength WriteHtmlButtonToggle("OtherDetails") ichReferencesEnd = Report.BufferLength WriteHtmlButtonToggle("HidePopUp") ]%>
<%[ WriteHtmlSource s ' remove any unnecessary items (reverse order to avoid invalidating buffer pointers) If Session("ReferencesStart") >= 0 Then ' We have no place references, so remove the "Show All References | Hide All References" 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 ]%>
<%[if session("fUseCurvyBoxes") then CurvyBoxClose()]%> <%[ WriteHtmlFramesetSafeguard("Sources") ]%>