%if;(evar.del = "on")[*delete]...[person/persons]1...[family/families]1...%else;%first_name; %surname;%end;

%include.css;
%base_header; %( %) %let;birth_symbol;%if;(bvar.birth_symbol != "")%bvar.birth_symbol;%else;°%end;%in; %let;death_symbol;%if;(bvar.death_symbol != "")%bvar.death_symbol;%else;†%end;%in; %let;l_child;%if;(bvar.always_surname = "yes" and evar.always_surname != "no")child%else;child_name%end;%in; %let;l_hh;%if;(sex=0)[him/her]0%elseif;(sex=1)[him/her]1%else;0%end;%in; %let;l_maxlev0;%if;(evar.maxlev != "")%evar.maxlev;%elseif;(bvar.maxlev != "")%bvar.maxlev;%else;1%end;%in; %let;l_maxlev;%if;(has_children and l_maxlev0 > max_desc_level)%max_desc_level;%else;%l_maxlev0;%end;%in; %let;l_url;;wide=%evar.wide;;maxlev=%l_maxlev;;image=%evar.image;;spouse=%evar.spouse;;%in; %let;l_ldates; %if;(evar.del="on") class="del" target="ifr" onclick="javascript:deleted(this);" title="[delete::person/persons]0" href="%prefix;m=DEL_IND_OK;%nn; %else; onclick="window.open(this.href); return false;" title="[modify::person/persons]0" href="%prefix;m=MOD_IND;%nn; %end; %in; %let;l_lmarriage1; %if;(evar.del="on" and wizard) class="del" target="ifr" onclick="javascript:deleted(this);" href="%prefix;m=DEL_FAM_OK;%nn; %elseif;(wizard) onclick="window.open(this.href); return false;" href="%prefix;m=MOD_FAM;%nn; %else; href="#%nn; %end; %in; %let;l_lmarriage2; %if;(not cancel_links) %if;(evar.del="on" and wizard) %nl; [delete::family/families]0%nn; %elseif;(wizard) %nl; [modify::family/families]0%nn; %end; %end; %in; %define;init_count(prev_count) %reset_count; %for;i;0;prev_count; %incr_count; %end; %end; %define;letter(xx) %apply;nth%with; /A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z%and; xx%end; %end; %define;link_dates(xx) %if;(wizard and not cancel_links) %if;(xx.dates != "")%nn; %xx.dates;%nn; %elseif;(xx.is_dead) %death_symbol;%nn; %else; %birth_symbol;%nn; %end;%nn; %nn; %else; %xx.dates;%nn; %end; %end; %define;link_marriage(xx) %if;(not cancel_links) %let;him;[him/her]0 %nn; %if;(xx.computable_marriage_age) %xx.marriage_age;%nn; %else; ? [years old]%end;%nn; %in; %let;her;[him/her]1 %nn; %if;(xx.spouse.computable_marriage_age) %xx.spouse.marriage_age;%nn; %else; ? [years old]%end;%nn; %in; &%if;(on_marriage_date != "")%marriage_date.prec;%marriage_date.year;%end; %else; &%if;(on_marriage_date != "")%marriage_date.prec;%marriage_date.year;%end; %end; %end; %define;a_title(xx) %if;(xx.has_parents and xx.birth_date.year != "") [father/mother]0 %nn; %if;(xx.father.has_birth_date)%xx.father_age_at_birth;%else;? [years old]%end; %nl; [father/mother]1 %nn; %if;(xx.mother.has_birth_date)%xx.mother_age_at_birth;%else;? [years old]%end; %end; %if;(xx.computable_death_age)%nl; %death_symbol%xx.death_age;%end; %if;(xx.computable_age)%nl; %birth_symbol;%xx.age;%end; %end; %define;link_name(xx) %if;(cancel_links or xx.is_restricted) %xx;%nn; %else; %xx;%nn; %end; %end; %define;link_name1(xx,yy,zz) %if;(cancel_links or xx.is_restricted) %yy;%nn; %else; %yy;%nn; %end; %end; %define;link_image(xx) %end; %define;somebody(xx) %apply;link_name("xx") %xx.title; %apply;link_dates("xx") %end; %define;somebody1(xx,yy,zz) %apply;link_name1("xx","yy","zz") %xx.title; %apply;link_dates("xx") %end; %define;child_long_info(curlev,maxlev) %let;next_chi;chi_%if;(nb_children != child_cnt)%family_cnt;_%expr(child_cnt + 1)%else;1_1%end;%in; %apply;somebody1%with; child%and; %l_child;%and; %if;(curlev = 1)id="chi_%family_cnt;_%child_cnt;"%if;(child.has_sosa) name="sosa" %end; onkeypress="javascript:return acc_key(this,event,'sib_1','spo_%family_cnt;','%next_chi;','child_%child.index;','0','0','0');" %end; %end; %if;(has_families) %if;(evar.image="on") %foreach;family; %if;(evar.spouse != "off")
%if;(spouse.has_image)%apply;link_image("spouse")%end; %apply;somebody("spouse")
%end; %if;(curlev < maxlev) %if;(has_children) %foreach;child;
%if;(child.has_image)%apply;link_image("child")%end; %apply;child_long_info(curlev+1,maxlev)
%end; %end; %end; %end; %else; %foreach;family; %if;(evar.spouse != "off") %if;(self.sex = 0) %apply;link_marriage("self") %else; %apply;link_marriage("self.spouse") %end; %sp;%apply;somebody("spouse") %end; %if;(curlev < maxlev) %if;(has_children)

