%doctype;
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <!-- $Id: anclist.txt,v 5.4 2007/01/19 01:53:16 ddr Exp $ -->
  <!-- Copyright (c) 1998-2007 INRIA -->
  <!-- Modified mickroue(a)yahoo.fr 20140915 templ=templm -->
  %let;l_v0;%evar.v;%in;
  %let;l_v;%if;(bvar.max_anc_level = "")%l_v0;%elseif;(bvar.max_anc_level > l_v0)%l_v0;%else;%bvar.max_anc_level;%end;%in;
  <title>%nn;
    %first_name; %surname;
    %if;(evar.t = "F" and evar.tf1 = "csv") - CSV - 
    %elseif;(evar.t = "F" and evar.fam7 = "on") - 7 [*family/families]1 - 
    %elseif;(evar.t = "F" and evar.tf1 = "sb") - [*surnames branch] - 
    %elseif;(evar.t = "F" and evar.tf1 = "surn") - [*list eclair]0 - [surname/surnames]1 / [places] 
    %elseif;(evar.t = "F" and evar.tf1 = "place") - [*list eclair]0 - [places] 
    %elseif;(evar.t = "F" and evar.tf1 = "aad") - [*age at death] ([M/F]0, [M/F]1) 
    %elseif;(evar.t = "F" and evar.tf1 = "afm") - [*age] ([father/mother]0, [father/mother]1) 
    %else; - [*ancestors] - 
    %end;
  </title>
  <meta name="robots" content="none"%/>
  <meta name="format-detection" content="telephone=no"%/>
  <meta http-equiv="Content-Type" content="text/html; charset=%charset;"%/>
  <meta http-equiv="Content-Style-Type" content="text/css"%/>
  <link rel="shortcut icon" href="%image_prefix;/favicon_gwd.png"%/>
  %include.css;
  <script type="text/javascript">
    <!--
      var varZIndex = 1;
    //-->
  </script>
  %base_header;
</head>
%(<!-- Begin define --> %)
%let;birth_symbol;%if;(bvar.birth_symbol != "")%bvar.birth_symbol;%else;&deg;%end;%in;
%let;death_symbol;%if;(bvar.death_symbol != "")%bvar.death_symbol;%else;&dagger;%end;%in;
%let;marriage_symbol;&amp;%in;
%let;ref_index;%index;%in;
%let;ref_sex;%if(is_male)[him/her]0%elseif;(is_female)[him/her]1%else;0%end;%in;
%let;max_event;%if;(bvar.latest_event = "")100%else;%bvar.latest_event;%end;%in;
%define;tothegen(xx)
  [*to the %s generation:::xx]%nn;
%end;
%define;togen(xx)
  %if;(xx = 1)[*specify::generation/generations]0%nn;
  %elseif;(xx = 2)[*to the parents]%nn;
  %elseif;(xx = 3)[*to the grandparents]%nn;
  %elseif;(xx = 4)[*to the great-grandparents]%nn;
  %else;
    %apply;tothegen%with;
      %apply;nth([nth (generation)], xx)
    %end;
  %end;
%end;
%define;gen()
  <p>
    %if;(evar.only != "on")
      %apply;togen(l_v)
    %else;
      [*generation/generations]0 %l_v;
    %end;
  </p>
%end;
%define;ancestors_by_list(xx, nnn)
  %if;(xx.has_parents and nnn > 1)
    <ul>
    <li style="list-style-type:square"><a href="%prefix;
    %xx.father.access;">%xx.father;</a>%xx.father.title;%xx.father.dates;%nl;
    %apply;ancestors_by_list("xx.father", nnn - 1)</li>
    <li style="list-style-type:circle"><a href="%prefix;
    %xx.mother.access;">%xx.mother;</a>%xx.mother.title;%xx.mother.dates;%nl;
    %apply;ancestors_by_list("xx.mother", nnn - 1)</li>
    </ul>
  %end;
