%include;js_perso_accesskey %(updind and updfam %) %let;ak1;[*link] [any individual in the base] [with][:]   [number] occurence (oc=), [first name/first names]0, [surname/surnames]0 [or]   [number] index (i=) [*create]/[add] [person/persons]0 %in; %let;ak2;  [*sex], [select a letter][:]   (M) [male/female/neuter]0   (F) [male/female/neuter]1   (N) [male/female/neuter]2 %in; %let;ak3; [*tools] [and] [relationship shortcut]   (R) [move up/down]0   (D) [move up/down]1   (H) [move up/down]2   (B) [move up/down]3   (A) [add::]   (I) [insert] %in; %let;ak4;  (P) [visualize/show/hide/summary]1/[visualize/show/hide/summary]2 [surname/surnames]0 %in; %let;ak5;  (V) [godfather/godmother/godparents]2   (W) [adoptive father/adoptive mother/adoptive parents]2   (X) [recognizing father/recognizing mother/recognizing parents]2   (Y) [candidate father/candidate mother/candidate parents]2   (Z) [foster father/foster mother/foster parents]2 %in; %let;ak6;[link] [any individual in the base] [with][:]   [number] occurence oc   [number] index i %in; %let;ak7;  (X) [delete::] %in; %let;lta;%if;([!dates order]0 = "ddmmyyyy") [year/month/day]2 [year/month/day]1 [year/month/day]0 %elseif;([!dates order]0 = "mmddyyyy") [year/month/day]1 [year/month/day]2 [year/month/day]0 %else; [year/month/day]0 [year/month/day]1 [year/month/day]2 %end; %in; %let;ltb;[year/month/day]0   1789 [exact]0   /1789/, //1789 [about (date)]0   1789 + 2 = /1791/   1789 - 2 = /1787/   ?1789, .1789 [possibly (date)]0   /1789 [before (date)]0   1789/ [after (date)]0 %in; %let;ltc;   1789/1791, 1789/12/1791, 1789/31/12/1791 [or]   1787.1789, 1787.07/1789, 1787.14/07/1789 [between (date)]   [text] %in; %let;l_on1; onkeydown="if (event.keyCode == 13) javascript:document.upd.submit()"%in; %let;l_on1s; onkeydown="if (event.keyCode == 13) if (!event.shiftKey) javascript:document.upd.submit()"%in; %let;l_on2; onblur="tUC(this)" onkeydown="if(event.keyCode == 13)tUC(this)"%in; %let;l_on3; onblur="tUC1(this)" onkeydown="if(event.keyCode == 13)tUC1(this)"%in; %let;l_on4; list="dloccu"%if;(bvar.datalist_occu = 2) onkeyup="ldl(this,'occu',event)"%end;%in; %let;l_on5; list="dlplace"%if;(bvar.datalist_place = 2) onkeyup="ldl(this,'place',event)"%end;%in; %let;l_on6; list="dlsrc"%if;(bvar.datalist_src = 2) onkeyup="ldl(this,'src',event)"%end;%in; %let;l_on7; list="dlsn"%if;(bvar.datalist_sn = 2) onkeyup="tUC(this);ldl(this,'sn',event)"%end;%in; %let;l_on8; list="dlfn"%if;(bvar.datalist_fn = 2) onkeyup="tUC1(this);ldl(this,'fn',event)"%end;%in; %let;ldmy;%if;([!dates order]0 = "ddmmyyyy")dd%elseif;([!dates order]0 = "mmddyyyy")mm%else;yy%end;%in; %define;date(z1,z2,z3,z4) %let;l_dd;%if;(z2.day != "" and z2.day < 10)0%end;%z2.day;%in; %let;l_mm;%if;(z2.month != "" and z2.month < 10)0%end;%z2.month;%in; %let;l_oyy;%z2.oryear;%in; %let;l_omm;%if;(z2.ormonth != "" and z2.ormonth < 10)0%end;%z2.ormonth;%in; %let;l_odd;%if;(z2.orday != "" and z2.orday < 10)0%end;%z2.orday;%in; %let;l1;%z2.prec;%in; %let;l2;%z2.year;%in; %let;l3; %if;(l_oyy != "") %if;(l1 = "oryear")/%elseif(l1 = "yearint")..%end; %if;(ldmy = "dd")%if;(l_odd != "")%l_odd;/%end;%if;(l_omm != "")%l_omm;/%end;%l_oyy;%nn; %elseif;(ldmy = "mm")%if;(l_omm != "")%l_omm;/%end;%if;(l_odd != "")%l_odd;/%end;%l_oyy;%nn; %else;%l_oyy;%if;(l_omm != "")/%l_omm;%end;%if;(l_odd != "")/%l_odd;%end;%nn; %end; %end; %in; %let;l_yy; %if;(l1 = "sure")%z2.year;%nn; %elseif;(l1 = "about")/%l2;/%nn; %elseif;(l1 = "maybe")?%l2;%nn; %elseif;(l1 = "before")/%l2;%nn; %elseif;(l1 = "after")%l2;/%nn; %elseif;(l3 != "")%l2;%l3;%nn; %elseif;(z2.text != "")%z2.text;%nn; %else;%l2;%nn; %end; %in; %if;(ldmy = "dd") z3%nn; %elseif;(ldmy = "mm") z3%nn; %else; z3%nn; %end; %nn; %end; %define;hevent(z1,z2) %if;("z1" != "div") %end; %end; %define;onjq1(z1,z2) onkeydown="if(event.keyCode == 13)tUC(this)" onblur="tUC(this);jq1('z1','z2')"%end; %define;one_event(z1,z2,z3) %let;l1;%if;("z2" != "")z2%else;%event.e_name;%end;%in; %let;l2;%if;(l1 = "#marr")%lfc3;%elseif;(l1 = "#birt")%lpc2;%elseif;(l1 = "#deat" or l1 = "-")%else;   %end;%in; %let;l3;%if;(l1 = "#marr")%lfa3;%elseif;(l1 = "#birt")%lpa2;%elseif;(l1 = "#deat" or l1 = "-")%end;%in; %let;l4;%if;(l1 = "#deat" or l1 = "-")%lpc3;%end;%in; %let;l5;%if;(l1 = "#deat" or l1 = "-")%lpa3;%end;%in;

%l4;%apply;date("e_datez1","event_date",l2,l3)%sp;

%nn; %if;(evar.m = "MOD_FAM" and comment != "" and bvar.move_comment = "yes" and event.e_note = "" and (event.e_name = "#marr" or event.e_name= "#nmar" or event.e_name= "#nmen" or event.e_name ="#enga"))%comment;%end; %event.e_note;%sq;

%if;(event.e_src="") %else; %event.e_src;%sq; %end;

%foreach;z3;%apply;one_witness(z1,wcnt,"z3")%end;

 + [witness/witnesses]0 %lt1; [first name/first names]0 [surname/surnames]0

%end; %define;one_witness(z1,z2,z3) %let;l1;ez1_witnz2%in;

%end; %define;g_oku(z1,z2,z3) var g_z1 = "list=\"dlz1\"%if;(bvar.datalist_z1 = 2) onkeyup=\"%if;("z2" = "yes")z3(this);%end;ldl(this,'z1',event)\"%end;"; %end;