[*person/persons]0 %if;(not browsing_with_sosa_ref or sosa_ref.index!=central_index) %apply;navsosa%with; %self; %if;has_nobility_titles;, %nobility_title;%end; %end; %end; %if;wizard; [*update] [modify::person/persons]0%nn; %foreach;family; %if;(family_cnt < 4) %let;a_k;%if;(family_cnt = 1)F%elseif;(family_cnt = 2)G%elseif;(family_cnt = 3)H%end;%in; [modify::family/families]0 %family_cnt;%nn; %else; [modify::family/families]0 %family_cnt;%nn; %end; %end; %if;((first_name = "?" or surname = "?") and (nb_families != 0 or has_parents)) %elseif;(is_male or is_female) [add::family/families]0%nn; %end; %if;(not has_parents and first_name != "?" and surname != "?") [add::parents]%nn; %end; [send::image/images]0%nn; [merge]0 (oc=%occ;)%nn; [delete::person/persons]0%nn; %if;(bvar.setup_link != "no") %let;l1;%if;(bvar.setup_http != "")%bvar.setup_http;%else;http://127.0.0.1:2316/%end;%in; %let;l2;%if;(has_sosa)s%sosa.v;%else;i%index;%end;%apply;initial(first_name_key)%apply;initial(surname_key)-%base.name;%in; %let;l_gwu;%l1;gwu?opt=check;anon=%base.name;;nn=on;c=%in; %if;(version = "7.00 - gwmr") Gwstp %else; Gwsetup %end; %if;(has_parents or has_children) %if;has_parents; A%l2;.gw%nn; AWS%l2;.gw%nn; %end; %if;(has_parents and has_children) AD%l2;.gw%nn; %if;(has_sosa and sosa_ref.index != index) %let;l3;As1%apply;initial(sosa_ref.first_name_key)%apply;initial(sosa_ref.surname_key)D%l2;%in; %l3;.gw%nn; %end; %end; %if;has_children; D%l2;.gw%nn; %end; S-%surname_key;-%base.name;.gw%nn; %end; %end; %end; %if;(bvar.history_diff="yes" and has_history) [*history] [difference between the two revisions] %end; %if;has_parents; [*ancestors] [tree]%nn; [table]%nn; [long display]%nn; [surnames branch]%nn; %end; %if;has_children; [*descendants] [tree]%nn; [table]%nn; [long display]%nn; d’Aboville%nn; %end; [*relationship computing] %apply;lazy_print("") %if;(browsing_with_sosa_ref) %if;(sosa_ref.index != "" and sosa_ref.index != index) %lazy_force; [shortest path]%nn; %end; %end; %if;(has_parents) %if;(father.has_siblings or mother.has_siblings) %lazy_force; [uncles and aunts]%nn; %end; %end; %if;has_nephews_or_nieces; %lazy_force; [a nephew/a niece]4%nn; %end; %if;lazy_printed;%else;%apply;lazy_print("")%end; %if;has_parents; %foreach;father.child; %if;is_sibling_before; %apply;capitalize(nth([previous sibling],sex)) %end; %if;is_sibling_after; %apply;capitalize(nth([next sibling],sex)) %end; %end; %end;