%doctype;
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <!-- $Id: updfam.txt,v 5.12 2007-07-25 15:01:02 ddr Exp $ -->
  <!-- Copyright (c) 1998-2007 INRIA -->
  <meta name="robots" content="none"%/>
  <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"%/>
  <title>%nn;
    %if;(evar_m = "ADD_FAM" or evar_m = "ADD_FAM_OK")
      [*add::family/families]0%nn;
    %elseif;(evar_m = "ADD_PAR")[*add::family/families]0%nn;
    %elseif;(evar_m = "MOD_FAM" or evar_m = "MOD_FAM_OK")
      [*modify::family/families]0 # %evar_i;
    %elseif;(evar_m = "MRG_DUP_FAM_Y_N" or evar_m = "MRG_FAM" or
             evar_m = "MRG_FAM_OK" or evar_m = "MRG_MOD_FAM_OK")
      [*merge::family/families]1 # %evar_i;
    %end;
  </title>
  %include.js;
  %include.css;
  %base_header;
</head>
<body%body_prop;>
%message_to_wizard;

<script type="text/javascript">
<!--
function changeCalendar(e,v,m,c) {
  var mv = m;
  switch (m) {
  case "VD": mv = 1; break;
  case "BR": mv = 2; break;
  case "FM": mv = 3; break;
  case "NI": mv = 4; break;
  case "PL": mv = 5; break;
  case "VT": mv = 6; break;
  case "GE": mv = 7; break;
  case "FL": mv = 8; break;
  case "PR": mv = 9; break;
  case "ME": mv = 10; break;
  case "TH": mv = 11; break;
  case "FT": mv = 12; break;
  case "JC": mv = 13; break;
  }
  switch(c.options%[c.selectedIndex%].value) {
  case 'G':
  case 'J':
    document.getElementById(e).innerHTML = '\
<select name="' + v + '">\
<option value=""' + (mv == 0 ? ' selected="selected"' : '') + '>%nn;
-</option>\
<option value="1"' + (mv == 1 ? ' selected="selected"' : '') + '>%nn;
[(month)]0</option>\
<option value="2"' + (mv == 2 ? ' selected="selected"' : '') + '>%nn;
[(month)]1</option>\
<option value="3"' + (mv == 3 ? ' selected="selected"' : '') + '>%nn;
[(month)]2</option>\
<option value="4"' + (mv == 4 ? ' selected="selected"' : '') + '>%nn;
[(month)]3</option>\
<option value="5"' + (mv == 5 ? ' selected="selected"' : '') + '>%nn;
[(month)]4</option>\
<option value="6"' + (mv == 6 ? ' selected="selected"' : '') + '>%nn;
[(month)]5</option>\
<option value="7"' + (mv == 7 ? ' selected="selected"' : '') + '>%nn;
[(month)]6</option>\
<option value="8"' + (mv == 8 ? ' selected="selected"' : '') + '>%nn;
[(month)]7</option>\
<option value="9"' + (mv == 9 ? ' selected="selected"' : '') + '>%nn;
[(month)]8</option>\
<option value="10"' + (mv == 10 ? ' selected="selected"' : '') + '>%nn;
[(month)]9</option>\
<option value="11"' + (mv == 11 ? ' selected="selected"' : '') + '>%nn;
[(month)]10</option>\
<option value="12"' + (mv == 12 ? ' selected="selected"' : '') + '>%nn;
[(month)]11</option>\
</select>\
';
    break;
  case 'F':
    document.getElementById(e).innerHTML = '\
<select name="' + v + '">\
<option value=""' + (mv == 0 ? ' selected="selected"' : '') + '>%nn;
-</option>\
<option value="1"' + (mv == 1 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]0</option>\
<option value="2"' + (mv == 2 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]1</option>\
<option value="3"' + (mv == 3 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]2</option>\
<option value="4"' + (mv == 4 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]3</option>\
<option value="5"' + (mv == 5 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]4</option>\
<option value="6"' + (mv == 6 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]5</option>\
<option value="7"' + (mv == 7 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]6</option>\
<option value="8"' + (mv == 8 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]7</option>\
<option value="9"' + (mv == 9 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]8</option>\
<option value="10"' + (mv == 10 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]9</option>\
<option value="11"' + (mv == 11 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]10</option>\
<option value="12"' + (mv == 12 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]11</option>\
<option value="13"' + (mv == 13 ? ' selected="selected"' : '') + '>%nn;
[(french revolution month)]12</option>\
</select>\
';
    break;
  case 'H':
    document.getElementById(e).innerHTML = '\
<select name="' + v + '">\
<option value=""' + (mv == 0 ? ' selected="selected"' : '') + '>%nn;
-</option>\
<option value="1"' + (mv == 1 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]0</option>\
<option value="2"' + (mv == 2 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]1</option>\
<option value="3"' + (mv == 3 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]2</option>\
<option value="4"' + (mv == 4 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]3</option>\
<option value="5"' + (mv == 5 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]4</option>\
<option value="6"' + (mv == 6 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]5</option>\
<option value="7"' + (mv == 7 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]6</option>\
<option value="8"' + (mv == 8 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]7</option>\
<option value="9"' + (mv == 9 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]8</option>\
<option value="10"' + (mv == 10 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]9</option>\
<option value="11"' + (mv == 11 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]10</option>\
<option value="12"' + (mv == 12 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]11</option>\
<option value="13"' + (mv == 13 ? ' selected="selected"' : '') + '>%nn;
[(hebrew month)]12</option>\
</select>\
';
    break;
  }
}
-->
</script>

