<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[If Session("Book") Then Report.AbortTemplate]%> <%[ strTitle = StrDicExt("TocIndexEntities","","Groups & organisations","","") ]%> @[ Report.WriteFormatted StrDicExt("FmtTitleEntity","","{0} - Social Entity","",""), Session("Title") ]@
<%[ Session("NotesStart") = Report.BufferLength WriteHtmlButtonToggle("Notes") ichNotesEnd = Report.BufferLength Session("ReferencesStart") = Report.BufferLength WriteHtmlButtonToggle("OtherDetails") ichReferencesEnd = Report.BufferLength ]%>

@[ Report.WriteText strTitle ]@

<%[ Dim oDataSorter, collSocialEntities, cchStart, cchBegin Set oDataSorter = Util.NewDataSorter() For Each s in SocialEntities If s.Session("Name") <> "" And IsFalse(CustomTag(s, "IsLabel"), False) And (strLang = "" Or strLang = Session("ReportLanguage")) Then oDataSorter.Add s, s.Session("Name") Next oDataSorter.SortByKey Set collSocialEntities = oDataSorter.ToGenoCollection For Each s In collSocialEntities cchStart = Report.BufferLength Report.WriteLn "
" cchBegin = Report.BufferLength WriteHtmlEntity s If Report.BufferLength > cchBegin Then Report.WriteLn "

" Else Report.BufferLength = cchStart End If Next ' remove any unecessary items (reverse order to avoid invalidating buffer pointers) If Session("ReferencesStart") >= 0 Then ' We have no references, 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 ]%>
<%[ WriteHtmlFramesetSafeguard("SocialEntities") ]%>