[*select a spouse]
%end; %if;((first_name = "?" or surname = "?") and (nb_families != 0 or has_parents)) %elseif;(not is_male and not is_female) [*add mariage] ([M/F]0) [*add mariage] ([M/F]1) %else; [*add mariage] %end;|
%apply;marriage_with_txt%with;%spouse;%end;
%apply;married_to%with;%self.sex;%and; %if;(marriage_place = "") %if;(on_marriage_date = "") %else;%on_marriage_date; %end; %else; %if;(on_marriage_date = "")%marriage_place; %else;%on_marriage_date;, %marriage_place %end; %end; %end; %if;has_children;[*child/children]1 :
|
%if;(has_families and nb_families > 1)
[*display this marriage in this order]
%end;
|
| [*family/families]1 |
|---|
|
%foreach;family;
%if;(family_cnt != 1)
[*invert]
%if;(family.father.index = prev_family.father.index and family.mother.index = prev_family.mother.index) %nn; [*merge::] %end; %end; %nn; [*modify::family/families]0%if;(nb_families = 1) %end; [with] %spouse.first_name;.%spouse.occ; %spouse.surname; %nn; [*delete::family/families]0 [with] %spouse.first_name;.%spouse.occ; %spouse.surname; %end; %if;((first_name = "?" or surname = "?") and (nb_families != 0 or has_parents)) %elseif;(not is_male and not is_female) %nn; [*add::marriage/marriages]0 ([M/F]0) %nn; [*add::marriage/marriages]0 ([M/F]1) %else; %nn; [*add::marriage/marriages]0 %end; %if;(nb_children != 0) [*change children's names] %end; %if;has_possible_duplications; %sq; [*merge::possible duplications] %end; |
%apply;hint([*modify::family/families]0)