<script type="text/javascript">
  function show_fevent_label(xxname, xcnt) {
    var selector = document.getElementById('fevent_select' + xcnt);
    var label = document.getElementById('fevent_label_selector' + xcnt);
    var input = document.getElementById('e_name' + xcnt);
    if (selector.value == "") {
      console.log('IF');
      console.log('selector.value=' + selector.value);
      console.log('input.value=' + input.value);
      if (xxname.charAt(0) == "#") {
        input.value = "";
      }
      else {
        input.value = xxname;
      }
    }
    else {
      console.log('ELSE');
      console.log('selector.value=' + selector.value);
      console.log('input.value=' + input.value);
      input.value = selector.value;
    }
    if (selector.value == "" || selector.value.charAt(0) != "#") {
      label.style.display = 'inline';
    }
    else {
      label.style.display = 'none';
    }
  }

  $(document).ready(function(){
     //show evt perso
     $(".other_evts").each(function(){
       var inp = $(this).find("input").first();
       if(inp.val().charAt(0) != "#" && inp.val() != ""){
         $(this).show();
       }
     });
  });
</script>

%include_perso_header;

%define;date(xlab,xvar,xdt,xcond)
  <table border="1" width="700px">
    <tr>
      <td>xlab</td>
      <td>
        %if;([ !dates order]0 = "ddmmyy" or [ !dates order]0 = "ddmmyyyy" or [ !dates order]0 = "dmyyyy")
          <label>
            [year/month/day]2
            <input type="text" name="xvar_dd" size="2" maxlength="2" value="%xdt.day;"xcond%/>
          </label>
          <label>
            [year/month/day]1
            <span id="xvar_mm_sel">
              <input type="text" name="xvar_mm" size="2" maxlength="2" value="%xdt.month;"xcond%/>
            </span>
          </label>
          <label>
            [year/month/day]0
            <input type="text" name="xvar_yyyy" size="5" maxlength="6" value="%xdt.year;"xcond%/>
          </label>
        %elseif;([ !dates order]0 = "mmddyyyy")
          <label>
            [year/month/day]1
            <span id="xvar_mm_sel">
              <input type="text" name="xvar_mm" size="2" maxlength="2" value="%xdt.month;"xcond%/>
            </span>
          </label>
          <label>
            [year/month/day]2
            <input type="text" name="xvar_dd" size="2" maxlength="2" value="%xdt.day;"xcond%/>
          </label>
          <label>
            [year/month/day]0
            <input type="text" name="xvar_yyyy" size="5" maxlength="6" value="%xdt.year;"xcond%/>
          </label>
        %else;
          <label>
            [year/month/day]0
            <input type="text" name="xvar_yyyy" size="5" maxlength="6" value="%xdt.year;"xcond%/>
          </label>
          <label>
            [year/month/day]1
            <span id="xvar_mm_sel">
              <input type="text" name="xvar_mm" size="2" maxlength="2" value="%xdt.month;"xcond%/>
            </span>
          </label>
          <label>
            [year/month/day]2
            <input type="text" name="xvar_dd" size="2" maxlength="2" value="%xdt.day;"xcond%/>
          </label>
        %end;
      </td>
      <td>
        ...
        <label>
          [or]0 [text]0
          <input type="text" name="xvar_text" size="15" maxlength="30" value="%xdt.text;"xcond%/>
        </label>
      </td>
    </tr>
  </table>
  <table border="1" width="700px">
    <tr>
      <td>
        [*calendar/calendars]0
        <select name="xvar_cal" onchange="changeCalendar('xvar_mm_sel','xvar_mm','%xdt.month;',this),%nn;
                                          changeCalendar('xvar_ormonth_sel','xvar_ormonth','%xdt.ormonth;',this)"xcond>
          <option value="G" %if;(xdt.calendar = "gregorian") selected="selected"%end;>
            [*gregorian/julian/french/hebrew]0
          </option>
          <option value="J" %if;(xdt.calendar = "julian") selected="selected"%end;>
            [*gregorian/julian/french/hebrew]1
          </option>
          <option value="F" %if;(xdt.calendar = "french") selected="selected"%end;>
            [*gregorian/julian/french/hebrew]2
          </option>
          <option value="H" %if;(xdt.calendar = "hebrew") selected="selected"%end;>
            [*gregorian/julian/french/hebrew]3
          </option>
        </select>
      </td>
      <td>
        [*precision]0
        <select name="xvar_prec"xcond>
          <option value="-" %if;(xdt.prec = "") selected="selected"%end;>-</option>
          <option value="sure" %if;(xdt.prec = "sure") selected="selected"%end;>[*exact]0</option>
          <option value="about" %if;(xdt.prec = "about") selected="selected"%end;>[*about (date)]0</option>
          <option value="maybe" %if;(xdt.prec = "maybe") selected="selected"%end;>[*possibly (date)]0</option>
          <option value="before" %if;(xdt.prec = "before") selected="selected"%end;>[*before (date)]0</option>
          <option value="after" %if;(xdt.prec = "after") selected="selected"%end;>[*after (date)]0</option>
          <option value="oryear" %if;(xdt.prec = "oryear") selected="selected"%end;>&lt;- [*or] -&gt;</option>
          <option value="yearint" %if;(xdt.prec = "yearint") selected="selected"%end;>&lt;- [*between (date)] -&gt;</option>
        </select>
        %if;([ !dates order]0 = "ddmmyy" or [ !dates order]0 = "ddmmyyyy" or [ !dates order]0 = "dmyyyy")
          <label>
            [year/month/day]2
            <input type="text" name="xvar_orday" size="2" maxlength="2" value="%xdt.orday;"xcond%/>
          </label>
          <label>
            [year/month/day]1
            <span id="xvar_ormonth_sel">
              <input type="text" name="xvar_ormonth" size="2" maxlength="2" value="%xdt.ormonth;"xcond%/>
            </span>
          </label>
          <label>
            [year/month/day]0
            <input type="text" name="xvar_oryear" size="5" maxlength="6" value="%xdt.oryear;"xcond%/>
          </label>
        %elseif;([ !dates order]0 = "mmddyyyy")
          <label>
            [year/month/day]1
            <span id="xvar_ormonth_sel">
              <input type="text" name="xvar_ormonth" size="2" maxlength="2" value="%xdt.ormonth;"xcond%/>
            </span>
          </label>
          <label>
            [year/month/day]2
            <input type="text" name="xvar_orday" size="2" maxlength="2" value="%xdt.orday;"xcond%/>
          </label>
          <label>
            [year/month/day]0
            <input type="text" name="xvar_oryear" size="5" maxlength="6" value="%xdt.oryear;"xcond%/>
          </label>
        %else;
          <label>
            [year/month/day]0
            <input type="text" name="xvar_oryear" size="5" maxlength="6" value="%xdt.oryear;"xcond%/>
          </label>
          <label>
            [year/month/day]1
            <span id="xvar_ormonth_sel">
              <input type="text" name="xvar_ormonth" size="2" maxlength="2" value="%xdt.ormonth;"xcond%/>
            </span>
          </label>
          <label>
            [year/month/day]2
            <input type="text" name="xvar_orday" size="2" maxlength="2" value="%xdt.orday;"xcond%/>
          </label>
        %end;
      </td>
    </tr>
  </table>
