if flags.MakeText & ( HasPARENTS + HasCHILDREN ) = 1 then doGenText = 1
GetPerComp(ScionIRN)
if person.GETFULLNAME.ScionIRN = "" then return /* nobody home */
if ( flags.living > 0 ) & ( person.GETDEATHDATE.ScionIRN = "" ) then do
/* say HTMLdir'/'PersonPrefix''ScionIRN'.htm' */
if Exists(HTMLdir'/'PersonPrefix''ScionIRN'.htm') then do
Delete(HTMLdir'/'PersonPrefix''ScionIRN'.htm')
end
return 0
end
'GETBAPTISMDATE' ScionIRN
BAPTISMDATE = RESULT
'GETRELIGION' ScionIRN
RELIGION = RESULT
'GETBAPTISMPLACE' ScionIRN
BAPTISMPLACE = RESULT
'GETBURIALDATE' ScionIRN
BURIALDATE = RESULT
'GETBURIALPLACE' ScionIRN
BURIALPLACE = RESULT
'GETDIEDOF' ScionIRN
DIEDOF = RESULT
'GETEDUCATION' ScionIRN
EDUCATION = RESULT
'GETOCCUPATION' ScionIRN
OCCUPATION = RESULT
'GETPERSCOMMENT' ScionIRN
PERSCOMMENT = RESULT
'GETPERSREFS' ScionIRN
PERSREFS = RESULT
/*
ValidInfo = 0
if LASTNAME||BIRTHDATE||BIRTHPLACE||DEATHDATE||DEATHPLACE||BURIALPLACE||RELIGION||DIEDOF||EDUCATION||OCCUPATION||PERSCOMMENT||PERSREFS ~= "" THEN ValidInfo = 1
if ~ValidInfo then do
Say "Person " ScionIRN"'s lacking information; no new HTML file being created!"
return
end
if flags.MakeText & ( ValidInfo | LASTNAME ~= "" ) then DoGenText = 1
*/
if flags.MakeText then DoGenText = 1
PfilN = PersonPrefix || ScionIRN
dPfilN = HTMLdir'/'PfilN
iPfilN = 'img/'PersonPrefix || ScionIRN
gPfilN = AGdir'/'PfilN
if flags.verbose then do
Say ''
Say ' HTML: 'dPfilN'.htm for: 'person.GETFULLNAME.ScionIRN' {'ScionIRN'}'
end
else Say ' {'ScionIRN'} 'person.GETFULLNAME.ScionIRN
Open('PERSONFILE',dPfilN'.htm','w')
WriteLn('PERSONFILE','<HTML><HEAD>')
WriteMeta('PERSONFILE')
WriteLn('PERSONFILE','<TITLE>'person.GETFULLNAME.ScionIRN' Data Sheet</TITLE>')
