  <!-- $Id: modules/arbre_h7.txt v7.1 04/03/2023 10:39:01 $ -->
  <link type="text/css" href="%static_path;modules/arbre_h7%bvar.css;.css" media="all" rel="stylesheet" %/>
  %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;m=A;t=T;t1=h7;image=%evar.image;;siblings=%evar.siblings;;%nn;
        sosa=%evar.sosa;;fs=%l_fs;;wi=%l_wi;;he=%l_he;;bp=%evar.bp;;nav=%evar.nav;;%in;
  <style id="s" type="text/css">
    #htree{font-size:%l_fs;px;width:%l_wi;px;height:%l_he;px}
  </style>
  <style type="text/css">
    #tools p input{text-align:right;width:40px;}
  </style>
  <script type="text/javascript">
  <!--
  
    function over1(xx)
    { 
     document.getElementById(xx).style.outline="#00F solid 4px";
     return false;
    }
    function out1(xx)
    {
     document.getElementById(xx).style.outline="none";
     return false;
    }
  
    function ob()
    {
      var a = new Array(3)
      for (var i=0; i < a.length; ++i)
      {
        a[i] = document.getElementById("e" + i).value;
      }
      document.getElementById("s").outerHTML = '\
      <style id="s" type="text\/css">\n\
        @page{size:'+a[1]+'px '+a[2]+'px;}\n\
        #htree{position:relative;font-size:'+a[0]+'px;width:'+a[1]+'px;height:'+a[2]+'px;margin:3em}\n\
      <\/style>';
    }
   -->
  </script>
</head>
%if;(not cancel_links)
  <div class="col-12 d-flex justify-content-end">
    %let;evsib;%if;(evar.siblings!="")%evar.siblings;%end;%in;
    %let;evsosa;%if;(evar.sosa!="")%evar.sosa;%end;%in;
    %let;evbp;%if;(evar.bp!="")%evar.bp;%end;%in;
    %let;evnav;%if;(evar.nav!="")%evar.nav;%end;%in;
    %( repenser la nav en cliquant sur le fond de cellule !! %)
    <div class="text-right mr-3">
      <a href="%prefix_base_password;%if;(evar.image!="off")image=off;%end;%nn;
        %foreach;env_binding;%if;(env.key!="image")%env.key=%env.val;;%end;%end;"
        class="btn btn-outline-secondary btn-sm border-0 px-0"
        title="%if;(evar.image="off")[*visualize/show/hide/summary]1%else;%nn;
           [*visualize/show/hide/summary]2%end; [image/images]0"
      ><i class="fa fa-image fa-fw"></i>
        <i class="fa fa-toggle-%if;(evar.image="off")off%else;on%end; text-muted"></i>
      </a>
      <a href="%prefix_base_password;%if;(evar.siblings!="on")siblings=on;%end;%nn;
        %foreach;env_binding;%if;(env.key!="siblings")%env.key=%env.val;;%end;%end;"
        class="btn btn-outline-secondary btn-sm border-0 px-0"
        title="%if;(evar.siblings!="on")[*visualize/show/hide/summary]1%else;%nn;
           [*visualize/show/hide/summary]2%end; [siblings]"
      ><i class="fa fa-users mx-1"></i>
        <i class="fa fa-toggle-%if;(evar.siblings!="on")off%else;on%end; text-muted"></i>
      </a>
      <a href="%prefix_base_password;%if;(evar.sosa!="on")sosa=on;%end;%nn;
        %foreach;env_binding;%if;(env.key!="sosa")%env.key=%env.val;;%end;%end;"
        class="btn btn-outline-secondary btn-sm border-0 px-0"
        title="%if;(evar.sosa!="on")[*visualize/show/hide/summary]1%else;%nn;
           [*visualize/show/hide/summary]2%end; [Sosa]"
      ><span class="mx-1">So</span>
        <i class="fa fa-toggle-%if;(evar.sosa!="on")off%else;on%end; text-muted"></i>
      </a>
      <a href="%prefix_base_password;%if;(evar.bp!="on")bp=on;%end;%nn;
        %foreach;env_binding;%if;(env.key!="bp")%env.key=%env.val;;%end;%end;"
        class="btn btn-outline-secondary btn-sm border-0 px-0"
        title="%if;(evar.bp!="on")[*visualize/show/hide/summary]1%else;%nn;
           [*visualize/show/hide/summary]2%end; [birth place]"
      ><span class="mx-1">Bp</span>
        <i class="fa fa-toggle-%if;(evar.bp!="on")off%else;on%end; text-muted"></i>
      </a>
      <a href="%prefix_base_password;%if;(evar.nav!="on")nav=on;%end;%nn;
        %foreach;env_binding;%if;(env.key!="nav")%env.key=%env.val;;%end;%end;"
        class="btn btn-outline-secondary btn-sm border-0 px-0"
        title="%if;(evar.nav!="on")[*visualize/show/hide/summary]1%else;%nn;
           [*visualize/show/hide/summary]2%end; [navigation]"
      ><span class="mx-1">Nav</span>%(<i class="fa fa-plus"></i><i class="fa fa-user"></i>%)
        <i class="fa fa-toggle-%if;(evar.nav!="on")off%else;on%end; text-muted"></i>
      </a>
    </div>
  </div>