%end;

%define;source(xvar,xx)
  <table border="1" width="700px">
    <tr>
      <td><label for="xvar_src">[*source/sources]0</label></td>
      <td><input type="text" name="xvar_src" size="90" maxlength="200" value="%xx_src;" id="xvar_src"%/></td>
    </tr>
  </table>
%end;

%define;note(xvar,xx)
  <table border="1" width="700px">
    <tr>
      <td><label for="xvar_note">[*note/notes]0</label></td>
      <td><input type="text" name="xvar_note" size="74" maxlength="200" value="%xx_note;" id="xvar_note"%/></td>
    </tr>
  </table>
%end;

%define;small_date(kind,xvar,xx,verbose)
  <td>
    %if;([ !dates order]0 = "ddmmyy" or [ !dates order]0 = "ddmmyyyy" or [ !dates order]0 = "dmyyyy")
      <label>
        [year/month/day]2
        <input type="text" name="xvar_dd" size="2" maxlength="2" value="%xx.create.kind_day;"%/>
      </label>
      <label>
        [year/month/day]1
        <input type="text" name="xvar_mm" size="2" maxlength="2" value="%xx.create.kind_month;"%/>
      </label>
      <label>
        [year/month/day]0
        <input type="text" name="xvar_yyyy" size="6" maxlength="6" value="%xx.create.kind_year;"%/>
      </label>
    %elseif;([ !dates order]0 = "mmddyyyy")
      <label>
        [year/month/day]1
        <input type="text" name="xvar_mm" size="2" maxlength="2" value="%xx.create.kind_month;"%/>
      </label>
      <label>
        [year/month/day]2
        <input type="text" name="xvar_dd" size="2" maxlength="2" value="%xx.create.kind_day;"%/>
      </label>
      <label>
        [year/month/day]0
        <input type="text" name="xvar_yyyy" size="6" maxlength="6" value="%xx.create.kind_year;"%/>
      </label>
    %else;
      <label>
        [year/month/day]0
        <input type="text" name="xvar_yyyy" size="6" maxlength="6" value="%xx.create.kind_year;"%/>
      </label>
      <label>
        [year/month/day]1
        <input type="text" name="xvar_mm" size="2" maxlength="2" value="%xx.create.kind_month;"%/>
      </label>
      <label>
        [year/month/day]2
        <input type="text" name="xvar_dd" size="2" maxlength="2" value="%xx.create.kind_day;"%/>
      </label>
    %end;
  </td>
  %if;("verbose" = "true")
    <td>
      <label for="xvar_pl">[*place]</label>%nn;
    </td>
  %end;%nl;
  <td colspan="2">
    <input type="text" name="xvar_pl" size="20" maxlength="200" value="%xx.create.kind_place;" id="xvar_pl"%/>
  </td>
