%nn; %if;(evar_m = "ADD_FAM" or evar_m = "ADD_FAM_OK") [*add::family/families]0%nn; %elseif;(evar_m = "ADD_PAR")[*add::parents]0 - #%evar_ip;%nn; %elseif;(evar_m = "MOD_FAM" or evar_m = "MOD_FAM_OK") [*modify::family/families]0 - #%evar_i; %elseif;(evar_m = "MRG_DUP_FAM_Y_N" or evar_m = "MRG_FAM" or evar_m = "MRG_FAM_OK" or evar_m = "MRG_MOD_FAM_OK") [*merge::family/families]1 - #%evar_i; %end;

%include;css %include;js_upd %include;updind_updfam %( %) %let;lt1;#%in; %let;lt2;[date/dates]0%in; %let;lt3; [place] %in; %let;lt4;title="%ak1;%ak2;%ak3;%ak7;%ak4;"%in; %let;lt5;#%in; %let;lt6;[date/dates]0%in; %define;load_focus() onload="oL1();oL2();%nn; %if;(evar_m = "ADD_FAM" or evar_m = "ADD_PAR" or evar_m = "MOD_FAM") jq1b('%evar.i;');%nn; %if;(evar_m = "ADD_FAM" or evar_m = "ADD_PAR") %if;(father.first_name = "") sIV('pa1_fn')%nn; %else; sIV('pa2_fn')%nn; %end; %elseif;(marriage.prec != "sure") sIV('lfc3')%nn; %else; addChild(1,1)%nn; %end; %end; "%nn; %end; %define;onjq1a(z1) onkeydown="if(event.keyCode == 13)tUC(this)" onblur="tUC(this);jq1a('z1')"%end; %define;onjq1a1(z1) onkeydown="if(event.keyCode == 13)tUC1(this)" onblur="tUC1(this);jq1a('z1')"%end; %define;accesskey(z1) %if;("z1"="marr") %lfa3; %end; %end; %define;place(z1,z2) [place] %end; %define;date_place(xx,z1,z2,z3,z4,z5) %let;l_d;%xx.create.z1_day;%in; %let;l_m;%xx.create.z1_month;%in; %let;l_dd;%if;(l_d != "" and l_d < 10)0%end;%l_d;%in; %let;l_mm;%if;(l_m != "" and l_m < 10)0%end;%l_m;%in; %let;l_yy;%xx.create.z1_year;%in; %nn; %if;(ldmy = "dd") %nn; %nn; %nn; %elseif;(ldmy = "mm") %nn; %nn; %nn; %else; %nn; %nn; %nn; %end; %nn; %end; %define;link_create1(z1,z2,z3,xx) %let;l1;%if;("z2"="1")M%else;F%end;%in; %end; %define;link_create2(z1,z2,xx) %let;l;%xx.create.sex;%in; %let;l1;%if;(l="male")M%elseif;(l="female")F%else;N%end;%in; %let;l2;%if;(xx.create="create")%if;(l="male")0%elseif;(l="female")1%else;2%end;%end;%in; %end; %define;one_parent(z1) %let;l1;%if;(parent.create="link")hide%else;vis%end;%in; %if;("z1" = "1")
%apply;link_create1("pa","z1","0","parent")
%nn; %apply;date_place("parent","birth","pa1b","pa","1","b_yy") %apply;date_place("parent","death","pa1d","pa","1","d_yy")
%else;
%apply;link_create1("pa","z1","1","parent")
%nn; %apply;date_place("parent","birth","pa2b","pa","2","b_yy") %apply;date_place("parent","death","pa2d","pa","2","d_yy")
%end; %end; %define;one_child(z1) %let;l1;%expr(z1+1)%in; %let;l2;%if;(child.create="link")hid%else;vis%end;%in;
%apply;link_create2("ch","z1","child")
%nn; %apply;date_place("child","birth","chz1b","ch","z1","b_yy") %apply;date_place("child","death","chz1d","ch","z1","d_yy")
%end; %( %) %include;hed %message_to_wizard;

[!dates order]0 %hidden; %include;upd_datalist %if;(evar_ip != "")%nl;%end; %if;(evar_i != "")%nl;%end; %if;(evar_m = "ADD_FAM" or evar_m = "ADD_FAM_OK") %nl; %elseif;(evar_m = "ADD_PAR") %nl; %elseif;(evar_m = "MOD_FAM" or evar_m = "MOD_FAM_OK") %nl; %elseif;(evar_m = "MRG_DUP_FAM_Y_N" or evar_m = "MRG_FAM" or evar_m = "MRG_FAM_OK" or evar_m = "MRG_MOD_FAM_OK") %if;(evar_ini1 != "" and evar_ini2 != "") %end; %if;(evar.iexcl != "") %end; %if;(evar.fexcl != "") %end; %nl; %end; %apply;hevent("marr","marriage") %apply;hevent("div","divorce")

%if;(evar_m = "ADD_FAM" or evar_m = "ADD_FAM_OK") [*add::family/families]0 %elseif;(evar_m = "ADD_PAR") [*add::parents]0 %elseif;(evar_m = "MOD_FAM" or evar_m = "MOD_FAM_OK") [*modify::family/families]0 # %evar_i; %elseif;(evar_m = "MRG_DUP_FAM_Y_N" or evar_m = "MRG_FAM" or evar_m = "MRG_FAM_OK" or evar_m = "MRG_MOD_FAM_OK") [*merge::family/families]1 # %evar_i; %end;

%foreach;parent;%apply;one_parent(cnt)%end;
[no sexes check]

[*child/children]1

# | [first name/first names]0 / [surname/surnames]0 [surname/surnames]0 | [birth] / [death][:] %lt6; %lt3; | [occupation/occupations]0
%foreach;child;%apply;one_child(cnt)%end;
+ | %lfc2;

[*event/events]1 %if;(evar.m!="ADD_FAM")⇳%end; %if;has_fevents;%foreach;fevent;%apply;one_event(cnt,"","fwitness")%end;%else;%apply;one_event(1,"#marr","fwitness")%end;

+ [event/events]0 %lfc4; %lt5; %lt2; [place] [note/notes]1 [source/sources]1

[*marriage notes/marriages notes]0 %if;(comment != "" and bvar.move_comment = "yes") %foreach;fevent; %if;((fevent.e_name = "#marr" or fevent.e_name = "#nmar" or fevent.e_name = "#nmen" or fevent.e_name ="#enga") and fevent.e_note != "")%comment;%end; %end; %else; %comment;%sq; %end;
[*source/sources]1 %if;(fsources="") %else; %fsources; %end; %if;(evar_psrc != "")%evar_psrc;%else;%evar_dsrc;%end; %if;(bvar.origin_file = "on") [file] %end;
%base_trailer; %include;copyr %include;js