%let;laA;title="[*add::family/families]0 (A)" accesskey="A"%in; %let;laD;title="[*difference between the two revisions] (D)" accesskey="D"%in; %let;laI;title="[*send::image/images]0 (I)" accesskey="I"%in; %let;laL;title="[*add::parents] [of] %first_name;%if;(occ!=0).%occ%end; %surname; (L)" accesskey="L"%in; %let;laP;title="[*modify::person/persons]0 %first_name;%if;(occ!=0).%occ%end; %surname; (P)" accesskey="P"%in; %let;laR;title="[*relationship computing] (R)" accesskey="R"%in; %let;laU;title="[*update] (U)" accesskey="U"%in; %let;laS;accesskey="S"%in; %let;laY;title="[*tree] (Y)" accesskey="Y"%in; %let;acc;%if;access_by_key;ep=%first_name_key;;en=%surname_key;;%if;(occ!= "0")eoc=%occ;;%end;%else;ei=%index;;%end;%in; %let;sexcolor;%if;is_male;male%elseif;is_female;female%else;neuter%end;%in; %define;othersexcolor(sex) %if;(sex=1)male%elseif;(sex=0)female%else;neuter%end; %end; %define;spousesexcolor(sex) %if;(sex=0)male%elseif;(sex=1)female%else;neuter%end; %end; %define;input_hidden(xxx,nnn) %if;(xxx!="") %end; %end; %let;p_mod;%if;(bvar.p_mod!="" and evar.p_mod="")%bvar.p_mod;%elseif;(evar.p_mod!="")%evar.p_mod;%end;%in; %if;(not cancel_links)
%include;home %if;(evar.m="C" and not cancel_links) %include;cousins_tools %end; %end;