%[@ IncludeFile "Code/Util.vbs" ]%>
<%[@ IncludeFile "Code/Lang.vbs" ]%>
<%[
InitGlobalVariables
If g_cTocExpand = -1 Or g_cTocExpand >= SourcesAndCitations.Count Then
fTreeOpen = true
strToggle="collapse"
Else
fTreeOpen = false
strToggle = "expand"
End If
]%>
@[ Report.WriteFormatted Dic("FmtTitleTocSources"), Session("Title") ]@
<%[If g_fUseTreeIndexes Then]%>
@[WriteHtmlButtonToggle("Entries")]@
<%[Else]%>
<%[End If]%>
@[ Report.WriteTextDic "TocIndexSources" ]@
<%[
SourcesAndCitations.SortBy("Title") ' Sort the sources alphabetically
If g_fUseTreeIndexes Then Report.WriteLn "
"
WriteHtmlTocSources fTreeOpen, false
If g_fUseTreeIndexes Then Report.WriteLn "
"
]%>
<%[ WriteHtmlFramesetSafeguard(SourcesAndCitations.Count) ]%>