%foreach;child;
1. %apply;child_long_info(curlev+1,maxlev)
%end;

%end; %end; %end; %end; %end; %end; %define;children_list() %if;has_children; %if;(evar.image="on") %foreach;child;
%if;(has_image)%apply;link_image("self")%end; %apply;child_long_info(1,l_maxlev)
%end; %else;

%foreach;child;
1. %apply;child_long_info(1,l_maxlev)
%end;

%end; %end; %end; %define;advanced(z1,z2) %if;(not cancel_links and bvar.hide_advanced_request != "yes") %let;x1; %prefix;m=H;v=advanced;focus=z1;birth1_yyyy=%birth_date.year;;death2_yyyy=%death_date.year;;z1=%nn; %in; z2%nn; %else; z2%nn; %end; %end; %define;type_marriage() %if;are_married;[*married] %elseif;are_not_married;[*not married] %elseif;are_engaged;[*engaged] %elseif;is_no_sexes_check;[*not married] %elseif;is_no_mention;~ %end; %end; %define;marriage_date_place() %if;(marriage_place = "") %if;(on_marriage_date = "") %else; %on_marriage_date;%nn; %end; %else; %if;(on_marriage_date = "") [in (place)] %apply;advanced("marriage_place",marriage_place)%nn; %else; %on_marriage_date; [in (place)] %apply;advanced("marriage_place",marriage_place)%nn; %end; %end; %end; %define;content_marriage(xx) %if;are_divorced;… [divorced]%divorce_date;%nn; %elseif;are_separated;… [separated]%nn; %end; %if;has_witnesses; %if;cancel_links; ; [witness/witnesses]w :%sp;%nn; %else; %reset_count;%nn; ; [witness/witnesses]w :%sp;%nn; %end; %foreach;witness; %if;not is_first;, %end; %apply;somebody("witness")%nn; %( %) %if;(witness.has_qualifiers and witness.title=", Cousin") @%nn; %end;%nn; %( %) %end;%nn; %end; %if;has_comment; ;%sp;%comment;%end; %end; %define;content_family(xx,yy) %if;(evar.image="on")
%if;(xx.has_image)%apply;link_image("xx")%end; %xx;%xx.title; %xx.dates;
%if;(xx.sex = 0) %apply;link_marriage("xx") %else; %apply;link_marriage("xx.spouse") %end;
%if;(yy.has_image)%apply;link_image("yy")%end; %apply;somebody1%with;yy%and;yy%and;%end;
%else; %let;next_spo;spo_%if;(nb_families != family_cnt)%expr(family_cnt + 1)%else;1%end;%in; %if;(xx.sex = 0) %apply;link_marriage("xx") %else; %apply;link_marriage("xx.spouse") %end;%sp; %apply;somebody1%with; yy%and; yy%and; id="spo_%family_cnt;" onkeypress="javascript:return acc_key(this,event,'sib_1','%next_spo;','chi_%family_cnt;_1','spouse_%spouse.index;','0','0','f%family.index;');" %end; %end;
%apply;type_marriage() %apply;marriage_date_place() %apply;content_marriage("xx") %apply;children_list() %end; %define;parents(xx,yy,zz) %foreach;xx.parent; %let;l_sosa;%if;parent.is_female;%expr(zz + 1)%else;%zz;%end;%in yy %if;(parent.has_siblings) ♦ %elseif;(parent.has_parents) ◊ %elseif;(wizard and not cancel_links) - %else; - %end; %apply;link_name1%with; parent%and; parent%and; id="par_%l_sosa;" onkeypress="javascript:return acc_key(this,event,'sib_1','spo_1','chi_1_1','parent_%parent.index;','add_par_%l_sosa;','par_%l_sosa;','par_%l_sosa;');" %end; %apply;link_dates("parent") %end; %end; %define;anc_families() %if;has_parents;

