%[@ IncludeFile "Code/Util.vbs" ]%>
<%[@ IncludeFile "Code/Lang.vbs" ]%>
<%[If Session("Book") Then Report.AbortTemplate]%>
<%[
Session("NotesStart") = Report.BufferLength
WriteHtmlButtonToggle("Notes")
ichNotesEnd = Report.BufferLength
Session("ReferencesStart") = Report.BufferLength
WriteHtmlButtonToggle("OtherDetails")
ichReferencesEnd = Report.BufferLength
WriteHtmlButtonToggle("HidePopUp")
]%>
<%[
WriteHtmlEntity s
' remove any unecessary items (reverse order to avoid invalidating buffer pointers)
If Session("ReferencesStart") >= 0 Then
' We have no other details, so remove the "Show other details | Hide 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
]%>
<%[if session("fUseCurvyBoxes") then CurvyBoxClose()
WriteHtmlFramesetSafeguard("SocialEntity") ]%>