%include;css %include;js_upd %include;updind_updfam %include;hed %(%) %let;l_r_father; placeholder="M" %in; %let;l_r_mother; placeholder="F" %in; %define;load_focus() onload="oL1(); %nn; %if;(evar_m = "MOD_IND") %if;(not is_male and not is_female) sIV('sex1')%nn; %elseif;(birth.prec != "sure") sIV('lpc2')%nn; %elseif;(birth.year < "1900" and death.prec != "sure") sIV('lpc3')%nn; %else; sIV('notes')%nn; %end; %end; "%nn; %end; %define;one_title(z1) %apply;date("t_date_startz1","title_date_start","","") %apply;date("t_date_endz1","title_date_end","","") %end; %define;relations(z1) %apply;one_relation("z1","fath","r_father","0") %apply;relation_type("z1") %apply;one_relation("z1","moth","r_mother","1") %end; %define;relation_type(z1) %end; %define;one_relation(z1,z2,z3,z4) %let;l1;rz1_z2%in; %end; %(%)
%message_to_wizard;

[!dates order]0 %hidden; %include;upd_datalist %if;(evar_m = "MRG_IND_OK" or evar_m = "MRG_MOD_IND_OK") %if;(evar_i2 != "") %end; %if;(evar_ini1 != "" and evar_ini2 != "") %end; %if;(evar.iexcl != "" or evar.fexcl != "") %if;(evar.iexcl != "") %end; %if;(evar.fexcl != "") %end; %end; %elseif;(evar_m = "MOD_IND" or evar_m = "MOD_IND_OK") %else; %end; %let;l_s;%if;(is_male)M%elseif;(is_female)F%else;N%end;%in; %let;l_s1;%if;(is_male)0%elseif;(is_female)1%else;2%end;%in; %let;l_s2;%if;(is_male)M%elseif;(is_female)F%else;N%end;%in; %let;lt1;#%in; %let;lt2;[date/dates]0%in; %let;lt3;title="%ak2;"%in; %let;lt4;title="%ak1;%ak3;%ak5;"%in; %let;lt5;title="%ak3;%ak7;"%in; %apply;hevent("birth","birth") %apply;hevent("bapt","bapt") %apply;hevent("death","death") %apply;hevent("burial","burial") %( marche pas : "NotDead" "DontKnowIfDead" "Death" "DeadYoung" "OfCourseDead" %)

%if;(evar_m = "MRG_IND_OK" or evar_m = "MRG_MOD_IND_OK") [*merge::person/persons]1 # %index; %elseif;(evar_m = "MOD_IND" or evar_m = "MOD_IND_OK") [*modify::person/persons]0 # %index; %else; [*add::person/persons]0 %end;   
%lpc1; 
%if;has_qualifiers; %foreach;qualifier; %let;cnt1;%expr(cnt+1)%in;  +  %end; %elseif;(bvar.propose_qualifier != "no")  +  %end; %if;has_aliases; %foreach;alias; %let;cnt1;%expr(cnt+1)%in;  +  %end; %elseif;(bvar.propose_alias != "no")  +  %end; %if;has_first_names_aliases; %foreach;first_name_alias; %let;cnt1;%expr(cnt+1)%in;  +  %end; %else;  +  %end; %if;has_surnames_aliases; %foreach;surname_alias; %let;cnt1;%expr(cnt+1)%in;  +  %end; %else;  +  %end;
%if;(occupation="") %else; %end;
[access]0
[*event/events]1 ⇳ %if;(not has_pevent_birth)%apply;one_event(next_pevent,"#birt","witness")%incr_next_pevent;%end; %if;has_pevents;%foreach;pevent;%apply;one_event(cnt,"","witness")%end;%end; %if;(not has_pevent_death)%apply;one_event(next_pevent,"","witness")%incr_next_pevent;%end;
+ [event/events]0 %lpc4; # %lt2; [place] [note/notes]1 [source/sources]1
%incr_next_pevent;
[*relation/relations]1 %if;has_relations; %foreach;relation;%apply;relations(cnt)%end; %else; %apply;relations("1") %end;
# [first name/first names]0 [surname/surnames]0
MF
 + 
[*title/titles]1 %if;has_titles; %foreach;title;%apply;one_title(cnt)%end; %else; %apply;one_title("1") %end;
# [title/titles]0 [estate] [name] [nth]0 [begin] / [end][:] %lt2;
 + 
%include;trl %include;copyr
%include;js