[*modify::tree]

%doctype; [*modify::tree] %include;css %include;templm/js_upd %include;hed %message_to_wizard; %include;templm/updind_updfam %let;lt4;title="%ak6;%ak3;%ak7;"%in; %define;one_i_line(z1) + x ↑ %if;pvar.z1.has_birth_date; %pvar.z1.slash_birth_date; %elseif;pvar.z1.has_baptism_date; %pvar.z1.slash_baptism_date; %end; - %nn; %if;pvar.z1.has_death_date;%pvar.z1.slash_death_date; %elseif;pvar.z1.has_burial_date;%pvar.z1.slash_burial_date; %elseif;pvar.z1.has_cremation_date;%pvar.z1.slash_cremation_date; %end; ↓ %end; %define;one_s_line(z1) + x ↑ %if;pvar.z1.has_birth_date; %pvar.z1.slash_birth_date; %elseif;pvar.z1.has_baptism_date; %pvar.z1.slash_baptism_date; %end; - %nn; %if;pvar.z1.has_death_date;%pvar.z1.slash_death_date; %elseif;pvar.z1.has_burial_date;%pvar.z1.slash_burial_date; %elseif;pvar.z1.has_cremation_date;%pvar.z1.slash_cremation_date; %end; ↓ %end; %define;one_svar(z1) %( s1=;s2=;... list of sosa_nb relative to some index_i %) %if;((evar.pz1 != "" and evar.nz1!="") or evar.iz1!="") %apply;one_i_line(z1) %apply;one_s_line(z1) %apply;one_svar(z1+1) %elseif;(evar.sz1!="") %apply;one_s_line(z1) %apply;one_svar(z1+1) %end; %end; %define;one_pvar(z1) %( i1=;i2=; ... contiguous list of indexes %) %if;(evar_iz1 != "") + x ↑ %if;pvar.z1.has_birth_date; %pvar.z1.slash_birth_date; %elseif;pvar.z1.has_baptism_date; %pvar.z1.slash_baptism_date; %end; - %nn; %if;pvar.z1.has_death_date;%pvar.z1.slash_death_date; %elseif;pvar.z1.has_burial_date;%pvar.z1.slash_burial_date; %elseif;pvar.z1.has_cremation_date;%pvar.z1.slash_cremation_date; %end; ↓ %apply;one_pvar(z1+1) %end; %end; %define;sosa_dag(z1) %if;(evar.iz1 != "") %if;(pvar.z1.has_sosa) %apply;add_in_sorted_list(pvar.z1.sosa.v) %end; %apply;sosa_dag(z1+1) %end; %end; %if;(browsing_with_sosa_ref) %end;

%include;trl %include;copyr

+	#	x	[first name/first names]0	[surname/surnames]0	↑	[birth] - [death]	↓	[text]
+

[*edit tree]