%if;(evar.t = "T")%doctype_transitional;%else;%doctype;%end;
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <!-- $Id: anctree.txt,v 5.8 2007/01/19 01:53:16 ddr Exp $ -->
  <!-- Copyright (c) 1998-2007 INRIA -->
  <!-- Modified mickroue(a)yahoo.fr 20121129 templ=templm -->
  <title>%nn;
    %if;(evar.t = "A")[*male line/female line]0%nn;
    %elseif;(evar.t = "C")[*male line/female line]1%nn;
    %else[*tree]%end;
    %if;(evar.t = "A" or evar.t = "C"):%sp;
      %if;(public_name != "")%public_name;%else;%first_name;%end;
      %if;(qualifier != "") %qualifier;%end; %surname;
    %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;
  %base_header;
</head>

%define;symbol(xx)
  %if;(evar.cgl != "on")
      <span %if;(xx.has_sosa)class="color_sosa"%end;>%if;xx.has_siblings;&diams;%else;&loz;%end;</span>
  %else;
    |
  %end;
%end;

%define;a_tree_line()
  %if;(not is_first)
    <tr>
    %foreach;cell;
      %if;(not is_first)
        <td colspan="1" align="center"><tt>&nbsp;</tt></td>
      %end;
      <td colspan="%cell.colspan;" align="center">%nn;
        %if;(cell.is_empty or cell.is_top)<tt>&nbsp;</tt>%else;|%end;
      </td>
    %end;
    </tr>
  %end;
  <tr>
  %foreach;cell;
    %if;(not is_first)
      <td colspan="1" align="center"><tt>&nbsp;</tt></td>
    %end;
    <td colspan="%cell.colspan;" align="center">%nn;
    %if;(cell.is_empty)<tt>&nbsp;</tt>%nn;
    %else;
      %if;(evar.bd != "" and evar.bd > 0 or evar.color != "")%nl;
        <table style="border:%evar.bd;"><tr>
        <td align="center"%nn;
         %if;(evar.color != "") class="%evar.color;"%end;>%nn;
      %end;
      %if;(evar.cgl = "on")%cell.person;
      %else;
        <a href="%prefix;%cell.person.access;">%cell.person;</a>%nn;
      %end;
      %cell.person.title;%cell.person.dates;
      %if;(evar.bd != "" and evar.bd > 0 or evar.color != "")
        </td>
        </tr></table>
      %end;
      %if;(evar.image = "on" and cell.person.has_image)
        <br%/>
        <table border="0" align="center"><tr align="left">
        <td>%nn;
        %if;(evar.cgl != "on")<a href="%cell.person.image_html_url;">%end;
        <img%sp;
        src="%cell.person.image_url;"%cell.person.image_small_size;%sp;
         border="0" alt="[image/images]0"%/>%nn;
        %if;(evar.cgl != "on")</a>%end;</td>%nl;
        </tr></table>
      %end;
    %end;
    </td>
  %end;
  </tr>
  %if;(not is_last)
    <tr>
    %foreach;cell;
      %if;(not is_first)
        <td colspan="1" align="center">%nn;
        %if;cell.is_right;
          %if;(evar.marriage = "on" and cell.family.marriage_date.year != "")
            <i style="font-size:80%%">%nn;
            &amp;%cell.family.marriage_date.year;</i>
          %else;<tt>&nbsp;</tt>%end;
        %else;<tt>&nbsp;</tt>%end;
        </td>
      %end;
      <td colspan="%cell.colspan;" align="center">%nn;
      %if;cell.is_empty;<tt>&nbsp;</tt>%nn;
      %elseif;(evar.cgl = "on")|%nn;
      %else;
        <a style="text-decoration:none" href="%prefix_base;%cell.person.access;%nn;
        %if;(evar.lang != "");lang=%evar.lang;%end;;%nn;
        %foreach;env_binding;
          %if;(env.key = "" or env.key = "p" or env.key = "n" or env.key = "oc" or env.key = "i")
          %else;%env.key;=%env.val;;%nn;
          %end;
        %end;">%nn;
        %apply;symbol("cell.person")</a>%nn;
      %end;
      </td>
    %end;
    </tr>
    <tr>
    %foreach;cell;
      %if;(not is_first)
        <td colspan="1" align="center">%nn;
        %if;(cell.is_right)<hr class="full"%/>%nn;
        %else;<tt>&nbsp;</tt>%end;
        </td>
      %end;
      <td colspan="%cell.colspan;" align="%nn;
         %if;cell.is_left;%right;
         %elseif;cell.is_right;%left;
         %else;center%end;">%nn;
      %if;cell.is_empty;<tt>&nbsp;</tt>%nn;
      %elseif;cell.is_left;<hr class="%right;"%/>%nn;
      %elseif;cell.is_right;<hr class="%left;"%/>%nn;
      %else;|%end;
      </td>
    %end;
    </tr>
  %end;
