[*revision history]

%include;css %include;hed

# %person;%nn; %if;(evar.t = "SUM"), [revision history] %else;
[difference between the two revisions] %end;

%if;(not cancel_links)
%if;(referer != "") %end;
%end; %define;no_diff(xx) [*insufficient revision history for %s:::xx] %end; %define;print_summary()

%hidden;

%if;(history_len >= 2)
%else; %apply;no_diff(person) %end;

[*compare] | [*date/dates]0 | [*wizard/wizards/friend/friends/exterior]0
--- | --- | ---
%foreach;history_line;
| %apply;transl_date%with;%date;%end; | %wizard;
%end;

%end; %define;empty()
%end; %define;print_diff_person() %if;(before.first_name!=after.first_name or before.surname!=after.surname or before.occ!=after.occ)
[*name] %before.first_name;.%before.occ; %before.surname; %after.first_name;.%after.occ; %after.surname;
%end; %if;(before.sex!=after.sex)
[*sex] %before.sex; %after.sex;
%end; %if;(before.public_name!=after.public_name)
[*public name] %before.public_name; %after.public_name;
%end; %if;(before.image!=after.image)
[*image/images]0 %before.image; %after.image;
%end; %if;(before.qualifiers!=after.qualifiers)
[*qualifier] %before.qualifiers; %after.qualifiers;
%end; %if;(before.aliases!=after.aliases)
[*alias] %before.aliases; %after.aliases;
%end; %if;(before.first_names_aliases!=after.first_names_aliases)
[*first name alias] %before.first_names_aliases; %after.first_names_aliases;
%end; %if;(before.surnames_aliases!=after.surnames_aliases)
[*surname alias] %before.surnames_aliases; %after.surnames_aliases;
%end; %if;(before.occupation!=after.occupation)
[*occupation/occupations]1 %before.occupation; %after.occupation;
%end; %foreach;pevent; %if;(before.pevent_name!=after.pevent_name or before.pevent_date!=after.pevent_date or before.pevent_place!=after.pevent_place or before.pevent_note!=after.pevent_note or before.pevent_src!=after.pevent_src or before.pevent_witness!=after.pevent_witness)
[*event/events]0 %before.pevent_name; %after.pevent_name;
%if;(before.pevent_date!=after.pevent_date)
[*date/dates]0 %before.pevent_date; %after.pevent_date;
%end; %if;(before.pevent_place!=after.pevent_place)
[*place] %before.pevent_place; %after.pevent_place;
%end; %if;(before.pevent_note!=after.pevent_note)
[*note/notes]0 %before.pevent_note; %after.pevent_note;
%end; %if;(before.pevent_src!=after.pevent_src)
[*source/sources]0 %before.pevent_src; %after.pevent_src;
%end; %if;(before.pevent_witness!=after.pevent_witness)
[*witness/witnesses]1 %before.pevent_witness; %after.pevent_witness;
%end; %apply;empty() %end; %end; %if;(before.relations!=after.relations)
[*relation/relations]1 %before.relations; %after.relations;
%end; %if;(before.titles!=after.titles) %apply;empty()
[*title/titles]1 %before.titles; %after.titles;
%end; %if;(before.psources!=after.psources)
[*person source] %before.psources; %after.psources;
%end; %if;(before.notes!=after.notes)
[*note/notes]1 %before.notes; %after.notes;
%end; %if;(before.access!=after.access) %apply;empty()
[*access] %before.access; %after.access;
%end; %end; %define;print_diff_family() %foreach;family; %foreach;fevent; %if;(before.fevent_name!=after.fevent_name or before.fevent_date!=after.fevent_date or before.fevent_place!=after.fevent_place or before.fevent_note!=after.fevent_note or before.fevent_src!=after.fevent_src or before.fevent_witness!=after.fevent_witness)
[*event/events]0 %before.fevent_name;: %before.spouse; %after.fevent_name;: %after.spouse;
%if;(before.fevent_date!=after.fevent_date)
[*date/dates]0 %before.fevent_date; %after.fevent_date;
%end; %if;(before.fevent_place!=after.fevent_place)
[*place] %before.fevent_place; %after.fevent_place;
%end; %if;(before.fevent_note!=after.fevent_note)
[*note/notes]0 %before.fevent_note; %after.fevent_note;
%end; %if;(before.fevent_src!=after.fevent_src)
[*source/sources]0 %before.fevent_src; %after.fevent_src;
%end; %if;(before.fevent_witness!=after.fevent_witness)
[*witness/witnesses]1 %before.fevent_witness; %after.fevent_witness;
%end; %apply;empty() %end; %end; %if;(before.children!=after.children)
[*child/children]1 %before.children; %after.children;
%end; %apply;empty() %end; %end; %define;print_diff()
[previous/next diff]0 | %if;(evar.old-evar.new>1)%expr(evar.old-evar.new-1) [intermediate revisions not shown]%else;[revision history]%end; | %if;(evar.new!=0) [previous/next diff]1 %elseif;(evar.new=0)[last diff]%end;

[*revision of] | %apply;transl_date%with;%before.date;%end; | %apply;transl_date%with;%after.date;%end;
[*wizard/wizards/friend/friends/exterior]0 | %before.wizard; | %after.wizard;

## [*person/persons]0
%apply;print_diff_person() %if;(nb_families > 0)
## [*family/families]0
%apply;print_diff_family() %end;

%end; %if;(evar.t = "SUM") %apply;print_summary() %else; %apply;print_diff() %end; %base_trailer; %include;copyr
%include;js