### [*ancestors]

%if;(l_maxlev > 1) %if;father.has_parents; %if;father.father.has_parents;%apply;parents("father.father"," ",8)%end; %apply;parents("father"," ",4) %if;father.mother.has_parents;%apply;parents("father.mother"," ",10)%end; %end; %apply;parents("self","",2) %if;mother.has_parents; %if;mother.father.has_parents;%apply;parents("mother.father"," ",12)%end; %apply;parents("mother"," ",6) %if;mother.mother.has_parents;%apply;parents("mother.mother"," ",14)%end; %end; %else; %if;father.has_parents;%apply;parents("father"," ",4)%end; %apply;parents("self","",2) %if;mother.has_parents;%apply;parents("mother"," ",6)%end; %end;
%if;(father.nb_children > 1 or mother.nb_children > 1)

### [*full siblings]

%foreach;father.child;
1. %if;is_self;%end; %let;next_sib;sib_%expr(child_cnt + 1)%in; %apply;link_name1%with; child%and; %l_child;%and; id="sib_%child_cnt;" onkeypress="javascript:return acc_key(this,event,'%next_sib;','spo_1','chi_1_1','child_%child.index;','0','0','0');" %end; %if;is_self;%end; %apply;link_dates("child")
%end;

%foreach;father.family; %if;(spouse.index != mother.index) %if;has_children;

