%doctype;
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <!-- $Id: dag.txt,v 7.00 2015/04/30 11:14:09 mr Exp $ -->
  <title>%head_title;</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>
<body%body_prop; id="dag">
%message_to_wizard;

%define;tools()
  %if;(not cancel_links or evar.notab = "on")
    %let;l_on;onclick="this.focus()" onkeydown="if (event.keyCode == 13) javascript:document.tools.submit();"%in;
    <hr %/>
    <form id="tools" name="tools" method="get" action="%action;">
      <fieldset>
        <legend>[*tools]0 <input type="submit" value="Ok"%/></legend>
        %hidden;
        %foreach;env_binding;
          %if;(
               env.key = "bd" or
               env.key = "bg" or
               env.key = "cgl" or
               env.key = "color" or
               env.key = "image" or
               env.key = "invert" or
               env.key = "lim" or
               env.key = "opt" or
               env.key = "new" or
               env.key = "spouse" or
               env.key = "v" or
               env.key = "dpos" or env.key = "pos1" or env.key = "pos2" or env.key = "nogroup" or env.key = "notab" or env.key = "overlap" or
               env.key = "width" or env.key = "slices" or
               env.key = "templ" or env.key = "iz" or env.key = "pz" or env.key = "nz" or env.key = "ocz"
              )
          %else;
            <input type="hidden" name="%env.key;" value="%env.val.decoded;" %/>
          %end;
        %end;
        %if;(evar.t = "T")
          <p>
            %let;l_emaxv;
              %if;(evar.m = "A")
                %if;(bvar.max_anc_tree = "")7%else;%bvar.max_anc_tree;%end;
              %else;
                %if;(bvar.max_desc_tree = "")4%else;%bvar.max_desc_tree;%end;
              %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="%evar.v;"
              autocomplete="off" autocomplete="off" title="[generation/generations]0 (X)" accesskey="X" %/> / %l_emaxv;</label>
          </p>
        %end;
        %if;(evar.notab = "on")
          <fieldset>
            <legend>
              <label><input type="checkbox" name="notab" value="on" checked="checked" %l_on;
                    %/>[*display by slices/slice width/overlap/total width]0</label>
            </legend>
            <label><input type="checkbox" name="nogroup" value="on" %l_on;
                   %if;(evar.nogroup = "on") checked="checked"%end;
                   %/>[don't group the common branches together]</label>
            <label><input name="dpos" size="5" value="%if;(evar.dpos != "")%evar.dpos;%else;78%end;"
                   %/>[display by slices/slice width/overlap/total width]1</label>
            <label><input name="overlap" size="5" value="%if;(evar.overlap != "")%evar.overlap;%else;10%end;"
                   %/>[display by slices/slice width/overlap/total width]2</label>
            <label><input name="width" size="5" value="%nn;
                   %if;(evar.width != "")%evar.width;
                   %elseif;(dag.max_wid <= 78)%dag.max_wid;
                   %elseif;(dag.min_wid >= 78)%dag.min_wid;
                   %else;78%end;"
                   %/>[display by slices/slice width/overlap/total width]3 (%dag.min_wid;-%dag.max_wid;)</label>
          </fieldset>
        %else;
          <ul>
            %if;(wizard and evar.m = "RLM")
              <li><a href="%prefix_no_iz;i=0;upddag=on;%nn;
                    %foreach;env_binding;
                      %if;(env.key = "m")m=U;%nn;
                      %elseif;(env.key = "templ")
                      %else;%env.key;=%env.val.decoded;;%nn;
                      %end;
                    %end;">[*modify::tree]</a></li>
            %end;
            <li><a href="%prefix;%suffix;notab=on" accesskey="/" 
               title="[display by slices/slice width/overlap/total width]0 (/)"
               >[*display by slices/slice width/overlap/total width]0</a></li>
          </ul>
        %end;
        <fieldset>
          %if;(evar.m = "RLM" or evar.m = "RL" or evar.em = "R")
              <label><input type="checkbox" name="spouse" value="on" %l_on;
                     %if;(evar.spouse = "on") checked="checked"%end;%/>[include spouses]</label>
          %end;
          <label><input type="checkbox" name="opt" value="no_index" %l_on;
                 %if;(evar.opt = "no_index") checked="checked"%end;%/>[link to use]</label>
          <label><input type="checkbox" name="cgl" value="on" %l_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 = "on") checked="checked"%end;%/>[image/images]1</label>
          %end;
          <label>[border]<input name="bd" size="1" maxlength="2" style="width:1em;" value="%evar.bd;" %/></label>
          <table summary="colors" cellspacing="0" cellpadding="0">
            <tr>
              <td align="%left;">[color] </td>
              <td align="%left;">
                <input type="radio" name="color" value="" %l_on;
                  %if;(evar.color="") checked="checked"%end;%/></td>
              %for;i;1;7;
                %let;bgi;bg%i;%in;
                <td class="%bgi;"><input type="radio" name="color" value="%bgi;" %l_on;
                                  %if;(evar.color=bgi) checked="checked"%end;%/></td>
              %end;
            </tr>
          </table>
        </fieldset>
        %if;(evar.m = "RLM")
          <fieldset>
            <label><input type="checkbox" name="invert" value="on" %l_on;
                   %if;(evar.invert = "on") checked="checked"%end;%/>invert</label>
            <label><input type="checkbox" name="new" value="on" %l_on;
                   %if;(evar.new = "on") checked="checked"%end;%/>new</label>
            <label>lim<input name="lim" value="%evar.lim;" size="1"%/></label>
          </fieldset>
        %end;
      </fieldset>
    </form>
  %end;
