%( op_m=1 simple: name %) %( op_m=2 photos: simple with photo %) %( op_m=3 evolved: spouse parents and children's spouse %) %( op_m=4 complete: evolved up to grand-children %) %( op_m=5 photos: complete with photos of spouse and children %) %let;op_m;%if;(op_m!="")%op_m;%else;1%end;%in; %define;relations_tree(z1) %reset_count; href="%prefix;spouse=on;m=RLM;image=%evar.image;;%nn; %foreach;witness; %incr_count;i%count;=%witness.index;;%nn; t%count;=[marriage event];%nn; %incr_count;i%count;=z1;%nn; %end; %incr_count;i%count;=%index;;%nn; t%count;=%if;(sex=0)[him/her]0%elseif;(sex=1)[him/her]1%else;0%end;%nn; %if;browsing_with_sosa_ref; %incr_count;i%count;=%sosa_ref.index;;t%count;=sosa_1;%nn; %end; " title="[*relations tree]" %end; %define;list_witness_of_kind(kindx) %reset_count; %foreach;event_witness; %if;(event_witness_kind = [kindx]0) %incr_count; %end; %end; %let;k_cnt;%count;%in; %if;(k_cnt>0) %if;(k_cnt=1)[*kindx]0%else;[*kindx]1%end;[:]%sp; %end; %reset_count %foreach;event_witness; %if;(event_witness_kind = [kindx]0) %incr_count; %apply;short_display_person("event_witness") %if;(count=k_cnt). %else; %if;(count=k_cnt-1)%sp;[and]%sp;%else;,%sp;%end; %end; %end; %end; %end; %define;in_full(ccc,maj) %if;(maj=1)%apply;capitalize%with;%apply;nth%with;[n (number)]%and;ccc%end;%end; %else;%apply;nth%with;[n (number)]%and;ccc%end; %end; %end; %( Copie des fonctions qui se trouvent dans perso.txt dont la SEULE modification est que la phrase NE commence PAS par une majuscule. %) %define;loc_married_to(sexx, date) %if;(sexx = 0 or sexx = 2) %if;are_married;[married%t to:::date]0%nn; %elseif;are_not_married;[relationship%t to:::date]0%nn; %elseif;are_engaged;[engaged%t to:::date]0%nn; %elseif;is_no_sexes_check;[relationship%t to:::date]0%nn; %elseif;is_no_mention;date [with]%nn; %end; %else; %if;are_married;[married%t to:::date]1%nn; %elseif;are_not_married;[relationship%t to:::date]1%nn; %elseif;are_engaged;[engaged%t to:::date]1%nn; %elseif;is_no_sexes_check;[relationship%t to:::date]1%nn; %elseif;is_no_mention;date [with]%nn; %end; %end; %end; %define;loc_long_married(xx) %apply;loc_married_to%with;%xx.sex%and; %if;(on_marriage_date = "") %else; %on_marriage_date; %if;wedding_birthday; ([happy birthday to them!])%end; %end; %end; %end; %( ATTENTION: on n'utilise pas max_desc_level parce que c'est extremement gourmand sur les gros arbre puisqu'on calcule toute la descendance. Or on n'a besoin de seulement savoir s'il y a des arrière petits enfant, d'où le code ci-dessous : 1 si on a des enfants 2 si on a des petits enfants 3 si on a des arrières petits endants %) %reset_count; %if;has_children; %incr_count; %foreach;family; %foreach;child; %foreach;family; %if;child.has_children; %if;(count<2) %incr_count; %end; %foreach;child; %foreach;family; %if;child.has_children; %if;(count<3) %incr_count; %end; %end; %end; %end; %end; %end; %end; %end; %end; %if;has_families; %foreach;family %reset_count2; %if;(are_married) %incr_count2; %end %end;
%if;(not cancel_links) %else; %end; | %end; %apply;long_married_f("self", "UPPER")%sp; %apply;display_horizontal("spouse") %if;spouse.has_parents; ([parents][:] %apply;short_display_person_f("spouse.father") &%sp; %apply;short_display_person_f("spouse.mother"))%nn; %end; %nn; %if;has_witnesses; ([witness/witnesses]w[:] %foreach;witness; %if;not is_first;, %end; %apply;short_display_person("witness") %end;)%nn; %end;%nn; %if;((wizard or friend or bvar.no_note_for_visitor="" or bvar.no_note_for_visitor="no") and has_comment)%nn; %count;%nn; %end; %if;are_divorced;, [divorced]0%divorce_date;%end; %if;are_separated;, [separated]0%end; %if;spouse.has_image; |