%end;

%define;birth(xvar,xx,verbose)
  <td>[*birth]</td>
  %apply;small_date("birth","xvarb","xx","verbose")
%end;

%define;death(xvar,xx,verbose)
  <td>[*death]</td>
  %apply;small_date("death","xvard","xx","verbose")
%end;

%define;parent(xcnt,xx)
  <table border="1" width="700px">
    <tr>
      <td><label for="paxcnt_fn">[*first name/first names]0</label></td>
      <td>
        <input type="text" name="paxcnt_fn" size="40" maxlength="200" value="%xx.first_name;" id="paxcnt_fn"%/>
      </td>
      <td><label for="paxcnt_occ">[*number]</label></td>
      <td>
        <input type="text" name="paxcnt_occ" size="5" maxlength="8" value="%xx.occ;" id="paxcnt_occ"%/>
      </td>
      <td>
        <select name="paxcnt_p">
          <option value="create" %if;(xx.create = "create") selected="selected"%end;>[*create]0</option>
          <option value="link" %if;(xx.create = "link") selected="selected"%end;>[*link]0</option>
        </select>
      </td>
    </tr>
    <tr>
      <td><label for="paxcnt_sn">[*surname/surnames]0</label></td>
      <td colspan="4">
        <input type="text" name="paxcnt_sn" size="40" maxlength="200" value="%xx.surname" id="paxcnt_sn"%/>
      </td>
    </tr>
    <tr>
      %apply;birth("paxcnt","xx","true")
    </tr>
    <tr>
      %apply;death("paxcnt","xx","true")
    </tr>
    <tr>
      <td><label for="paxcnt_occupation">[*occupation/occupations]0</label></td>
      <td colspan="4">
        <input type="text" name="paxcnt_occupation" size="74" maxlength="200" value="%xx.create.occupation" id="paxcnt_occupation"%/>
      </td>
    </tr>
  </table>
%end;

%define;insert_parent(xcnt)
  <table border="1" width="700px">
    <tr>
      <td>
        [*insert::|<input type="text" name="ins_paxcnt_n" size="1" maxlength="1" value="1"%/> | parents]
        <input type="checkbox" name="ins_paxcnt" value="on"%/>
      </td>
    </tr>
  </table>
%end;

