%(
   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)
    <a href="%prefix;m=MOD_IND;i=%ancestor.index;#label">
      <img class="not_printable" src="%image_prefix;/picto_edit_big.png" title="[edit person]"%/>
    </a>
  %else;
    &nbsp;
  %end;
%end;

%define;display_edit_fam_btn()
  %if;(wizard and not cancel_links)
    <a href="%prefix;m=MOD_FAM;i=%family.index;;ip=%ancestor.index;#marr">
      <img class="not_printable" src="%image_prefix;/picto_edit_big.png" title="[edit family]"%/>
    </a>
  %else;
    &nbsp;
  %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;
  <td %apply;td_missing_events_rowspan("xx")%nn;>
    %xx.anc_sosa;
  </td>

  <td %if;(xx.same != "") colspan="8" %else; %apply;td_missing_events_rowspan("xx") bgcolor="#CCC3C6" %end;>
    %apply;image_MF("xx", "11")
    <a name="%xx.index;">
    %apply;short_display_person("xx")
    %if;(xx.same != "" and evar.repeat = "on")
      %sp;->
      [same ancestor as n° Sosa]
      <a href="#%xx.index;">
        %if(evar.sosab = 16)%xx.same.hexa;
        %elseif(evar.sosab = 8)%xx.same.octal;
        %else;%xx.same;
        %end;
      </a>
    %end;
  </td>

  %if;(xx.same = "")
    %reset_count;
    %apply;has_missing_birth_date("xx")
    <td %apply;td_missing_events("xx")>
      %if;xx.has_birth_date;
        %xx.slash_birth_date;
        %if;(count>0)
          &nbsp;
          %apply;display_edit_ind_btn("birth")
        %end;
      %elseif;xx.has_baptism_date;
        %xx.slash_baptism_date;
        %if;(count>0)
          &nbsp;
          %apply;display_edit_ind_btn("birth")
        %end;
      %else;
        %apply;display_edit_ind_btn("birth")
      %end;
    </td>

    %reset_count;
    %apply;has_missing_birth_place("xx")
    <td %apply;td_missing_events("xx")>
      %if;xx.has_birth_date;
        %xx.birth_place;
        %if;(count>0)
          &nbsp;
          %apply;display_edit_ind_btn("birth")
        %end;
      %elseif;xx.has_baptism_date;
        %xx.baptism_place;
        %if;(count>0)
          &nbsp;
          %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;
          &nbsp;
          %apply;display_edit_ind_btn("birth")
        %end;
      %end;
    </td>

    %if;(evar.marr="on" or (is_first and level = 1))
      %if;xx.has_families;
        %foreach;xx.family;
          %if;(family_cnt = 1)
            <td %if;(xx.nb_families > 1) style="border-bottom:none" %end; bgcolor="#CCC3C6">
              %apply;image_MF("spouse", "11")
              %apply;short_display_person("spouse")
            </td>
          %end;
        %end;        
      %else;
        <td bgcolor="#CCC3C6">&nbsp;</td>
      %end;
    %else;
      <td bgcolor="#CCC3C6">
        %if;xx.has_families;
          %apply;image_MF("xx.spouse", "11")
          %apply;short_display_person("xx.spouse")
        %else;
          &nbsp;
        %end;
      </td>
    %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()
            <td %apply;td_family_missing_style("xx")>
              %slash_marriage_date;
              %if(count>0)
                &nbsp;
                %apply;display_edit_fam_btn()
              %end;
            </td>
          %end;
        %end;        
      %else;
        <td bgcolor="#CCC3C6">&nbsp;</td>
      %end;
    %else;
      %if;xx.has_families;
        %foreach;xx.family;
          %if;(spouse.index=xx.spouse.index)
            %reset_count;
            %apply;has_missing_marriage_date()
            <td %apply;td_family_missing_style("xx")>
              %slash_marriage_date;
              %if(count>0)
                &nbsp;
                %apply;display_edit_fam_btn()
              %end;
            </td>
          %end;
        %end;
      %else;
        <td bgcolor="#CCC3C6">&nbsp;</td>
      %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()
            <td %apply;td_family_missing_style("xx")>
              %marriage_place;
              %if(count>0)
                &nbsp;
                %apply;display_edit_fam_btn()
              %end;
            </td>
          %end;
        %end;
      %else;
        <td bgcolor="#CCC3C6">&nbsp;</td>
      %end;
    %else;
      %if;ancestor.has_families;
        %foreach;ancestor.family;
          %if;(spouse.index=ancestor.spouse.index)
            %reset_count;
            %apply;has_missing_marriage_place()
            <td %apply;td_family_missing_style("xx")>
              %marriage_place;
              %if(count>0)
                &nbsp;
                %apply;display_edit_fam_btn()
              %end;
            </td>
          %end;
        %end;
      %else;
        <td bgcolor="#CCC3C6">&nbsp;</td>
      %end;
    %end;

    %reset_count;
    %apply;has_missing_death_date("xx")
    <td %apply;td_missing_events("xx")>
      %if;xx.has_death_date;
        %xx.slash_death_date;
        %if;(count>0)
          &nbsp;
          %apply;display_edit_ind_btn("death")
        %end;
      %elseif;xx.has_burial_date;
        %xx.slash_burial_date;
        %if;(count>0)
          &nbsp;
          %apply;display_edit_ind_btn("death")
        %end;
      %else;
        %if;xx.is_dead;
          %apply;display_edit_ind_btn("death")
        %else;
          &nbsp;
        %end;
      %end;
    </td>

    %reset_count;
    %apply;has_missing_death_place("xx")
    <td %apply;td_missing_events("xx")>
      %if;xx.has_death_date;
        %xx.death_place;
        %if;(count>0)
          &nbsp;
          %apply;display_edit_ind_btn("death")
        %end;
      %elseif;xx.has_burial_date;
        %xx.burial_place;
        %if;(count>0)
          &nbsp;
          %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;
          &nbsp;
        %end;
        %if;(count>0)
          %apply;display_edit_ind_btn("death")
        %end;
      %end;
    </td>
  %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)
      <tr>
        <td %apply;td_family_missing_events2("xx") bgcolor="#CCC3C6">
          %apply;image_MF("spouse", "11")
          %apply;short_display_person("spouse")
        </td>

        %reset_count;
        %apply;has_missing_marriage_date()
        <td %apply;td_family_missing_style2("xx")>
          %slash_marriage_date;
          %if(count>0)
            &nbsp;
            %apply;display_edit_fam_btn()
          %end;
        </td>

        %reset_count;
        %apply;has_missing_marriage_place()
        <td %apply;td_family_missing_style2("xx")>
          %marriage_place;
          %if(count>0)
            &nbsp;
            %apply;display_edit_fam_btn()
          %end;
        </td>
      </tr>
    %end;
  %end;
%end;


%( 
   Main 
%)

%let;nb_gena;%apply;min(evar.v, max_anc_level)%in;
<p>%apply;togena(nb_gena).</p>
<table class="ascends_table splitForPrint">
  <thead>
    <tr class="ascends_table_header">
      <th>[*Sosa]</th>
      <th>[*person/persons]0</th>
      <th>[*date of birth]</th>
      <th>[*where born]</th>
      <th>%if;(evar.marr="on")[*spouse/spouses]1%else;[*spouse/spouses]0%end;</th>
      <th>[*date of marriage]</th>
      <th>[*where married]</th>
      <th>[*date of death]</th>
      <th>[*where dead]</th>
    </tr>
  </thead>
  <tbody>
    %foreach;ancestor_level(nb_gena)
      %if;(evar.gen = "on")
		<tr>
          <th align="left" colspan="9">[*generation/generations]0 %level;</th>
        </tr>
      %end;
      %foreach;ancestor;
        %apply;has_missing_events("ancestor")
        %if;(count > 0 and ancestor != "? ?")
          %if;(ancestor.same = "" or evar.repeat = "on")
            <tr>
              %apply;table_missing_events("ancestor")
            </tr>
            %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;
  <tbody>
</table>
