%[@ IncludeFile "Code/Util.vbs" ]%>
<%[@ IncludeFile "Code/Lang.vbs" ]%>
<%[If Session("Book") Then Report.AbortTemplate]%>
<%[
strTitle = Dic("TocIndexOccupancies")
strAltToggle = StrDicOpt("TocExpandCollapseAll", Dic("Notes"),"{} {}")
strAltToggle1 = StrDicOpt("TocExpandCollapseAll", Dic("References"), "{} {}")
Report.TagBr = "
" & vbCRLF ' For debugging, but it does not harm to re-define the
tag
]%>
<%[ Session("NotesStart") = Report.BufferLength ]%>
![@[Report.WriteLn StrDicOpt("TocExpandCollapseAll", Dic("Notes"),"{} {}")]@](images/@[Report.WriteText Util.IfElse(Session("fCollapseNotes"),"expand","collapse")]@.jpg)
<%[ ichNotesEnd = Report.BufferLength ]%>
<%[ Session("ReferencesStart") = Report.BufferLength ]%>
![@[Report.WriteLn StrDicOpt("TocExpandCollapseAll", Dic("References"),"{} {}")]@](images/@[Report.WriteText Util.IfElse(Session("fCollapseReferences"),"expand","collapse")]@2.jpg)
<%[ ichReferencesEnd = Report.BufferLength ]%>
@[ Report.WriteText strTitle ]@
<%[
Dim strComments,strComment, ich, strSummary
Dim oDataSorter, collContacts 'sort contacts by place fullname a-z
Set oDataSorter = Util.NewDataSorter()
For Each c in Contacts
oDataSorter.Add c, c.Place("NameFull")
Next
oDataSorter.SortByKey
Set collContacts = oDataSorter.ToGenoCollection
For Each c In collContacts
Set collReferences = c.References
Report.WriteFormattedLn "
{&t}
", c.ID, c.Session("Name")
If (c.Session("PicturesIncluded") > 0) Then
Report.WriteLn "
"
WriteHtmlPicturesLarge c, "left", "", g_fHidePictureDetails, False
Report.WriteLn "
"
End If
ich = Report.BufferLength
Report.WritePhraseDic "PhOccupancy", c.type, StrHtmlHyperlinkPlace(c.Place), StrTimeSpan(c.Duration), StrDateSpan(c.DateStart, c.DateEnd)
If Report.BufferLength > ich And c.summary <> "" Then Report.WriteBr
Report.WritePhraseDic "PhContact", c.telephone, c.Fax, Util.FormatHtmlHyperlink(Util.IfElse(c.Email <> "","mailto:" & c.Email,""), c.Email), Util.FormatHtmlHyperlink(c.Homepage, ,"target='_blank'"), c.Type, c.Place, c.Mobile
WriteHtmlFootnoteRef c.Source
WriteHtmlAdditionalInformation(c)
WriteHtmlAnnotation c, Dic("AnnotationOccupancy"), c.Comment
WriteHtmlReferences c, false
WriteHtmlAllFootnotes c.Sources, True
Report.WriteLn "
"
Next
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("ReferencesStart") >= 0 Then
' We have no place references, so remove the "Show All References | Hide All References"
Report.BufferRemoveAt ichReferencesStart, ichReferencesEnd
End If
]%>
<%[ WriteHtmlFramesetSafeguard("Contacts") ]%>