%define;selector_fevent(xcnt)
  <select id="fevent_selectxcnt" onchange="show_fevent_label($('#e_namexcnt').prop('defaultValue'), 'xcnt')">
    <option value="">-</option>
    <option value="#marr" %if;(event.e_name = "#marr" or event.e_name="") selected="selected" %end;>[*marriage event]</option>
    <option value="#nmar" %if;(event.e_name = "#nmar") selected="selected"%end;>[*no marriage event]</option>
    <option value="#enga" %if;(event.e_name = "#enga") selected="selected"%end;>[*engage event]</option>
    <option value="#nmen" %if;(event.e_name = "#nmen") selected="selected"%end;>[*no mention]</option>
    <option value="#marb" %if;(event.e_name = "#marb") selected="selected"%end;>[*marriage bann]</option>
    <option value="#marc" %if;(event.e_name = "#marc") selected="selected"%end;>[*marriage contract]</option>
    <option value="#marl" %if;(event.e_name = "#marl") selected="selected"%end;>[*marriage licence]</option>
    <option value="#pacs" %if;(event.e_name = "#pacs") selected="selected"%end;>[*PACS]</option>
    <option value="#div"  %if;(event.e_name = "#div")  selected="selected"%end;>[*divorce event]</option>
    <option value="#sep"  %if;(event.e_name = "#sep")  selected="selected"%end;>[*separate event]</option>
    <option value="#anul" %if;(event.e_name = "#anul") selected="selected"%end;>[*annulation]</option>
    <option value="#resi" %if;(event.e_name = "#resi") selected="selected"%end;>[*residence]</option>
  </select>
%end;

%define;insert_fevent(xcnt)
  <table border="1">
    <tr>
      <td>
        <label>[*insert::|<input type="text" name="ins_eventxcnt_n" size="1" maxlength="1" value="1"%/></label>
        <label> | event/events]<input type="checkbox" name="ins_eventxcnt" value="on"%/></label>
      </td>
    </tr>
  </table>
%end;

%define;insert_witness(xcnt, wcnt)
  <table border="1">
    <tr>
      <td>
        <label>[*insert::|<input type="text" name="excnt_ins_witnwcnt_n" size="1" maxlength="1" value="1"%/></label>
        <label> | witness/witnesses]<input type="checkbox" name="excnt_ins_witnwcnt" value="on"%/></label>
      </td>
    </tr>
  </table>
%end;

%define;one_witness(xcnt, wcnt)
  <p></p>
  <table border="1" width="700px">
    <tr>
      <td>[*witness/witnesses]0</td>
    </tr>
    <tr>
      <td><label for="excnt_witnwcnt_fn">[*first name/first names]0</label></td>
      <td>
        <input type="text" name="excnt_witnwcnt_fn" size="40" maxlength="200" value="%fwitness.first_name;" id="excnt_witnwcnt_fn"%/>
      </td>
      <td align="%right;"><label for="excnt_witnwcnt_occ">[*number]</label></td>
      <td>
        <input type="text" name="excnt_witnwcnt_occ" size="5" maxlength="8" value="%fwitness.occ;" id="excnt_witnwcnt_occ"%/>
      </td>
      <td>
        <select name="excnt_witnwcnt_p">
          <option value="link"%if;(fwitness.create = "link") selected="selected"%end;>[*link]0</option>
          <option value="create"%if;(fwitness.create = "create") selected="selected"%end;>[*create]0</option>
        </select>
        <select name="excnt_witnwcnt_kind" style="display:none">
          <option value="godp" %if;(fwitness_kind = "godp") selected="selected" %end;>[*godfather/godmother/godparents]2</option>
          <option value="" %if;(fwitness_kind = "") selected="selected" %end;>[*witness/witnesses]0</option>
        </select>
      </td>
    </tr>
    <tr>
      <td><label for="excnt_witnwcnt_sn">[*surname/surnames]0&nbsp;:&nbsp;</label></td>
      <td colspan="3">
        <input type="text" name="excnt_witnwcnt_sn" size="40" maxlength="200" value="%fwitness.surname;" id="excnt_witnwcnt_sn"%/>
      </td>
      <td>
        <label>
          <input type="radio" name="excnt_witnwcnt_sex" value="N" %if;(fwitness.create.sex = "neuter") checked="checked"%end;%/>?
        </label>
        <label>
          <input type="radio" name="excnt_witnwcnt_sex" value="M" %if;(fwitness.create.sex = "male") checked="checked"%end;%/>[M/F]0
        </label>
        <label>
          <input type="radio" name="excnt_witnwcnt_sex" value="F" %if;(fwitness.create.sex = "female") checked="checked"%end;%/>[M/F]1
        </label>
      </td>
    </tr>
  </table>
%end;

