%[
Option Explicit
' module:individuals.htm version:2013.08.24
' A big file of all individual details used to produce PDF book
]%>
<%[@ IncludeFile "Code/Util.vbs" ]%>
<%[@ IncludeFile "Code/Lang.vbs" ]%>
<%[@ IncludeFile "Code/TimelineInfo.vbs" ]%>
<%[
Dim oShell, oExec, oFso, oTLInfo, strLine, strFileName, outp, cmd, res, i
Set oShell = CreateObject("WScript.Shell")
Set oFso = CreateObject("Scripting.FileSystemObject")
outp = """" & Util.FirstNonEmpty(ReportGenerator.PathOutputHttp, ReportGenerator.PathOutput)
If Not Session("Book") Then
oShell.Run outp & "default.htm""",,False
Report.AbortPage
End If
Report.TagBr = " " & vbCRLF ' For debugging, but it does not harm to re-define the tag
If Session("Timelines") = True Then
Set oTLInfo = New TimelineInfo
'Set oLinks = Util.NewStringDictionary()
For Each i in Individuals
If Not i.Session("skip") = True Then WriteIndividualTimelineData i
Next
Report.BufferWriteToFile("timelinedata.js")
Report.BufferLength = 0
End If
Dim oHyperlinkRings, oHyperlinkRingIndex, oRepertoryIndividuals
Set oHyperlinkRings = Session("oHyperlinkRings")
Set oHyperlinkRingIndex = Session("oHyperlinkRingIndex")
Set oRepertoryIndividuals = Session("oRepertoryIndividuals")
]%>
@[Report.Write Session("Title")]@
<%[
If Session("Timelines") = True Then
Report.WriteLn ""
Report.WriteLn ""
Report.WriteLn ""
End If
Dim oStringDictionaryNames, PageBreak, o, oFamily, oRepertoryFamilies, strNameLast, cchBufferNameLast, cchBufferNames
Dim strTempFldr, strTempFile
Set oStringDictionaryNames = Session("oStringDictionaryNames")
Report.WriteLn ""
Report.WriteLn ""
Report.WriteLn ""
Report.WriteLn "
"
PageBreak = False
For Each o In oRepertoryIndividuals
If PageBreak Then Report.WriteLn "
"
Report.WriteLn "
" & o.Key & "
"
PageBreak = False
Set oRepertoryFamilies = o.Object(0)
For Each oFamily In oRepertoryFamilies
cchBufferNameLast = Report.BufferLength ' Remember the position where the last name was written
if PageBreak And Session("PageBreak") = "LastName" Then Report.WriteLn "