1. [*on %s's side:::] %father; [and] %apply;somebody("spouse") :
%foreach;child;
2. %if;is_self;%end; %let;next_sib;sib_%expr(child_cnt + 1)%in; %apply;link_name1%with; child%and; %l_child;%and; %end; %if;is_self;%end; %apply;link_dates("child")
%end;

%end; %end; %end; %foreach;mother.family; %if;(spouse.index != father.index) %if;has_children;

1. [*on %s's side:::] %mother; [and] %apply;somebody("spouse") :
%foreach;child;
2. %if;is_self;%end; %let;next_sib;sib_%expr(child_cnt + 1)%in; %apply;link_name1%with; child%and; %l_child;%and; %end; %if;is_self;%end; %apply;link_dates("child")
%end;

%end; %end; %end;
%end; %elseif;(wizard and not cancel_links and first_name != "?" and surname != "?")
[add::parents]
%end; %end; %define;lex(xx,yy) %if;(yy = 0)[xx]0%elseif;(yy = 1)[xx]1%else;[xx]2%end; %end; %define;relation_computing() %let;l_rt; %if;(relation_type = [godfather/godmother/godparents]2 or relation_type = [godfather/godmother/godparents]1 or relation_type = [godfather/godmother/godparents]0) godfather/godmother/godparents%nn; %elseif;(relation_type = [adoptive father/adoptive mother/adoptive parents]2 or relation_type = [adoptive father/adoptive mother/adoptive parents]1 or relation_type = [adoptive father/adoptive mother/adoptive parents]0) adoptive father/adoptive mother/adoptive parents%nn; %elseif;(relation_type = [recognizing father/recognizing mother/recognizing parents]2 or relation_type = [recognizing father/recognizing mother/recognizing parents]1 or relation_type = [recognizing father/recognizing mother/recognizing parents]0) recognizing father/recognizing mother/recognizing parents%nn; %elseif;(relation_type = [candidate father/candidate mother/candidate parents]2 or relation_type = [candidate father/candidate mother/candidate parents]1 or relation_type = [candidate father/candidate mother/candidate parents]0) candidate father/candidate mother/candidate parents%nn; %elseif;(relation_type = [foster father/foster mother/foster parents]2 or relation_type = [foster father/foster mother/foster parents]1 or relation_type = [foster father/foster mother/foster parents]0) foster father/foster mother/foster parents%nn; %else; * %end; %in; %let;l_rt0;%if;(l_rt != "*")%apply;lex(l_rt,0)%else;*%end;%in; %let;l_rt1;%if;(l_rt != "*")%apply;lex(l_rt,1)%else;*%end;%in; %if;cancel_links; %apply;capitalize(relation_type) :%nn; %else; %reset_count; %apply;capitalize(relation_type) :%nn; %end; %end; %define;related_computing() %if;cancel_links; %apply;capitalize(related_type) :%nn; %else; %reset_count; %apply;capitalize(related_type) :%nn; %end; %end; %define;witness_computing() %if;cancel_links; [*witness at marriage of %s and %s:::x:y] :%nn; %else; %reset_count; [*witness at marriage of %s and %s:::x:y] :%nn; %reset_count; %end; %end; %define;age_at(xx) [age at %s birth date:::xx]%nn; %end; %define;nav_with_sosa_ref(xx) [*navigation with %t as Sosa reference:::xx] %end; %define;link_ng(z1,z2) %if;cancel_links;z2%nn; %else; %let;x1; %prefix;m=NG;t=z1;n=%nn; %in; z2%nn; %end; %end; %( %) %nn;
%( the magic Safari div %) %message_to_wizard; %( %) %if;not cancel_links;

%let;l_on;onclick="this.focus()" onkeydown="if (event.keyCode == 13) javascript:document.tools.submit();"%in; %hidden; %foreach;env_binding; %if;( env.key = "cgl" or env.key = "image" or env.key = "maxlev" or env.key = "spouse" or env.key = "wide" or env.key = "templ" or env.key = "iz" or env.key = "pz" or env.key = "nz" or env.key = "ocz" ) %else; %end; %end;
[*tools]
^^
%end; %( %) %if;(evar.del = "on")

# [*delete]… [person/persons]1… [family/families]1…

%if;(wizard and bvar.can_kill_ancestors="yes")

/!\ can_kill_ancestors=yes %nn; %self; /!\ [delete::ancestors]0 /!\ can_kill_ancestors=yes /!\

%end; %end;
%( %)

# %if;(has_public_name or has_qualifiers) %apply;link_ng("PN",self) %else; %apply;link_ng("P",first_name)%sp;%nn; %apply;link_ng("N",surname) %end; %apply;link_dates("self")

%if;has_image;
%end;

%if;has_nobility_titles; %foreach;nobility_title; %nobility_title; %end; %end; %if;(has_linked_pages and has_linked_page.HEAD)%linked_page.HEAD;%end; %if;(has_nobility_titles and has_public_name) %apply;link_ng("PN",public_name) %end; %if;has_qualifiers; %apply;lazy_print("") %foreach;qualifier; %( %) %if;is_first; %if;(title=", Cousin") Arbre en ligne %end; %end; %( %) %if;not is_first; %if;(lazy_printed)/%end; %lazy_force; %apply;link_ng("PN",qualifier)%nn; %end; %end; %end; %if;has_aliases; %apply;lazy_print("") %nn; %foreach;alias; %if;(lazy_printed)/%end; %lazy_force; %apply;link_ng("PN",alias)%nn; %end; %end; %if;(has_public_name or has_qualifiers) (%apply;link_ng("P",first_name)%sp; %apply;link_ng("N",surname)) %end; %if;has_first_names_aliases; %apply;lazy_print("") %foreach;first_name_alias; %if;(lazy_printed)/%end; %lazy_force; %apply;advanced("first_name",first_name_alias)%nn; %end; %end; %if;has_surnames_aliases; %apply;lazy_print("") %foreach;surname_alias; %if;(lazy_printed)/%end; %lazy_force; %apply;link_ng("N",surname_alias)%nn; %end; %end;

%if;has_occupation; %apply;advanced%with;occu%and;%apply;capitalize(occupation)%end; %end; %if;(has_linked_pages and has_linked_page.OCCU) %linked_page.OCCU; %end; %if;has_birth_date; %apply;capitalize(nth([born],sex)) %on_birth_date; %if;birthday; ([happy birthday to you!])%end; %if;has_birth_place; [in (place)] %apply;advanced("birth_place",birth_place)%end; %if;(has_parents) %if;(father_age_at_birth != "" or mother_age_at_birth != "") (%nn; %if;(father_age_at_birth != "")[father/mother]0 %father_age_at_birth;%nn; %if;(mother_age_at_birth != ""), %end; %end; %if;(mother_age_at_birth != "")[father/mother]1 %mother_age_at_birth;%end; ) %end; %end; %else; %if;has_birth_place; %apply;capitalize(nth([born],sex)) [in (place)] %apply;advanced("birth_place",birth_place) %end; %end; %if;has_baptism_date; %apply;capitalize(nth([baptized],sex)) %on_baptism_date; %if;has_baptism_place; [in (place)] %apply;advanced("bapt_place",baptism_place)%end; %else; %if;has_baptism_place; %apply;capitalize(nth([baptized],sex)) [in (place)] %apply;advanced("bapt_place",baptism_place) %end; %end; %if;is_dead; %apply;capitalize(died) %if;has_death_date; %on_death_date;%end; %if;has_death_place; [in (place)] %apply;advanced("death_place",death_place)%end; %if;computable_death_age; [age at death:] %death_age; %end; %if;has_linked_page.DEATH; %linked_page.DEATH; %end; %if;is_buried; %apply;capitalize(nth([buried],sex)) %if;has_burial_date; %on_burial_date;%end; %if;has_burial_place; [in (place)] %apply;advanced("burial_place",burial_place)%end; %end; %if;is_cremated; %apply;capitalize(nth([cremated],sex)) %if;has_cremation_date; %on_cremation_date;%end; %if;has_cremation_place;, %cremation_place;%end; %end; %end; %if;computable_age; [*age] : %age; %end; %( %) %if;(has_sosa and sosa != 1) %let;l_sosa_ref; %apply;a_of_b%with; %and; %apply;link_name("sosa_ref") %end; %in; %if;cancel_links; [*Sosa] %sosa; %l_sosa_ref; %else; [*Sosa] %sosa; %l_sosa_ref;%nn; %end; %elseif;(sosa = 1) [*Sosa] 1 %end; %if;(bvar.show_consang != "no" or manitou) %if;(has_parents) %reset_count; %foreach;ancestor_level %if;(level = max_anc_level) %number_of_ancestors; [ancestors] / %level; [generation/generations]1%nn; %end; %foreach;ancestor %if;(ancestor.same != "") %incr_count; %end; %end; %end; %if;(has_consanguinity or count != 0) , %if;(cancel_links) [consanguinity] : %consanguinity; %else; [consanguinity] : %consanguinity; %end; %if;(count != 0) (%nn; %if;(not cancel_links) %count; ==%nn; %else; %count; ==%nn; %end;) %end; %end; %end; %if;(has_children) %foreach;descendant_level; %if;(level = max_desc_level) %number_of_descendants; [descendants] / %level; [generation/generations]1 %end; %end; %end; %end; %( %) %if;(not cancel_links and has_linked_pages) ([linked pages]) %end;

%( %) %if;(bvar.var_img_ext != "" and (has_linked_pages or wizard)) %include.inc_mickroue2; %end; %( %) %if;(has_notes or has_linked_pages) %if;(has_notes or has_linked_page.BNOTE or has_linked_page.NOTE)

### [*note/notes]1

  %if;(has_linked_page.BNOTE)

  >> %linked_page.BNOTE;

  %end; %notes;

%end; %end; %if;(has_relations and bvar.var_photo != "on")

### [*relation/relations]1

%foreach;relation;
- %apply;relation_computing()
  %if;has_relation_him;
  - %apply;somebody("relation_him")
  %end; %if;has_relation_her;
  - %apply;somebody("relation_her")
  %end;
%end; %foreach;related;
- %apply;related_computing()
  - %apply;somebody("related")
%end; %reset_count; %foreach;witness_relation; %if;(count = 0)
- %apply;witness_computing()

  %end;
  %apply;somebody("witness_relation.father") | %apply;link_marriage("witness_relation.father") | %apply;somebody("witness_relation.mother")
  %incr_count; %end; %if;(count > 0)

  %if;(count > 5) [*total] : %count; %end;
%end;

%end; %if;(bvar.var_photo = "on" and has_relations) %include.inc_mickroue1; %end; %if;(has_sources or has_linked_page.BIBLIO)

### [*source/sources]1

%if;(has_linked_page.BIBLIO)
- >> %linked_page.BIBLIO;
%end; %foreach;source;
- %source_type; : %source;
%end;

%end; %( %)
%( %) %apply;anc_families() %if;has_families;

### [*descendants]

%foreach;family;
%if;(wizard and not cancel_links and family_cnt != 1) %if;(family_cnt != 1) ^ %if;(family.father.index = prev_family.father.index and family.mother.index = prev_family.mother.index) %nn; [*merge::] %end; %end; %end; %apply;content_family("self","spouse") %if;(evar.opt = "from" and wizard)(%origin_file;)%nl;%end; %if;(evar.image = "on" and nb_families > 1)

%end;
%end;
%else; %if;(wizard and not cancel_links)
%if;((first_name = "?" or surname = "?") and (nb_families != 0 or has_parents)) %elseif;(not is_male and not is_female) %nn; [add::family/families]0 ([M/F]0) %nn; [add::family/families]0 ([M/F]1) %else; [add::family/families]0 %end;
%end; %end; %( %)
%( %) %if;not cancel_links;
%if;wizard; [*update] %if;(bvar.history_diff="yes" and has_history) [history]%nn; %end; [modify::person/persons]0%nn; %foreach;family; %if;(family_cnt < 4) %let;a_k;%if;(family_cnt = 1)F%elseif;(family_cnt = 2)G%elseif;(family_cnt = 3)H%end;%in; [modify::family/families]0 %family_cnt;%nn; %else; [modify::family/families]0 %family_cnt;%nn; %end; %end; [add::family/families]0%nn; [send::image/images]0%nn; [merge]0 (oc=%occ;)%nn; %if;(evar.del = "on") [delete]%nn; %else; [delete]%nn; %end; %end; %if;has_parents; [*ancestors] [tree]%nn; [surnames branch]%nn; [table]%nn; [long display]%nn; %end; %if;has_children; [*descendants] [tree]%nn; d’Aboville%nn; [long display]%nn; %end; [*relationship computing] %if;(browsing_with_sosa_ref) %if;(sosa_ref.index != "" and sosa_ref.index != index) [shortest path]%nn; %end; %end; 7 [family/families]1%nn; %if;(has_parents) %if;(father.has_siblings or mother.has_siblings) [uncles and aunts]%nn; %end; %end; %if;has_nephews_or_nieces; [nephews and nieces]%nn; %end;
%end; %( %) %if;(not cancel_links and wizard and (evar.opt = "misc" or bvar.misc = "on"))

- wiki [text] key index

%misc_names;
%end; %if;(evar.del="on")
%end;
%base_trailer; %copyright;
%( the magic Safari div %)