%end;
%define;ancestors_horizontally(pp, xx, ss1, ss2, ss3)
  %if;(xx > 0)
    %if;(pp.has_parents)
      %apply;ancestors_horizontally(
        "pp.father", xx - 1, "ss1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;",
        "ss1&nbsp;+--&nbsp;", "ss1&nbsp;|&nbsp;&nbsp;&nbsp;")
    %end;
    <tt>ss2</tt><a href="%prefix;%pp.access;">%pp;</a>%pp.title;%pp.dates;<br%/>
    %if;(pp.has_parents)
      %apply;ancestors_horizontally(
        "pp.mother", xx - 1, "ss3&nbsp;|&nbsp;&nbsp;&nbsp;",
        "ss3&nbsp;+--&nbsp;", "ss3&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
    %end;
  %end;
%end;
%(<!-- End define --> %)
<body%body_prop; id="anclist">
%message_to_wizard;
<h1>%nn;
  %if;(evar.tf1 != "csv")
    %apply;a_of_b%with;
      %if;(evar.fam7 = "on")7 [family/families]1%else;[*ancestors]%end;
    %and;
      %if;(not cancel_links)<a href="%prefix;%access;">%end;
        %if;(public_name != "")%public_name;%else;%first_name;%end;
        %if;(qualifier != "") <em>%qualifier;</em>%end;
        %sp;%surname;
        %if;(alias != "") <em>(%alias;)</em>%end;
      %if;(not cancel_links)</a>%end;
    %end;
      %sp;%dates;<br%/>
  %end;
  %if;(evar.t = "F" and evar.tf1 = "csv")
    %elseif;(evar.t = "F" and evar.tf1 = "place") - [*list eclair]0 - [places] 
    %elseif;(evar.t = "F" and evar.tf1 = "surn") - [*list eclair]0 - [surname/surnames]1 / [places] 
    %elseif;(evar.t = "F" and evar.tf1 = "sb") - [*surnames branch] - 
    %else;
  %end;
</h1>
%if;(cancel_links or evar.tf1 = "csv")
%else;
  <div class="menu2">
    %let;l_on;onclick="this.focus()" onkeydown="if (event.keyCode == 13) javascript:document.tools.submit();"%in;
    <form id="tools" name="tools" style="display:inline" method="get" action="%action;">
      <input type="hidden" name="m" value="A"%/>
      %if;(evar.p != "" or evar.n != "" or evar.oc != "")
        <input type="hidden" name="p" value="%evar.p;"%/>
        <input type="hidden" name="n" value="%evar.n;"%/>
        <input type="hidden" name="oc" value="%evar.oc;"%/>
      %end;
      %if;(evar.i != "")
        <input type="hidden" name="i" value="%evar.i;"%/>
      %end;
      <input type="hidden" name="t" value="%evar.t;"%/>
      <div><a href="#">[*tools]</a>
      <div class="s_menu">
        <fieldset>
          <label><input type="checkbox" name="cgl" value="on" %l_on;
                 %if;(evar.cgl = "on") checked="checked"%end;%/>[cancel GeneWeb links]</label>
        </fieldset>
        %if;(evar.fam7 = "on")
          <input type="hidden" name="fam7" value="on"%/>
          <fieldset><legend>7 [family/families]1</legend>
            <label><input type="radio" name="tf1" value="fam73" %l_on;
                    %if;(evar.tf1 = "fam73") checked="checked"%end;%/>Χρόνος</label>
            <label><input type="radio" name="tf1" value="fam70" %l_on;
                    %if;(evar.tf1 = "fam70") checked="checked"%end;%/>[date/dates]0, [place]0</label>
          %if;(bvar.no_image_for_visitor != "yes" or friend or wizard)
            <label><input type="radio" name="tf1" value="fam71" %l_on;
                    %if;(evar.tf1 = "fam71") checked="checked"%end;%/>[image/images]1 ([long display])</label>
            <label><input type="radio" name="tf1" value="fam72" %l_on;
                    %if;(evar.tf1 = "fam72") checked="checked"%end;%/>[image/images]1 (onmousemove)</label>
          %end;
            <label><input type="checkbox" name="spouse" value="on" %l_on;
                   %if;(evar.spouse = "on") checked="checked"%end;%/>[spouse/spouses]1</label>
            <label><input type="checkbox" name="cousins" value="on" %l_on;
                   %if;(evar.cousins = "on") checked="checked"%end;%/>[cousins]</label>
          </fieldset>
        %end;
        %if;(evar.tf1 != "" and evar.fam7 != "on")
          <fieldset>
            <label><input type="radio" name="tf1" value="sb" %l_on;
                    %if;(evar.tf1 = "sb") checked="checked"%end;%/>[surnames branch]</label>
            <label><input type="radio" name="tf1" value="surn" %l_on;
                    %if;(evar.tf1 = "surn") checked="checked"%end;%/>[list eclair]0 - [surname/surnames]1 / [places]</label>
            <label><input type="radio" name="tf1" value="place" %l_on;
                    %if;(evar.tf1 = "place") checked="checked"%end;%/>[list eclair]0 - [places]</label>
          </fieldset>
          <fieldset>
            <legend>[*statistics]</legend>
            <label><input type="radio" name="tf1" value="cal" %l_on;
                    %if;(evar.tf1 = "cal") checked="checked"%end;%/>[calendar/calendars]0</label>
            <label><input type="radio" name="tf1" value="moon" %l_on;
                    %if;(evar.tf1 = "moon") checked="checked"%end;%/>[moon age/new moon/first quarter/full moon/last quarter]0</label>
            <label><input type="radio" name="tf1" value="afm" %l_on;
                    %if;(evar.tf1 = "afm") checked="checked"%end;%/>[age] ([father/mother]0, [father/mother]1)</label>
            <label><input type="radio" name="tf1" value="aax" %l_on;
                    %if;(evar.tf1 = "aax") checked="checked"%end;%/>[age at %s birth date:::x]</label>
            <label><input type="radio" name="tf1" value="nxd" %l_on;
                    %if;(evar.tf1 = "nxd") checked="checked"%end;%/>[year/month/day]0 [death] - [year/month/day]0 [death] x</label>
            <label><input type="radio" name="tf1" value="aad" %l_on;
                    %if;(evar.tf1 = "aad") checked="checked"%end;%/>[age at death]</label>
            <label><input type="radio" name="tf1" value="months" %l_on;
                    %if;(evar.tf1 = "months") checked="checked"%end;%/>[year/month/day]1 [birth] = [year/month/day]1 [death] ?</label>
            <label><input type="radio" name="tf1" value="ars" %l_on;
                    %if;(evar.tf1 = "ars") checked="checked"%end;%/>Αἰθήρ</label>
          </fieldset>
        %end;
        <fieldset><legend>[*generation/generations]0</legend>
        <div class="v">
          %let;l_bmaxv;%if;(bvar.max_anc_level = "")%evar.maxv;%else;%bvar.max_anc_level;%end;%in;
          %let;l_emaxv;%if;(evar.maxv = "")%l_bmaxv;%elseif;(evar.maxv < l_bmaxv)%evar.maxv;%else;%l_bmaxv;%end;%in;
          %let;l_maxv;%if;((evar.fam7 = "on") and l_v > 4)5%else;%expr(l_emaxv + 1)%end;%in;
          <input type="hidden" name="maxv" value="%evar.maxv;"%/>
          %for;i;2;l_maxv;
          <label>%i;<br%/>
            <input type="radio" name="v" value="%i;" %l_on;%if;(l_v = i) checked="checked"%end;%/>
          </label>
          %end;
        </div>
        %if;(evar.fam7 != "on" and evar.t != "H" and evar.t != "L")
          <label style="clear:both;">
            <input type="checkbox" name="only" value="on" %l_on;
            %if;(evar.only = "on") checked="checked"%end;%/>[only the generation selected]</label>
        %end;
        </fieldset>
        %hidden;
        <div class="ok"><input type="submit" value="ok"%/></div>
      </div>
      </div>
    </form>
    <a href="%prefix;" title="[visualize/show/hide/summary]3">^^</a>
  </div>
%end;
%if;(evar.t = "F" and evar.fam7 = "on" and (evar.tf1 = "fam71" or evar.tf1 = "fam72"))
  %include.anclist_fam7_img;
%elseif;(evar.t = "F" and evar.fam7 = "on" and evar.tf1 = "fam70")
  %include.anclist_fam7_table;
%elseif;(evar.t = "F" and evar.fam7 = "on" and evar.tf1 = "fam73")
  %include.anclist_fam7_timeline;
%elseif;(wizard and evar.t = "F" and evar.tf1 = "csv")
  %include.anclist_csv;
%elseif;(evar.t = "F" and evar.tf1 = "place")
  %( list eclair tf1 = place %)
  %apply;gen()
  %empty_sorted_list;
  %reset_count;
  %foreach;ancestor_level(l_v)
    %if;(level > 1 and (evar.only != "on" or level = l_v))
      %foreach;ancestor;
        %if;(ancestor.same = "")
          %if;(ancestor.has_birth_place)
            %apply;add_in_sorted_list(ancestor.birth_place,ancestor.birth_date.year,ancestor.index,ancestor.anc_sosa)
          %elseif;(ancestor.has_baptism_place)
            %apply;add_in_sorted_list(ancestor.baptism_place,ancestor.baptism_date.year,ancestor.index,ancestor.anc_sosa)
          %end;
          %if;(ancestor.has_death_place)
            %apply;add_in_sorted_list(ancestor.death_place,ancestor.death_date.year,ancestor.index,ancestor.anc_sosa)
          %elseif;(ancestor.has_burial_place)
            %apply;add_in_sorted_list(ancestor.burial_place,ancestor.burial_date.year,ancestor.index,ancestor.anc_sosa)
          %end;
          %foreach;ancestor.family;
            %if;(ancestor.spouse.index = spouse.index and marriage_place != "")
              %apply;add_in_sorted_list(marriage_place,marriage_date.year,ancestor.index,ancestor.anc_sosa)
            %end;
          %end;
        %end;
      %end;
    %end;
  %end;
  <p>[place];[date begin];([nb events]);[date end]
  %foreach;sorted_list_item;
    %if;(prev_item.1 != item.1)
      %reset_count;%incr_count;
      <br%/>%item.1;;%item.2;
        ;<a href="%prefix;spouse=on;m=RLM;%nn;
            i%count;=%item.3;;t%count;=%item.4;;%nn;
    %end;
    %if;(prev_item.1 = item.1)
      %incr_count;
      i%count;=%item.3;;t%count;=%item.4;;%nn;
    %end;
    %if;(next_item.1 != item.1)
      %incr_count;
      i%count;=%index;;t%count;=%item.1;
      %if;(max_event >= count)">(%expr(count - 1))</a>;%item.2;
      %else;" style="display:none;"></a><em>(%expr(count - 1))</em>;%item.2;
      %end;
    %end;
  %end;
  </p>
%elseif;(evar.t = "F" and evar.tf1 = "surn")
  %( list eclair tf1 = surn %)
  %apply;gen()
  %empty_sorted_list;
  %reset_count;
  %foreach;ancestor_level(l_v)
    %if;(level > 1 and (evar.only != "on" or level = l_v))
      %foreach;ancestor;
        %if;(ancestor.same = "")
          %if;(ancestor.has_birth_place)
            %apply;add_in_sorted_list%with;
              %ancestor.surname; -- %ancestor.birth_place;%and;
              %ancestor.birth_date.year;%and;
              %ancestor.index;%and;
              %ancestor.anc_sosa%end;
          %elseif;(ancestor.has_baptism_place)
            %apply;add_in_sorted_list%with;
              %ancestor.surname; -- %ancestor.baptism_place;%and;
              %ancestor.baptism_date.year;%and;
              %ancestor.index;%and;
              %ancestor.anc_sosa%end;
          %end;
          %if;(ancestor.has_death_place)
            %apply;add_in_sorted_list%with;
              %ancestor.surname; -- %ancestor.death_place;%and;
              %ancestor.death_date.year;%and;
              %ancestor.index;%and;
              %ancestor.anc_sosa%end;
          %elseif;(ancestor.has_burial_place)
            %apply;add_in_sorted_list%with;
              %ancestor.surname; -- %ancestor.burial_place;%and;
              %ancestor.burial_date.year;%and;
              %ancestor.index;%and;
              %ancestor.anc_sosa%end;
          %end;
          %foreach;ancestor.family;
            %if;(ancestor.spouse.index = spouse.index and marriage_place != "")
              %apply;add_in_sorted_list%with;
                %ancestor.surname; -- %marriage_place;%and;
                %marriage_date.year;%and;
                %ancestor.index;%and;
                %ancestor.anc_sosa%end;
            %end;
          %end;
        %end;
      %end;
    %end;
  %end;
  <p>[surname/surnames]0 -- [place];[date begin];([nb events]);[date end]
  %foreach;sorted_list_item;
    %if;(prev_item.1 != item.1)
      %reset_count;%incr_count;
      <br%/>%item.1;;%item.2;
        ;<a href="%prefix;spouse=on;m=RLM;%nn;
            i%count;=%item.3;;t%count;=%item.4;;%nn;
    %end;
    %if;(prev_item.1 = item.1)
        %incr_count;
        i%count;=%item.3;;t%count;=%item.4;;%nn;
    %end;
    %if;(next_item.1 != item.1)
      %incr_count;
      i%count;=%index;;t%count;=%item.1;
      %if;(max_event >= count)">(%expr(count - 1))</a>;%item.2;
      %else;" style="display:none;"></a><em>(%expr(count - 1))</em>;%item.2;
      %end;
    %end;
  %end;
  </p>
%elseif;(evar.t = "F" and evar.tf1 = "moon")
  %if;(cancel_links or bvar.moon != "yes")
    %include.anclist_mooncgl;
  %else;
    %include.anclist_moon;
  %end;
%elseif;(evar.t = "F" and evar.tf1 = "months")
  %include.anclist_months;
%elseif;(evar.t = "F" and evar.tf1 = "aad")
  %include.anclist_aad;
%elseif;(evar.t = "F" and evar.tf1 = "aax")
  %include.anclist_aax;
%elseif;(evar.t = "F" and evar.tf1 = "nxd")
  %include.anclist_nxd;
%elseif;(evar.t = "F" and evar.tf1 = "afm")
  %include.anclist_afm;
%elseif;(evar.t = "F" and evar.tf1 = "cal")
  %include.anclist_cal;
%elseif;(evar.t ="F" and evar.tf1 = "ars")
  %include.anclist_ars;
%elseif;(evar.t = "F" and evar.tf1 = "sb")
  %( surnames branch %)
  %apply;togen(l_v).
  <ul>
  %foreach;ancestor_surname(l_v)
    <li>%nn;
    %if;(evar.cgl != "on")<a href="%prefix;m=DAG;%ancestor.sosa_access;">%nn;
    %ancestor.surname_end;%ancestor.surname_begin;</a>%nn;
    %else;%ancestor.surname_end;%ancestor.surname_begin;%end;
    %if;(ancestor.nb_times > 1) (%ancestor.nb_times;)%end;
    ; %ancestor.place;
    ; %ancestor.date_begin.year;-%ancestor.date_end.year;</li>
  %end;
  </ul>
%elseif;(evar.t = "F")
  %( list tf1 = ? %)
  %let;l_url;%prefix;m=A;t=F;i=%index;;v=%l_v;;only=%evar.only;;maxv=%evar.maxv;%in;
  <ul>
    %if;(wizard)
      <li><a href="%l_url;;tf1=csv;;cousins=%evar.cousins;"
          >CSV</a></li>
    %end;
    <li><a href="%l_url;;fam7=on;tf1=fam70;cousins=%evar.cousins;">7 [family/families]1</a></li>
    <li><a href="%l_url;;tf1=sb;">[*surnames branch]</a></li>
    <li><a href="%l_url;;tf1=surn;">[*list eclair]0 - [surname/surnames]1 / [places]</a></li>
    <li><a href="%l_url;;tf1=place;">[*list eclair]0 - [places]</a></li>
    <li><a href="%l_url;;tf1=cal;">[*calendar/calendars]0</a></li>
    <li><a href="%l_url;;tf1=moon;">[*moon age/new moon/first quarter/full moon/last quarter]0</a></li>
    <li><a href="%l_url;;tf1=afm;">[*age] ([father/mother]0, [father/mother]1)</a></li>
    <li><a href="%l_url;;tf1=aad;">[*age at death] ([M/F]0, [M/F]1)</a></li>
    <li><a href="%l_url;;tf1=months;">[year/month/day]1 [birth] = [year/month/day]1 [death] ?</a></li>
  </ul>
%elseif;(evar.t = "L")
  %( by list %)
  <p>%apply;togen(l_v).</p>
  %apply;ancestors_by_list("self",l_v)
%elseif;(evar.t = "H")
  %( horizontally %)
  <p>%apply;togen(l_v).</p>
  <table><tr><td style="white-space:nowrap">
  %apply;ancestors_horizontally("self",l_v,"   ","-- ","   ")
  </tr></tr></table>
%end;
%if;(evar.tf1 != "csv")
  %base_trailer;
  %copyright;
%end;
</body>
</html>