%define;one_fevent(xcnt)
  <table border="1" width="700px">
    <tr>
      <td><label for="e_namexcnt">[*event/events]0</label></td>
      <td>
        %apply;selector_fevent(xcnt)
        <label id="fevent_label_selectorxcnt" style="display:none" class="other_evts">
          [or]0 [text]0&nbsp;:&nbsp;
          <input type="text" name="e_namexcnt" size="40" maxlength="200" value="%if;(event.e_name = "")#marr%else;%event.e_name;%end;" id="e_namexcnt"%/>
        </label>
      </td>
    </tr>
    <tr>
      <td><label for="e_placexcnt">[*place]</label></td>
      <td>
        <input type="text" name="e_placexcnt" size="40" maxlength="200" value="%event.e_place;" id="e_placexcnt"%/>
      </td>
    </tr>
  </table>
  %apply;date([*date/dates]0, "e_datexcnt", "event_date", "")
  <table border="1" width="700px">
    <tr>
      <td><label for="e_notexcnt">[*note/notes]0</label></td>
      <td>
        <textarea name="e_notexcnt" rows="3" cols="74" id="e_notexcnt">%event.e_note;</textarea>
      </td>
    </tr>
    <tr>
      <td><label for="e_srcxcnt">[*source/sources]0</label></td>
      <td>
        <input type="text" name="e_srcxcnt" size="90" maxlength="200" value="%event.e_src;" id="e_srcxcnt" maxlength="800"%/>
      </td>
    </tr>
  </table>
  %if;has_fwitness;
    %foreach;fwitness;
      %apply;one_witness(xcnt, wcnt)
      %if;is_last;%apply;insert_witness(xcnt, wcnt)%end;
    %end;
  %else;
    %apply;insert_witness(xcnt, "0")
  %end;
%end

<h1>%nn;
  %if;(evar_m = "ADD_FAM" or evar_m = "ADD_FAM_OK")
    [*add::family/families]0
  %elseif;(evar_m = "ADD_PAR")
    [*add::family/families]0
  %elseif;(evar_m = "MOD_FAM" or evar_m = "MOD_FAM_OK")
    [*modify::family/families]0 # %evar_i;
  %elseif;(evar_m = "MRG_DUP_FAM_Y_N" or evar_m = "MRG_FAM" or
           evar_m = "MRG_FAM_OK" or evar_m = "MRG_MOD_FAM_OK")
    [*merge::family/families]1 # %evar_i;
  %end;
</h1>