%end;

%define;male_line(xx, nn)
  %if;(nn > 0)
    %if;(xx.has_parents)%apply;male_line("xx.father", nn - 1)%end;
    <a href="%prefix;%xx.access">%xx;</a>%xx.title;%xx.dates;
    %if;("xx" != "self")<br%/>|<br%/>%end;
  %end;%nl;
%end;

%define;female_line(xx, nn)
  %if;(nn > 0)
    %if;(xx.has_parents)%apply;female_line("xx.mother", nn - 1)%end;
    <a href="%prefix;%xx.access">%xx;</a>%xx.title;%xx.dates;
    %if;("xx" != "self")<br%/>|<br%/>%end;
  %end;%nl;
%end;

%define;tree(xx)
  <table summary="tree" border="%border;" cellspacing="0" cellpadding="0" width="100%%">
  %foreach;ancestor_tree_line(xx)
    %apply;a_tree_line()
  %end;
  </table>
%end;

%define;url(z1,z2)
  %apply;lazy_print("z1=z2;")
  %foreach;env_binding;
    %if;(env.key="z1")%lazy_force;%else;%env.key;=%env.val;;%end;
  %end;
  %if;(not lazy_printed)
    z1=z2;
  %end;
%end;

<body%body_prop; id="anctree">
%message_to_wizard;

%if;not cancel_links;
  <div class="menu2">
    %if;(bvar.no_image_for_visitor != "yes" or friend or wizard)
      %if;(evar.image="on")
        <a style="text-decoration:line-through;"
           href="%prefix_base;%apply;url("image","")"
           title="- [image/images]1">img</a>
      %else;
        <a href="%prefix_base;%apply;url("image","on")"
           title="+ [image/images]1">img</a>
      %end;
    %end;
    <a style="text-decoration:line-through;" href="%prefix_base;%apply;url("cgl","on")"
       title="[cancel GeneWeb links]">@</a>
    %if;has_referer;
      <a href="%referer;" title="[back]">&lt;&lt;</a>
    %end;
      <a href="%prefix;" title="[visualize/show/hide/summary]3">^^</a>
  </div>
%end;

%if;(evar.t = "T" and not cancel_links)%nn;
  <div style="text-align:%right;">
    <br%/>
    <a href="%prefix;m=A;t=T;v=%evar.v;;%access;;dag=on;notab=on;slices=on">
      <tt>//</tt>
    </a>
  </div>
%end;

%if;(evar.t = "T")
  %apply;tree%with;
    %if;(bvar.max_anc_tree = "")%apply;min(evar.v, max_anc_level, 7)
    %else;%apply;min(evar.v, max_anc_level, bvar.max_anc_tree)
    %end;
  %end;
%elseif;(evar.t = "A")
    <div style="text-align: center">%apply;male_line("self", evar.v)</div>
%elseif;(evar.t = "C")
    <div style="text-align: center">%apply;female_line("self", evar.v) </div>
%end;
  %base_trailer;
  %copyright;
</body>
</html>
