%(
Missing events table
%)
%define;has_missing_birth_date(xx)
%if;(xx.has_birth_date or xx.has_baptism_date)
%if;(evar.date = "on")
%if;(xx.has_birth_date and (xx.birth_date.prec = "" and xx.birth_date.day != ""))
%elseif;(xx.has_baptism_date and (xx.baptism_date.prec = "" and xx.baptism_date.day != ""))
%else;
%incr_count;
%end;
%end;
%else;
%incr_count;
%end;
%end;
%define;has_missing_birth_place(xx)
%if;(xx.has_birth_date)
%if;not xx.has_birth_place;
%incr_count;
%end;
%elseif;(xx.has_baptism_date)
%if;not xx.has_baptism_place;
%incr_count;
%end;
%else;
%if;(not (xx.has_birth_place or xx.has_baptism_place))
%incr_count;
%end;
%end;
%end;
%define;has_missing_death_date(xx)
%if;xx.is_dead;
%if;(xx.has_death_date or xx.has_burial_date)
%if;(evar.date = "on")
%if;(xx.has_death_date and (xx.death_date.prec = "" and xx.death_date.day != ""))
%elseif;(xx.has_burial_date and (xx.burial_date.prec = "" and xx.burial_date.day != ""))
%else;
%incr_count;
%end;
%end;
%else;
%incr_count;
%end;
%end;
%end;
%define;has_missing_death_place(xx)
%if;xx.is_dead;
%if;(xx.has_death_date)
%if;not xx.has_death_place;
%incr_count;
%end;
%elseif;(xx.has_burial_date)
%if;not xx.has_burial_place;
%incr_count;
%end;
%else;
%if;(not (xx.has_death_place or xx.has_burial_place))
%incr_count;
%end;
%end;
%end;
%end;
%define;has_missing_marriage_date()
%if;(on_marriage_date = "")
%incr_count;
%else;
%if;(evar.date = "on" and (marriage_date.prec != "" or marriage_date.day = ""))
%incr_count;
%end;
%end;
%end;
%define;has_missing_marriage_place()
%if;(marriage_place = "")
%incr_count;
%end;
%end;
%define;has_missing_events(xx)
%reset_count;
%apply;has_missing_birth_date("xx")
%if;(count=0)
%apply;has_missing_birth_place("xx")
%end;
%if;(count=0)
%apply;has_missing_death_date("xx")
%end;
%if;(count=0)
%apply;has_missing_death_place("xx")
%end;
%if;(count=0)
%if;xx.has_families;
%foreach;xx.family;
%if;(count=0)
%apply;has_missing_marriage_place()
%end;
%if;(count=0)
%apply;has_missing_marriage_date()
%end;
%end;
%end;
%end;
%end;
%define;display_edit_ind_btn(label)
%if;(wizard and not cancel_links)
%else;
%end;
%end;
%define;display_edit_fam_btn()
%if;(wizard and not cancel_links)
%else;
%end;
%end;
%define;td_missing_events_rowspan(xx)
%if;(xx.same = "" and (evar.marr = "on" or (is_first and level = 1)) and xx.nb_families > 1)
rowspan="%xx.nb_families;" %nn;
%end;
%end;
%define;td_missing_events(xx)
%apply;td_missing_events_rowspan("xx")%nn;
%if;(count > 0)
bgcolor="#988C90" align="center" %nn;
%else;
bgcolor="#CCC3C6" %nn;
%end;
%end;
%define;td_family_missing_events(xx)
%if;(xx.nb_families > 1) style="border-bottom:none" %end; %nn;
%end;
%define;td_family_missing_style(xx)
%apply;td_family_missing_events("xx")
%if;(count>0) bgcolor="#988C90" align="center" %else; bgcolor="#CCC3C6" %end; %nn;
%end;
%define;table_missing_events(xx)
%lazy_force;
%xx.anc_sosa;
|
%apply;image_MF("xx")
%apply;short_display_person("xx")
%if;(xx.same != "" and evar.repeat = "on")
%sp;->
[same ancestor as n° Sosa]
%if(evar.sosab = 16)%xx.same.hexa;
%elseif(evar.sosab = 8)%xx.same.octal;
%else;%xx.same;
%end;
%end;
|
%if;(xx.same = "")
%reset_count;
%apply;has_missing_birth_date("xx")
%if;xx.has_birth_date;
%xx.slash_birth_date;
%if;(count>0)
%apply;display_edit_ind_btn("birth")
%end;
%elseif;xx.has_baptism_date;
%xx.slash_baptism_date;
%if;(count>0)
%apply;display_edit_ind_btn("birth")
%end;
%else;
%apply;display_edit_ind_btn("birth")
%end;
|
%reset_count;
%apply;has_missing_birth_place("xx")
%if;xx.has_birth_date;
%xx.birth_place;
%if;(count>0)
%apply;display_edit_ind_btn("birth")
%end;
%elseif;xx.has_baptism_date;
%xx.baptism_place;
%if;(count>0)
%apply;display_edit_ind_btn("birth")
%end;
%else;
%if;xx.has_birth_place;
%xx.birth_place;
%elseif;xx.has_baptism_place;
%xx.baptism_place;
%else;
%apply;display_edit_ind_btn("birth")
%end;
%end;
|
%if;(evar.marr="on" or (is_first and level = 1))
%if;xx.has_families;
%foreach;xx.family;
%if;(family_cnt = 1)
1) style="border-bottom:none" %end; bgcolor="#CCC3C6">
%apply;image_MF("spouse")
%apply;short_display_person("spouse")
|
%end;
%end;
%else;
|
%end;
%else;
%if;xx.has_families;
%apply;image_MF("xx.spouse")
%apply;short_display_person("xx.spouse")
%else;
%end;
|
%end;
%if;(evar.marr="on" or (is_first and level = 1))
%if;xx.has_families;
%foreach;xx.family;
%if;(family_cnt = 1)
%reset_count;
%apply;has_missing_marriage_date()
%slash_marriage_date;
%if(count>0)
%apply;display_edit_fam_btn()
%end;
|
%end;
%end;
%else;
|
%end;
%else;
%if;xx.has_families;
%foreach;xx.family;
%if;(spouse.index=xx.spouse.index)
%reset_count;
%apply;has_missing_marriage_date()
%slash_marriage_date;
%if(count>0)
%apply;display_edit_fam_btn()
%end;
|
%end;
%end;
%else;
|
%end;
%end;
%if;(evar.marr="on" or (is_first and level = 1))
%if;xx.has_families;
%foreach;ancestor.family;
%if;(family_cnt = 1)
%reset_count;
%apply;has_missing_marriage_place()
%marriage_place;
%if(count>0)
%apply;display_edit_fam_btn()
%end;
|
%end;
%end;
%else;
|
%end;
%else;
%if;ancestor.has_families;
%foreach;ancestor.family;
%if;(spouse.index=ancestor.spouse.index)
%reset_count;
%apply;has_missing_marriage_place()
%marriage_place;
%if(count>0)
%apply;display_edit_fam_btn()
%end;
|
%end;
%end;
%else;
|
%end;
%end;
%reset_count;
%apply;has_missing_death_date("xx")
%if;xx.has_death_date;
%xx.slash_death_date;
%if;(count>0)
%apply;display_edit_ind_btn("death")
%end;
%elseif;xx.has_burial_date;
%xx.slash_burial_date;
%if;(count>0)
%apply;display_edit_ind_btn("death")
%end;
%else;
%if;xx.is_dead;
%apply;display_edit_ind_btn("death")
%else;
%end;
%end;
|
%reset_count;
%apply;has_missing_death_place("xx")
%if;xx.has_death_date;
%xx.death_place;
%if;(count>0)
%apply;display_edit_ind_btn("death")
%end;
%elseif;xx.has_burial_date;
%xx.burial_place;
%if;(count>0)
%apply;display_edit_ind_btn("death")
%end;
%else;
%if;xx.has_death_place;
%xx.death_place;
%elseif;xx.has_burial_place;
%xx.burial_place;
%else;
%end;
%if;(count>0)
%apply;display_edit_ind_btn("death")
%end;
%end;
|
%end;
%end;
%define;td_family_missing_events2(xx)
style="border-top:none; %if;(xx.nb_families != family_cnt) border-bottom:none %end;" %nn;
%end;
%define;td_family_missing_style2(xx)
%apply;td_family_missing_events2("xx")
%if;(count>0) bgcolor="#988C90" align="center" %else; bgcolor="#CCC3C6" %end; %nn;
%end;
%define;table_family_missing_events(xx)
%foreach;ancestor.family;
%if;(family_cnt != 1)
%apply;image_MF("spouse")
%apply;short_display_person("spouse")
|
%reset_count;
%apply;has_missing_marriage_date()
%slash_marriage_date;
%if(count>0)
%apply;display_edit_fam_btn()
%end;
|
%reset_count;
%apply;has_missing_marriage_place()
%marriage_place;
%if(count>0)
%apply;display_edit_fam_btn()
%end;
|
%end;
%end;
%end;
%(
Main
%)
%let;nb_gena;%apply;min(evar.v, max_anc_level)%in;
%apply;togena(nb_gena).
%foreach;ancestor_level(nb_gena)
%if;(evar.gen = "on")
[*generation/generations]0 %level; |
%end;
%foreach;ancestor;
%apply;has_missing_events("ancestor")
%if;(count > 0 and ancestor != "? ?")
%if;(ancestor.same = "" or evar.repeat = "on")
%apply;table_missing_events("ancestor")
%if;(ancestor.same="" and (evar.marr="on" or (is_first and level = 1)) and ancestor.nb_families > 1)
%apply;table_family_missing_events("ancestor")
%end;
%end;
%end;
%end;
%end;