%end;
%define;menu2()
  <div class="menu2">
    <a href="%prefix;" title="[visualize/show/hide/summary]3">^^</a>
  </div>
%end;

%if;(not cancel_links and evar.notab != "on" )
  %let;l_o;image=%evar.image;;bd=%evar.bd;;color=%evar.color;;invert=%evar.invert;;new=%evar.new;%in;
  <div class="menu">
    %if;(link_next != "")
      <span>
        <a href="%link_next;;%l_o;" title="[next relationship path] (&gt;)" accesskey=">">[*next relationship path] &gt;&gt;</a>
        %if;(evar.i != "")
          %let;l_i;ei=%evar.i;;i=%evar.ei;%in;
          <a href="%prefix;em=R;et=A;spouse=on;%l_i;;%l_o;">[*relationship link/relationship links]1</a>
          <a href="%prefix;em=R;et=M;spouse=on;%l_i;;%l_o;">[*relationship by marriage]</a>
        %end;
      </span>
    %end;
    %if;(evar.t = "T")
      %if;(evar.m = "A")
        <span>
          <a title="[tree] (Y)" accesskey="Y" href="%prefix_no_iz;%nn;
              %foreach;env_binding;
                %if;(env.key = "m")m=D;%nn;
                %elseif;(env.key = "templ")
                %else;%env.key;=%env.val.decoded;;%nn;
                %end;
              %end;">[*tree] &darr;&darr;&darr;</a>
        </span>
      %elseif;(evar.m = "D")
        <span>
          <a title="[tree] (Y)" accesskey="Y" href="%prefix_no_iz;%nn;
              %foreach;env_binding;
                %if;(env.key = "m")m=A;%nn;
                %elseif;(env.key = "dag" or env.key = "templ")
                %else;%env.key;=%env.val.decoded;;%nn;
                %end;
              %end;">[*tree] &uarr;&uarr;&uarr;</a>
        </span>
      %end;
    %end;
    %if;(evar.m = "RLM" and evar.i6 = "" and evar.p6 = "" and evar.t1 != "1")
      <span>
        %let;l_i;i=%evar.i1;;ei=%evar.i2;%in;
        <a href="%prefix;em=R;et=S;spouse=on;%l_i;;%l_o;">[*shortest path]</a>
        <a href="%prefix;em=R;et=A;spouse=on;%l_i;;%l_o;">[*relationship link/relationship links]1</a>
        <a href="%prefix;em=R;et=M;spouse=on;%l_i;;%l_o;">[*relationship by marriage]</a>
      </span>
    %end;
  </div>
  %apply;menu2()