<form method="post" action="%action;">
  <p>
    %hidden;
    <input type="hidden" name="digest" value="%digest;"%/>
    %if;(evar_ip != "")<input type="hidden" name="ip" value="%evar_ip;"%/>%nl;%end;
    %if;(evar_i != "")<input type="hidden" name="i" value="%evar_i;"%/>%nl;%end;
    %if;(evar_m = "ADD_FAM" or evar_m = "ADD_FAM_OK")
      <input type="hidden" name="m" value="ADD_FAM_OK"%/>%nl;
    %elseif;(evar_m = "ADD_PAR")
      <input type="hidden" name="m" value="ADD_FAM_OK"%/>%nl;
    %elseif;(evar_m = "MOD_FAM" or evar_m = "MOD_FAM_OK")
      <input type="hidden" name="m" value="MOD_FAM_OK"%/>%nl;
    %elseif;(evar_m = "MRG_DUP_FAM_Y_N" or evar_m = "MRG_FAM" or
             evar_m = "MRG_FAM_OK" or evar_m = "MRG_MOD_FAM_OK")
      <input type="hidden" name="i2" value="%evar_i2;"%/>
      %if;(evar_ini1 != "" and evar_ini2 != "")
        <input type="hidden" name="ini1" value="%evar_ini1;"%/>
        <input type="hidden" name="ini2" value="%evar_ini2;"%/>
      %end;
      %if;(evar.iexcl != "")
        <input type="hidden" name="iexcl" value="%evar.iexcl;"%/>
      %end;
      %if;(evar.fexcl != "")
        <input type="hidden" name="fexcl" value="%evar.fexcl;"%/>
      %end;
      <input type="hidden" name="m" value="MRG_MOD_FAM_OK"%/>%nl;
    %end;
  </p>

  %foreach;parent;
    %if;(bvar.multi_parents != "yes")<h4>%parent.himher;</h4>%end;%nl;
    %apply;parent(cnt, "parent")
    %if;(bvar.multi_parents = "yes")%apply;insert_parent(cnt)%end;
  %end;

  <h4><a name="marr">[*marriage/marriages]0</a></h4>
  <div style="display:none;">
    <p>
      <label>
        <input type="radio" name="mrel" value="marr" %if;(mrel = "marr" or mrel = "nsckm") checked="checked"%end;%/>[*married]
      </label>
      <label>
        <input type="radio" name="mrel" value="not_marr" %if;(mrel = "not_marr" or mrel = "nsck") checked="checked"%end;%/>[*not married]
      </label>
      <label>
        <input type="radio" name="mrel" value="engaged"%if;(mrel = "engaged")checked="checked"%end;%/>[*engaged]
      </label>
      %( Déplacé dans les fevents
      <label>
        <input type="checkbox" name="nsck" value="on "%if;(mrel = "nsck" or mrel = "nsckm") checked="checked"%end;%/>[*no sexes check]<br%/>
      </label>
      %)
      <label>
        <input type="radio" name="mrel" value="no_ment"%if;(mrel = "no_ment")checked="checked"%end;%/>[*no mention]
      </label>
    </p>
    <table border="1" width="700px">
      <tr>
        <td><label for="marr_place">[*place]</label></td>
        <td>
          <input type="text" name="marr_place" size="40" maxlength="200" value="%marriage_place;" id="marr_place"%/>
        </td>
      </tr>
    </table>

    %apply;date([*date/dates]0, "marr", "marriage", "")
    %apply;note("marr", "marriage")
    %apply;source("marr", "marriage")

    <h4>[*witness/witnesses]1</h4>

    <table border="1">
      <tr>
        <td>
          <label>[*insert::witness/witnesses]0
          <input type="checkbox" name="ins_witn0" value="on"%/></label>
        </td>
      </tr>
    </table>

    %foreach;witness;
      <table border="1" width="700px">
        <tr>
          <td><label for="witn%cnt;_fn">[*first name/first names]0</label></td>
          <td>
            <input type="text" name="witn%cnt;_fn" size="40" maxlength="200" value="%witness.first_name;" id="witn%cnt;_fn"%/>
          </td>
          <td align="%right;"><label for="witn%cnt;_occ">[*number]</label></td>
          <td>
            <input type="text" name="witn%cnt;_occ" size="5" maxlength="8" value="%witness.occ;" id="witn%cnt;_occ"%/>
          </td>
          <td>
            <select name="witn%cnt;_p">
              <option value="link"%if;(witness.create = "link") selected="selected"%end;>[*link]0</option>
              <option value="create"%if;(witness.create = "create") selected="selected"%end;>[*create]0</option>
            </select>
          </td>
        </tr>
        <tr>
          <td><label for="witn%cnt;_sn">[*surname/surnames]0</label></td>
          <td colspan="3">
            <input type="text" name="witn%cnt;_sn" size="40" maxlength="200" value="%witness.surname;" id="witn%cnt;_sn"%/>
          </td>
          <td>
            <label>
              <input type="radio" name="witn%cnt;_sex" value="N" %if;(witness.create.sex = "neuter") checked="checked"%end;%/>?
            </label>
            <label>
              <input type="radio" name="witn%cnt;_sex" value="M" %if;(witness.create.sex = "male") checked="checked"%end;%/>[M/F]0
            </label>
            <label>
              <input type="radio" name="witn%cnt;_sex" value="F" %if;(witness.create.sex = "female") checked="checked"%end;%/>[M/F]1
            </label>
          </td>
        </tr>
      </table>
      <table border="1">
        <tr>
          <td>
            <label>
              [*insert::witness/witnesses]0
              <input type="checkbox" name="ins_witn%cnt;" value="on"%/>
            </label>
          </td>
        </tr>
      </table>
    %end;

    <h4>[*divorce]</h4>
    <p>
      <label>
        <input type="radio" name="div" value="not_divorced" %if;(divorce = "not_divorced") checked="checked"%end;%/>[*not divorced]
      </label>
      <label>
        <input type="radio" name="div" value="divorced" %if;(divorce = "divorced") checked="checked"%end;%/>[*divorced]
      </label>
      <label>
        <input type="radio" name="div" value="separated" %if;(divorce = "separated") checked="checked"%end;%/>[*separated]
      </label>
    </p>
    %apply;date([*date/dates]0, "div", "divorce", "")
  </div>

  <input type="checkbox" name="nsck" value="on "%if;(mrel = "nsck" or mrel = "nsckm") checked="checked"%end;%/>[*no sexes check]<br%/><br%/>
  %if;has_fevents;
    %foreach;fevent;
      %apply;one_fevent(cnt)
      <p></p>
      %if;is_last;
        %apply;insert_fevent(cnt)
        <p></p>
      %end;
    %end;
  %else;
    %apply;one_fevent("1")
    <p></p>
    %apply;insert_fevent("1")
    <p></p>
  %end;

  <h4><label for="comment">[*comment]</label></h4>

  <table border="1" width="700px">
    <tr>
      <td>
        <input type="text" name="comment" size="90" maxlength="200" value="%comment;" id="comment"%/>
      </td>
    </tr>
  </table>

  <h4>[*child/children]1</h4>

