%doctype;
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <!-- $Id: anclist.txt,v 7.00 2015/07/05 13:23:34 mr Exp $ -->
  %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;l_max_dates;%if;(bvar.max_dates != "")%bvar.max_dates;%else;200%end;%in;
%define;tothegen(xx)
  [*to the %s generation:::xx]%nn;
%end;
%define;togen1(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;togen()
  <p>
    %if;(evar.only != "on")
      %apply;togen1(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;tools()
  %let;l_on;onclick="this.focus()" onkeydown="if (event.keyCode == 13) javascript:document.tools.submit();"%in;
  <hr style="clear:both;" %/>
  <form id="tools" name="tools" method="get" action="%action;">
    <fieldset>
      <legend>[*tools]0 <input type="submit" value="Ok"%/></legend>
      %hidden;
      <input type="hidden" name="m" value="A"%/>
      <input type="hidden" name="t" value="%evar.t;"%/>
      %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;
      <p>
        %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)4%else;%l_emaxv;%end;%in;
        <input type="hidden" name="maxv" value="%evar.maxv;"%/>
        <label>[*generation/generations]0 <code>(X)</code> <input id="v" name="v" class="number" size="1" value="%l_v;"
          autocomplete="off" title="[generation/generations]0 (X)" accesskey="X" %/> / %l_maxv;</label>
        %if;(evar.fam7 != "on" and evar.t != "H" and evar.t != "L")
          <label><input type="checkbox" name="only" value="on" %l_on;
            %if;(evar.only = "on") checked="checked"%end;%/>[only the generation selected]</label>
        %end;
      </p>
      <p>
        <label><input type="checkbox" name="cgl" value="on" %l_on;
               %if;(evar.cgl = "on") checked="checked"%end;%/>[cancel GeneWeb links]</label>
        %if;(evar.t = "H")
          <label><input type="checkbox" name="marriage" value="on" %l_on;
                 %if;(evar.marriage = "on") checked="checked"%end;%/>[date of marriage]</label>
          <label><input type="checkbox" name="sosa" value="on" %l_on;
                 %if;(evar.sosa = "on") checked="checked"%end;%/>[n° Sosa]</label>
          <label><input type="checkbox" name="xy" value="on" %l_on;
                 %if;(evar.xy = "on") checked="checked"%end;%/>x & y</label>
          <label><input type="checkbox" name="siblings" value="on" %l_on;
                 %if;(evar.siblings = "on") checked="checked"%end;%/>[siblings]</label>
          <label><input type="checkbox" name="timeline" value="on" %l_on;
                 %if;(evar.timeline = "on") checked="checked"%end;%/>[time line]</label>
          <label>[generation/generations]0<input name="gen" class="number" value="%evar.gen;"
                 size="1" placeholder="40" %/>(< 50 [years old])</label>
        %end;
      </p>
      %if;(evar.fam7 = "on")
        <fieldset><legend>7 [family/families]1</legend>
          <input type="hidden" name="fam7" value="on"%/>
          <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>
          <legend>[*list/list (ancestors)]0</legend>
          <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="bmdm" %l_on;
                  %if;(evar.tf1 = "bmdm") checked="checked"%end;%/>[year/month/day]1</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="mm" %l_on;
                  %if;(evar.tf1 = "mm") 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>
  </form>
%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">
    <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")
  %include.anclist_place;
%elseif;(evar.t = "F" and evar.tf1 = "surn")
  %include.anclist_surn;
%elseif;(evar.t = "F" and evar.tf1 = "tag")
  %include.ancdes_tag;
%elseif;(evar.t = "F" and evar.tf1 = "bmdm")
  %include.ancdes_bmdm;
%elseif;(evar.t = "F" and evar.tf1 = "mm")
  %include.ancdes_mm;
%elseif;(evar.t = "F" and evar.tf1 = "aad")
  %include.ancdes_aad;
%elseif;(evar.t = "F" and evar.tf1 = "aax")
  %include.ancdes_aax;
%elseif;(evar.t = "F" and evar.tf1 = "nxd")
  %include.ancdes_nxd;
%elseif;(evar.t = "F" and evar.tf1 = "afm")
  %include.ancdes_afm;
%elseif;(evar.t = "F" and evar.tf1 = "cal")
  %include.ancdes_cal;
%elseif;(evar.t ="F" and evar.tf1 = "ars")
  %include.ancdes_ars;
%elseif;(evar.t = "F" and evar.tf1 = "sb")
  %include.anclist_sb;
%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=tag;">tag</a></li>
    <li><a href="%l_url;;tf1=cal;">[*calendar/calendars]0</a></li>
    <li><a href="%l_url;;tf1=bmdm;">[*year/month/day]1</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=mm;">[*year/month/day]1 [birth] = [year/month/day]1 [death] ?</a></li>
  </ul>
%elseif;(evar.t = "L")
  %( by list %)
  %apply;togen()
  %apply;ancestors_by_list("self",l_v)
%elseif;(evar.t = "H")
  %include.anclist_hrztl;
%end;
%if;(evar.tf1 != "csv" and evar.tf1 != "tag")
  %if;not cancel_links;
    %apply;tools()
    %base_trailer;
    %copyright;
  %end;
%end;
</body>
</html>