%end;
%if;(evar.notab = "on" or evar.pos2 != "")
  %let;dpos;%if;(evar.dpos != "")%evar.dpos;%else;78%end;%in;
  %let;pos1;%if;(evar.pos1 != "")%evar.pos1;%else;0%end;%in;
  %let;pos2;%if;(evar.pos2 != "")%evar.pos2;%else;%dpos;%end;%in;
  %let;overlap;%if;(evar.overlap != "")%evar.overlap;%else;10%end;%in;
  %if;(pos1 != 0 or pos2 < dag.ncol)
    <div class="menu">
      <span>
      %if;(pos1 = 0)
      %else;
        <a href="%prefix_no_iz;
          %foreach;env_binding;
            %if;(env.key != "pos1" and env.key != "pos2" and env.key != "templ")
              %env.key=%env.val.decoded;;%nn;
            %end;
          %end;
          %let;l_pos1;%expr;(pos1 + overlap - dpos)%in;
          pos1=%l_pos1;
          ;pos2=%expr(pos1 + overlap)">&lt;&lt; %l_pos1;</a>%nn;
      %end;
      %if;(pos2 >= dag.ncol)&nbsp;%nn;
      %else;
        <a href="%prefix_no_iz;
          %foreach;env_binding;
            %if;(env.key != "pos1" and env.key != "pos2" and env.key != "templ")
              %env.key=%env.val.decoded;;%nn;
            %end;
          %end;
          %let;l_pos1;%expr;(pos2 - overlap)%in;
          pos1=%l_pos1;
          ;pos2=%expr(pos2 - overlap + dpos)">%l_pos1; &gt;&gt;</a>%nn;
      %end;
      </span>
    </div>
  %end;
  %apply;menu2()
  <pre style="width:%dpos;em;">
  %foreach;dag_line;
    %foreach;dag_line_pre;
      %foreach;dag_cell_pre;
        %dag_cell_pre;%nn;
      %end;%nl;
    %end;
  %end;
  </pre>
%else;
  %let;l_arr;%if(evar.m = "A")&uarr;%else;&darr;%end;%in;
  %let;l_a;%if;(evar.em = "R")----&gt;8----%else;[tree]%end;%in;
  <table border="%border;" width="100%%"><tr><td align="center">
  <table border="%border;" cellspacing="0" cellpadding="0">
  %foreach;dag_line;
    <tr align="left">
    %foreach;dag_cell;
      <td %if;(dag_cell.colspan > 1)colspan="%dag_cell.colspan;" %end;align="%dag_cell.align;">%nn;
      %if;dag_cell.is_nothing;&nbsp;%nn;
      %elseif;dag_cell.is_bar;
        %if;(dag_cell.bar_link != "" and evar.cgl != "on")
          <a style="text-decoration:none;" href="%dag_cell.bar_link;;image=%evar.image;" title="%l_a;">        %l_arr;        </a>%nn;
        %else;|%end;
      %elseif;(dag_cell.item != "")%dag_cell.item;
      %elseif;(dag_cell.text != "")%dag_cell.text;
      %else;
        %if;dag_cell.is_hr_left;
          <hr class="%left;"%/>%nn;
        %elseif;dag_cell.is_hr_right;
          <hr class="%right;"%/>%nn;
        %else;
          <hr class="full"%/>%nn;
        %end;
      %end;
      </td>
    %end;
    </tr>
  %end;
  </table>
  </td></tr></table>
%end;
%apply;tools()
%base_trailer;
%copyright;
</body>
</html>
