%doctype; %( %) [*link between]%sp; %if;(public_name != "")%public_name; %else;%first_name; %surname;%end; [and]0…%nn; %include;css %include;hed %message_to_wizard; %let;l_on;onclick="this.focus()" onkeydown="if (event.keyCode == 13) javascript:document.relmenu.submit();"%in; %define;relative_sosa(sosa_link) [Sosa number relative to %t:::sosa_link] %end; %define;navsosa(xx) [*navigation with %t as Sosa reference:::xx]. %end; %define;nth_cousins(xx) [*%s cousins:::xx]%nn; %end;

[*link between]%sp; %if;(public_name != "")%public_name;%else;%first_name;%end; %if;(qualifier != "") %qualifier;%end; %sp;%surname; %if;(alias != "") (%alias;)%end; %sp;[and]0…%nn;

%hidden; %if;access_by_key; %if;(occ != "0") %end; %else %end;
  • %let;l1;type="text" size="53" maxlength="200" onclick="valid('selectInput');this.focus()"%in;

    %foreach;event; %if;(event.has_spouse and event.spouse != "? ?") %end; %if;event.has_witnesses; %foreach;event_witness; %end; %end; %end; %foreach;event_witness_relation; %end; %foreach;relation; %if;has_relation_him; %end; %if;has_relation_her; %end; %end; %foreach;related; %end;
%if;(has_parents or has_children) %end; %if;(has_parents) %if;(has_siblings or father.has_parents or mother.has_parents)
    %let;l;%bvar.max_cousins_level;%in; %foreach;cousin_level; %if;(level <= l) %if;(level = 1) %if;has_siblings;
  • [*siblings]
    • %end; %if;has_nephews_or_nieces;
  • [*a nephew/a niece]4
    • %end; %elseif;(level = 2) %if;(father.has_siblings or mother.has_siblings)
  • [*uncles and aunts]
    • %end; %if;(father.has_nephews_or_nieces or mother.has_nephews_or_nieces)
  • [*cousins]
    • %end; %elseif;(level = 3) %reset_count; %foreach;ancestor_level(3) %if;(level = 3) %foreach;ancestor; %if;(count = 0)%if;ancestor.has_nephews_or_nieces;%incr_count;%end;%end; %end; %end; %end; %if;(count > 0)
  • [*2nd cousins]
    • %end; %elseif;(level = 4) %reset_count; %foreach;ancestor_level(4) %if;(level = 4) %foreach;ancestor; %if;(count = 0)%if;ancestor.has_nephews_or_nieces;%incr_count;%end;%end; %end; %end; %end; %if;(count > 0)
  • [*3rd cousins]
    • %end; %else; %reset_count; %let;l;%level;%in; %foreach;ancestor_level(l) %if;(level = l) %foreach;ancestor; %if;(count = 0 and ancestor.has_nephews_or_nieces)%incr_count;%end; %end; %end; %end; %if;(count > 0)
  • %apply;nth_cousins%with; %apply;nth%with;zero/[nth (cousin)]%and;%level;%end; %end;
    • %end; %end; %end; %end;
%end; %end;
[*tools]
[color] 
%include;trl %include;copyr