%let;l_fs;%if;(evar.fs != "")%evar.fs;%else;9%end;%in; %let;l_wi;%if;(evar.wi != "")%evar.wi;%else;980%end;%in; %let;l_he;%if;(evar.he != "")%evar.he;%else;600%end;%in; %let;l_sosa_ref;%if;(evar.sosa = "on" and browsing_with_sosa_ref and has_sosa)on%end;%in; %let;l_prefix;%prefix;t=h7;image=%evar.image;;siblings=%evar.siblings;;sosa=%evar.sosa;;fs=%l_fs;;wi=%l_wi;;he=%l_he;;bp=%evar.bp;;%in; %define;tools()
[*tools]0 %hidden; %if;(evar.p != "" or evar.n != "" or evar.oc != "") %end; %if;(evar.i != "") %end;

%if;(bvar.no_image_for_visitor != "yes" or friend or wizard) %end;

%end; %define;somebody() %if;(evar.image!="off" and has_image) %end; %if;(evar.sosa = "on" and browsing_with_sosa_ref and has_sosa) · %sosa; · %end; %first_name;%dates; %if;(evar.bp = "on" and has_birth_place)%birth_place;%end; %end;
%foreach;ancestor_level(7)
%if;(evar.image!="off" and level > 1 and level < 5) %foreach;ancestor; %if;ancestor.has_image;

%end; %end; %end; %if;(level = 1)
%if;(evar.siblings = "on" and has_parents) %foreach;father.child; %apply;somebody() %end; %else; %apply;somebody() %end;
%else; %foreach;ancestor; = %if;(l_sosa_ref = "on")%ancestor.sosa;%else;%ancestor.same;%end; = %else; > %if;(l_sosa_ref = "on") · %ancestor.sosa; · %elseif;(evar.sosa = "on") · %ancestor.anc_sosa; %if;(browsing_with_sosa_ref and ancestor.has_sosa) ~ %ancestor.sosa;%end; %sp;· %end; %ancestor; %ancestor.dates; %if;(evar.bp = "on" and ancestor.has_birth_place) %ancestor.birth_place; %end; %end; %if;(level < 6)
%end; %end; %end;
%end;
%if;(not cancel_links and evar.templ!="templm") %apply;tools() %end;