%end;

%define;tools()
  <hr>
  <form id="tools" name="tools" method="get" action="%action;">
    <fieldset>
      <legend>[*tools]0 <input type="submit" value="Ok"%/></legend>
      %hidden;
      <input type="hidden" name="t" value="h7" %/>
      %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>
        <label><input type="checkbox" name="cgl" value="on"
               %if;(evar.cgl = "on") checked="checked"%end;%/>[cancel GeneWeb links]</label>
        %if;(bvar.no_image_for_visitor != "yes" or friend or wizard)
          <label><input type="checkbox" name="image" value="on" %l_on;
                 %if;(evar.image!="off") checked="checked"%end;%/>[image/images]1</label>
        %end;
        <label><input type="checkbox" name="siblings" value="on" %l_on;
                 %if;(evar.siblings = "on") checked="checked"%end;%/>[full siblings]</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="bp" value="on" %l_on;
           %if;(evar.bp = "on") checked="checked"%end;%/>[birth place]</label>
      </p>
      <p style="text-align:right;font-family:monospace;">
        <label>taille<input id="e0" name="fs" value="%l_fs;" onchange="ob()"%/>px</label>
        <label>largeur<input id="e1" name="wi" value="%l_wi;" onchange="ob()"%/>px</label>
        <label>hauteur<input id="e2" name="he" value="%l_he;" onchange="ob()"%/>px</label>
      </p>
    </fieldset>
  </form>
%end;

%define;somebody()
  <a %if;(evar.nav="on")href="%l_prefix;%access;"
    %else;href="%prefix;%access;" class="s%sex; nc%has_children;"
    %end;>
    %if;(evar.image!="off" and has_image)
      <img src="%image_url;"><br>
    %end;
    %if;(evar.sosa = "on" and browsing_with_sosa_ref and has_sosa)
      &middot; %sosa; &middot;<br>
    %end;
    %first_name;<br>%dates;
    %if;(evar.bp = "on" and has_birth_place)<br>%birth_place;%end;
  </a>
%end;

<div id="htree">
  %foreach;ancestor_level(7)
    <div id="l%level;">
      %if;(evar.image!="off" and level > 1 and level < 5)
        %foreach;ancestor;
          %if;ancestor.has_image;
            <p id="pi%ancestor.anc_sosa.v;"><img src="%ancestor.image_url;"></p>
          %end;
        %end;
      %end;
      %if;(level = 1)
        <table id="pc1"><tr><td>
          %if;(evar.siblings = "on" and has_parents)
            %foreach;father.child;
              %apply;somebody()
            %end;
          %else;
            %apply;somebody()
          %end;
        </td></tr></table>
      %else;
        %foreach;ancestor;
          <a id="p%ancestor.anc_sosa.v;" 
          %if;(evar.nav="on")href="%l_prefix;%ancestor.access;"
          %else;href="%prefix;%ancestor.access;"
          %end;
          %if;(ancestor.same != "") 
            onmouseover="over1('p%ancestor.same.v;')"
            onmouseout="out1('p%ancestor.same.v;')"
            >= %if;(l_sosa_ref = "on")%ancestor.sosa;%else;%ancestor.same;%end; =</a>
          %else;
            >
            %if;(l_sosa_ref = "on")
              &middot; %ancestor.sosa; &middot;<br>
            %elseif;(evar.sosa = "on")
              &middot; %ancestor.anc_sosa;
              %if;(browsing_with_sosa_ref and ancestor.has_sosa) ~ %ancestor.sosa;%end;
              %sp;&middot;<br>
            %end;
            %ancestor;<br>
            %ancestor.dates;
            %if;(evar.bp = "on" and ancestor.has_birth_place)
              <br>%ancestor.birth_place;
            %end;
            </a>
          %end;
          %if;(level < 6)<div id="ps%ancestor.anc_sosa.v;"></div>%end;
        %end;
      %end;
    </div>
  %end;
</div>
%if;(not cancel_links and evar.templ="templm")
  %apply;tools()
%end;