%define;insert_child(xcnt)
  <td>
    <label>[*insert::|<input type="text" name="ins_chxcnt_n" size="1" maxlength="1" value="1"%/></label>
    <label> | child/children]<input type="checkbox" name="ins_chxcnt" value="on"%/></label>
  </td>
%end;

%define;invert_children(xcnt)
  <td>
    <label>
      [*invert]
      <input type="checkbox" name="inv_chxcnt" value="on"%/>
    </label>
  </td>
%end;

%define;child(xcnt)
  <table border="1" width="660px">
    <tr>
      <td><label for="chxcnt_fn">[*first name/first names]0</label></td>
      <td colspan="2">
        <input type="text" name="chxcnt_fn" size="40" maxlength="200" value="%child.first_name;" id="chxcnt_fn"%/>
      </td>
      <td><label for="chxcnt_occ">[*number]</label></td>
      <td>
        <input type="text" name="chxcnt_occ" size="5" maxlength="8" value="%child.occ;" id="chxcnt_occ"%/>
      </td>
    </tr>
    <tr>
      <td><label for="chxcnt_sn">[*surname/surnames]0</label></td>
      <td colspan="4">
        <input type="text" name="chxcnt_sn" size="40" maxlength="200"
         value="%nn;
           %if;
             ((evar_m = "ADD_FAM_OK" or
               evar_m = "MOD_FAM" or evar_m = "MOD_FAM_OK" or
               evar_m = "MRG_FAM_OK" or evar_m = "MRG_MOD_FAM_OK") and
              child.surname = father.surname)
           %else;%child.surname;%end;" id="chxcnt_sn"%/>
      </td>
    </tr>
    <tr>
      <td>
        <select name="chxcnt_p">
          <option value="link"%if;(child.create = "link") selected="selected"%end;>[*link]0</option>
          <option value="create"%if;(child.create = "create") selected="selected"%end;>[*create]0</option>
        </select>
      </td>
      %apply;birth("chxcnt", "child", "false")
    </tr>
    <tr>
      <td>
        <label>
          <input type="radio" name="chxcnt_sex" value="N" %if;(child.create.sex = "neuter") checked="checked"%end;%/>?
        </label>
        <label>
          <input type="radio" name="chxcnt_sex" value="M" %if;(child.create.sex = "male") checked="checked"%end;%/>[M/F]0
        </label>
        <label>
          <input type="radio" name="chxcnt_sex" value="F" %if;(child.create.sex = "female") checked="checked"%end;%/>[M/F]1
        </label>
      </td>
      %apply;death("chxcnt", "child", "false")
    </tr>
    <tr>
      <td><label for="chxcnt_occupation">[*occupation/occupations]0</label></td>
      <td colspan="4">
        <input type="text" name="chxcnt_occupation" size="74" maxlength="200" value="%child.create.occupation;" id="chxcnt_occupation"%/>
      </td>
    </tr>
  </table>
%end;

  <dl><dd>
    <table border="1">
      <tr>
        %apply;insert_child("0")
        %foreach;child;
          %if;(cnt != 1)
            <td>&nbsp;</td>
            %apply;invert_children(cnt)
          %end;
          </tr>
          </table>
          %apply;child(cnt)
          <table border="1">
            <tr>
              %apply;insert_child(cnt)
        %end;
      </tr>
    </table>
  </dd></dl>

  <h4>[*source/sources]0</h4>

  <table border="1">
    <tr>
      <td><label for="psrc">[[*person/persons]1]</label></td>
      <td>
        <input type="text" name="psrc" size="90" maxlength="300" value="%if;(evar_psrc != "")%evar_psrc;%else;%evar_dsrc;%end;" id="psrc"%/>
      </td>
    </tr>
    <tr>
      <td><label for="src">[*family/families]0</label></td>
      <td>
        <input type="text" name="src" size="90" maxlength="300" value="%fsources;" id="src"%/>
        <input type="checkbox" name="rdsrc" value="on" %if;(evar_rdsrc = "on") checked="checked"%end;%/>
      </td>
    </tr>
  </table>

  %if;(bvar.origin_file = "on")
    <input type="text" name="origin_file" size="50" maxlength="200" value="%origin_file;"%/>
  %end;

  <p>
    <input type="submit" value="Ok"%/>
  </p>
</form>

%base_trailer;
%copyright;
</body>
</html>
