<%[ ichPictureMessageEnd = Report.BufferLength ]%>
<%[
Dim oDataSorter, collSources
Set oDataSorter = Util.NewDataSorter()
For Each s in SourcesAndCitations
' do not report source if no references
If s.Session("References") > 0 Then oDataSorter.Add s, s.Title
Next
oDataSorter.SortByKey
Set collSources = oDataSorter.ToGenoCollection
For Each s In collSources
' do not report source if no references
If s.Session("References") > 0 Then
Report.WriteLn "
"
WriteHtmlSource s
Report.WriteLn "
"
Report.WriteLn "
"
End If
Next
' remove any unecessary items (reverse order to avoid invalidating buffer pointers)
If ichPictureMessageStart >= 0 Then
' We have no Pictures, so remove the 'click to enlarge' message
Report.BufferRemoveAt ichPictureMessageStart, ichPictureMessageEnd
End If
If Session("ReferencesStart") >= 0 Then
' We have no place references, so remove the "Show All References | Hide All References"
Report.BufferRemoveAt ichReferencesStart, 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("Sources") ]%>