%let;ldsp;%if;(evar.hide="on")dsp0%else;dsp1%end;%in; %if;(not cancel_links) %end; %let;lchild;%if;(evar.nosurn = "on")child_name%else;child%end;%in; %let;lupd;%if;(wizard and not cancel_links and evar.upd = "on")1%end;%in; %let;ltaf;%if;(wizard and not cancel_links) title="[add::family/families]0" %end;%in; %let;ltap;%if;(wizard and not cancel_links) title="[add::parents]" %end;%in; %let;ltmf;%if;(wizard and not cancel_links) title="[modify::family/families]0" %end;%in; %let;ltmp;%if;(wizard and not cancel_links) title="[modify::person/persons]0" %end;%in; %define;link_dates(z1) %if;(lupd = "1") %z1.dates;%nn;%if;(z1.dates = "") - %end;%nn; %if;("z1" = "ancestor" or "z1" = "child" or "z1" = "self") %sp;&&%nn; %end; %else; %z1.dates;%nn; %end; %end; %define;link1(z1,z2) %incr_count; %z2;%nn; %end; %define;link2(z1) %incr_count; %if;(cancel_links or z1.is_restricted)%z1; %else; %z1;%nn; %end; %z1.title;%apply;link_dates("z1") %end; %define;link_parents() %if;(evar.only != "on" and ancestor.father_sosa != "") %ancestor.anc_sosa;%nn; %elseif;(lupd = "1" and not ancestor.has_parents and ancestor.first_name != "?" and ancestor.surname != "?") %ancestor.anc_sosa;%nn; %else; %ancestor.anc_sosa;%nn; %end; %end; %define;somebody_info1(z1) %if;z1.has_qualifiers; %apply;lazy_print(", ") %foreach;z1.qualifier; %if;not is_first; %if;(lazy_printed)/%end; %lazy_force; %qualifier;%nn; %end; %end; %end; %if;z1.has_aliases; %apply;lazy_print(", ") %foreach;z1.alias; %if;(lazy_printed)/%end; %lazy_force; %alias;%nn; %end; %end; %if;(z1.has_nobility_titles) %foreach;z1.nobility_title;, %nobility_title;%end;%nn; %end; %if;(z1.has_linked_pages and z1.has_linked_page.HEAD), %z1.linked_page.HEAD;%end; %if;(z1.has_public_name or z1.has_qualifiers), (%z1.first_name; %z1.surname;)%end; %if;(evar.alias="on" and (z1.has_first_names_aliases or z1.has_surnames_aliases)) %nn; %if;z1.has_first_names_aliases; %apply;lazy_print(", ") %foreach;z1.first_name_alias; %if;(lazy_printed)/%end; %lazy_force; %first_name_alias;%nn; %end; %end; %if;z1.has_surnames_aliases; %apply;lazy_print(", ") %foreach;z1.surname_alias; %if;(lazy_printed)/%end; %lazy_force; %surname_alias;%nn; %end; %end; %nn; %end; %if;z1.has_occupation;, %z1.occupation;%end; %if;(z1.has_linked_pages and z1.has_linked_page.OCCU), %z1.linked_page.OCCU;%end; %apply;link_dates("z1") %end; %define;somebody_info2(z1) %if;(not cancel_links) … %end;

%if;(evar.image!="off" and z1.has_image) [image/images]0

[image/images]0

%nn; %end;

%apply;capitalize(event.name) %if;event.has_date; · %event.on_date;%nn; %if;(bvar.event_age = "yes" and event.age != "") · %event.age;%nn; %elseif;(event.name = [birth] and z1.computable_age) · %z1.age;%nn; %elseif;(event.age != "" and event.name = [death]) · %event.age;%nn; %end; %end; %if;event.has_place; · %event.place;%end; %if;event.has_spouse; · [with] %event.spouse;%end;

%linked_page.DEATH;

[*witness/witnesses]1 : %foreach;event_witness; %if;(not is_first), %nl;%end; %apply;link2("event_witness") %end;

%event.note;

%if;(evar.rel = "on" and z1.has_relations)

[*relation/relations]1 %foreach;z1.relation; • %relation_type; : %if;has_relation_him; %apply;link2("relation_him") %if;has_relation_her; [and] %end; %end; %if;has_relation_her; %apply;link2("relation_her") %end; %end; %foreach;z1.related; • %related_type; : %apply;link2("related") %end; %foreach;z1.event_witness_relation; • %event_witness_relation.event.name; %if;event_witness_relation.event.has_date; · %event_witness_relation.event.date;%end; %if;event_witness_relation.event.has_place; · %event_witness_relation.event.place;%end; : %apply;link2("event_witness_relation.person") %if;(event_witness_relation.event.spouse != "") [and] %apply;link2("event_witness_relation.event.spouse")%end; %end;

%end; %if;(evar.notes = "on") %if;(z1.has_notes or z1.has_linked_page.BNOTE or z1.has_linked_page.NOTE)

%if;z1.has_linked_page.BNOTE;>> %z1.linked_page.BNOTE;%end; %if;z1.has_notes;%z1.notes;%end; %if;z1.has_linked_page.NOTE;>> %z1.linked_page.NOTE;%end;

%end; %end; %if;(evar.src = "on") %apply;lazy_print%with;

[*source/sources]1 %end; %if;(z1.has_sources or z1.has_linked_page.BIBLIO) %if;(z1.has_linked_page.BIBLIO)%lazy_force;>> %z1.linked_page.BIBLIO;%end; %if;(z1.has_sources) %foreach;z1.source; %if;(source_type = [person/persons]0 or source_type = [family/families]0) %lazy_force; • %source_type; : %source; %end; %end; %end; %end; %foreach;z1.event() %if;event.has_src; %lazy_force; • %event.name;%if;(event.has_spouse) [with] %event.spouse;%end; : %event.src; %end; %end; %if;lazy_printed;

%else;%apply;lazy_print("")%end; %end; %if;(evar.image!="off" and z1.has_image)

%end;

%end; %define;somebody_spouse_parent() %if;(evar.parents = "on") %if;(spouse.has_parents) [parents] : %apply;link2("spouse.father") [and] %apply;link2("spouse.mother") %elseif;(lupd = "1") %sp;-- %end; %end; %end; %define;marriage_info() %if;(lupd = "1") %nn; &%marriage_date.prec;%marriage_date.year; %else; &%if;(marriage_date.prec != "")%marriage_date.prec;%end;%if;(marriage_date.year != "")%marriage_date.year;%end;%sp; %end; %if;(evar.notes = "on" and has_comment)

%comment;

%end; %end;