%doctype;
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <!-- $Id: updind.txt,v 5.14 2008-01-08 11:58:46 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 = "MRG_IND_OK" or evar_m = "MRG_MOD_IND_OK")
      [*merge::person/persons]1 # %index;
    %elseif;(evar_m = "MOD_IND" or evar_m = "MOD_IND_OK")
      [*modify::person/persons]0 # %index;
    %else;[*add::person/persons]0%end;
  </title>
%include.css;
%base_header;
</head>
<body%body_prop;>
%message_to_wizard;

<script type="text/javascript">
<!--
function setDead()
{
  document.forms%[0].death.value = "Death";
}

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>

%define;date(xlab,xvar,xdt,xcond)
  <table border="1" width=700px>
  <tr>
  <td>xlab</td>
  <td>
    %if;([ !dates order]0 = "ddmmyy")
      <label>[year/month/day]2
      <input name="xvar_dd" size="2" maxlength="2"%sp;
       value="%xdt.day;"xcond%/></label>
      <label>[year/month/day]1
      <span id="xvar_mm_sel"><input name="xvar_mm" size="2" maxlength="2"%sp;
       value="%xdt.month;"xcond%/></span></label>
      <label>[year/month/day]0
      <input name="xvar_yyyy" size="5" maxlength="6"%sp;
       value="%xdt.year;"xcond%/></label>
    %else;
      <label>[year/month/day]0
      <input name="xvar_yyyy" size="5" maxlength="6"%sp;
       value="%xdt.year;"xcond%/></label>
      <label>[year/month/day]1
      <span id="xvar_mm_sel"><input name="xvar_mm" size="2" maxlength="2"%sp;
       value="%xdt.month;"xcond%/></span></label>
      <label>[year/month/day]2
      <input name="xvar_dd" size="2" maxlength="2"%sp;
       value="%xdt.day;"xcond%/></label>
    %end;
  </td>
  <td>
  ...<label>[or]0 [text]0
  <input name="xvar_text" size="15" maxlength="30"%sp;
   value="%xdt.text;"xcond%/></label>
  </td>
  </tr>
  </table>
  <table border="1" width=700px>
  <tr>
  <td>[*calendar/calendars]0
  <select name="xvar_cal"%sp;
  onchange="changeCalendar('xvar_mm_sel','xvar_mm','%xdt.month;',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>
  <input name="xvar_oryear" size="5" maxlength="5" value="%xdt.oryear;"xcond%/>
  </td>
  </tr>
  </table>
%end;
%define;source(xx)
  <table border="1" width=700px>
  <tr>
  <td><label for="xx_src">[*source/sources]0</label></td>
  <td>
  <input name="xx_src" size="40" maxlength="200" value="%xx_src;"%sp;
   id="xx_src"%/>
  </td>
  </tr>
  </table>
%end;

<h1>%nn;
%if;(evar_m = "MRG_IND_OK" or evar_m = "MRG_MOD_IND_OK")
  [*merge::person/persons]1 : %first_name; %surname;
  %if;(first_name != "?" and surname != "?")
    %sp;<span class="reference">([reference key]: %first_name;.%occ; %surname)</span>
  %end;
%elseif;(evar_m = "MOD_IND" or evar_m = "MOD_IND_OK")
  [*modify::person/persons]0 : %first_name; %surname;
  %if;(first_name != "?" and surname != "?")
    %sp;<span class="reference">([reference key]: %first_name;.%occ; %surname)</span>
  %end;
%else;
  [*add::person/persons]0%end;
</h1>

<p>
  <b>[*other action] : </b>
  <a href="%prefix;m=MRG;i=%index;">[*merge::]</a> | <a href="%prefix;m=DEL_IND;i=%index;">[*delete::]</a>
</p>

<form method="post" action="%action;">
<p>
%hidden;
<input type="hidden" name="digest" value="%digest;"%/>
<input type="hidden" name="i" value="%index;"%/>
%if;(evar_m = "MRG_IND_OK" or evar_m = "MRG_MOD_IND_OK")
  %if;(evar_i2 != "")
    <input type="hidden" name="i2" value="%evar_i2;">
  %end;
  %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 != "" or evar.fexcl != "")
    <input type="hidden" name="ip" value="%evar.ip;"%/>
    %if;(evar.iexcl != "")
      <input type="hidden" name="iexcl" value="%evar.iexcl;"%/>
    %end;
    %if;(evar.fexcl != "")
      <input type="hidden" name="fexcl" value="%evar.fexcl;"%/>
    %end;
  %end;
  <input type="hidden" name="m" value="MRG_MOD_IND_OK"%/>
%elseif;(evar_m = "MOD_IND" or evar_m = "MOD_IND_OK")
  <input type="hidden" name="m" value="MOD_IND_OK"%/>
%else;
  <input type="hidden" name="m" value="ADD_IND_OK"%/>
%end;
</p>

<table border="1" width=700px>
<tr>
<td><label for="first_name">[*first name/first names]0</label></td>
<td>
<input name="first_name" size="40" maxlength="200" value="%first_name;"%sp;
 id="first_name"%/></td>
<td><label for="occ">[*number]0</label></td>
<td>
<input name="occ" size="5" maxlength="8" value="%occ;" id="occ"%/></td>
</tr>
<tr>
<td><label for="surname">[*surname/surnames]0</label></td>
<td>
<input name="surname" size="40" maxlength="200" value="%surname;"%sp;
 id="surname"%/></td>
<td>[*sex]</td>
<td>
<input type="radio" name="sex" value="M" id="sexM"%if;is_male;%sp;
 checked="checked"%end;%/><label for="sexM">[M/F]0</label>
<input type="radio" name="sex" value="F" id="sexF"%if;is_female;%sp;
 checked="checked"%end;%/><label for="sexF">[M/F]1</label>
<input type="radio" name="sex" value="N" id="sexU"%nn;
 %if;not(is_male or is_female) checked="checked"%end;%/><label%sp;
 for="sexU">?</label>
</td>
</tr>
<tr>
<td><label for="public_name">[*public name]</label></td>
<td colspan="3">
<input name="public_name" size="40" value="%public_name;" id="public_name"%/>
</td>
</tr>
<tr>
<td><label for="image">[*image/images]0</label></td>
<td colspan="3">
<input name="image" size="40" value="%image;" id="image"%/>
</td>
</tr>
</table>

<p></p>

<table border="1" width=700px>
%if;has_qualifiers;
  %foreach;qualifier;
    <tr>
    <td><label for="qualifier%cnt;">[*qualifier]0</label></td>
    <td><input name="qualifier%cnt;" size="30" value="%qualifier;"%sp;
     id="qualifier%cnt;"%/></td>
    <td><label for="add_qualifier%cnt;">[*insert::qualifier]</label></td>
    <td><input type="checkbox" name="add_qualifier%cnt;" value="on"%sp;
     id="add_qualifier%cnt;"%/></td>
    </tr>
  %end;
%elseif;(bvar.propose_qualifier != "no")
  <tr>
  <td><label for="qualifier0">[*qualifier]0</label></td>
  <td><input name="qualifier0" size="30" value="" id="qualifier0"%/></td>
  <td><label for="add_qualifier0">[*insert::qualifier]</label></td>
  <td><input type="checkbox" name="add_qualifier0" value="on"%sp;
   id="add_qualifier0"%/></td>
  </tr>
%end;
%if;has_aliases;
  %foreach;alias;
    <tr>
    <td><label for="alias%cnt;">[*alias]0</label></td>
    <td><input name="alias%cnt;" size="30" value="%alias;"%sp;
     id="alias%cnt;"%/></td>
    <td><label for="add_alias%cnt;">[*insert::alias]</label></td>
    <td><input type="checkbox" name="add_alias%cnt;" value="on"%sp;
     id="add_alias%cnt;"%/></td>
    </tr>
  %end;
%elseif;(bvar.propose_alias != "no")
  <tr>
  <td><label for="alias0">[*alias]0</label></td>
  <td><input name="alias0" size="30" value="" id="alias0"%/></td>
  <td><label for="add_alias0">[*insert::alias]</label></td>
  <td><input type="checkbox" name="add_alias0" value="on"%sp;
   id="add_alias0"%/></td>
  </tr>
%end;
%if;has_first_names_aliases;
  %foreach;first_name_alias;
    <tr>
    <td><label for="first_name_alias%cnt;">[*first name alias]0</label></td>
    <td>
    <input name="first_name_alias%cnt;" size="30"%sp;
     value="%first_name_alias;" id="first_name_alias%cnt;"%/>
    </td>
    <td><label for="add_first_name_alias%cnt;">[*insert::first name alias]%nn;
     </label></td>
    <td><input type="checkbox" name="add_first_name_alias%cnt;"%sp;
    value="on" id="add_first_name_alias%cnt;"%/></td>
    </tr>
  %end;
%else;
  <tr>
  <td><label for="first_name_alias0">[*first name alias]0</label></td>
  <td><input name="first_name_alias0" size="30" value=""%sp;
   id="first_name_alias0"%/></td>
  <td><label for="add_first_name_alias0">[*insert::first name alias]%nn;
   </label></td>
  <td><input type="checkbox" name="add_first_name_alias0" value="on"%sp;
   id="add_first_name_alias0"%/></td>
  </tr>
%end;
%if;has_surnames_aliases;
  %foreach;surname_alias;
    <tr>
    <td>[*surname alias]0</td>
    <td>
    <input name="surname_alias%cnt;" size="30" value="%surname_alias;"%/>
    </td>
    <td>[*insert::surname alias]</td>
    <td><input type="checkbox" name="add_surname_alias%cnt;" value="on"%/></td>
    </tr>
  %end;
%else;
  <tr>
  <td><label for="surname_alias0">[*surname alias]0</label></td>
  <td><input name="surname_alias0" size="30" value=""%sp;
   id="surname_alias0"%/></td>
  <td><label for="add_surname_alias0">[*insert::surname alias]</label></td>
  <td><input type="checkbox" name="add_surname_alias0" value="on"%sp;
   id="add_surname_alias0"%/></td>
  </tr>
%end;
</table>

<h4>[*birth]</h4>

<table border="1" width=700px>
<tr>
<td>[*born]2...</td>
<td><label for="birth_place">[*place]</label></td>
<td>
<input name="birth_place" size="40" maxlength="200" value="%birth_place;"%sp;
 id="birth_place"%/>
</td>
</tr>
</table>

%apply;date([*date]0, "birth", "birth", "")

%apply;source("birth")

<p></p>

<table border="1" width=700px>
<tr>
<td>[*baptized]2...</td>
<td><label for="bapt_place">[*place]</label></td>
<td>
<input name="bapt_place" size="40" maxlength="200" value="%bapt_place;"%sp;
 id="bapt_place"%/>
</td>
</tr>
</table>

%apply;date([*date]0, "bapt", "bapt", "")

%apply;source("bapt")

<h4>[*death]</h4>

<table border="1" width=700px>
<tr>
<td>
<select name="death">
  %if;(not has_birth_date and dont_know_if_dead)
  <option value="Auto" selected="selected"> -</option>
  %end;
  <option value="NotDead"%if;not_dead; selected="selected"%end;
   >[*alive]2</option>
  <option value="DontKnowIfDead"%if;(dont_know_if_dead and has_birth_date)%sp;
   selected="selected"%end;>[*don't know]0%nl;</option>
  <option value="Death"%if;(death.year != "" or death.text != "" or
   dead_dont_know_when) selected="selected"%end;
   >[*died]2...</option>
  <option value="DeadYoung"%if;died_young; selected="selected"%end;
   >[*died young]2</option>
  <option value="OfCourseDead"%if;of_course_dead; selected="selected"%end;
   >[*of course dead]</option>
</select>
</td>
<td>
<label>[*place]0
<input name="death_place" size="40" maxlength="200" value="%death_place;"%sp;
 onfocus='setDead()'%/></label>
</td>
</tr>
</table>

%apply;date([*date]0, "death", "death", " onfocus='setDead()'")

<table border="1" width=700px>
<tr>
<td>
<label>
<input type="radio" name="death_reason" value="Killed"%if;dr_killed;
%sp;checked="checked"%end; onclick='setDead()'%/>[*killed (in action)]2
</label><label>
<input type="radio" name="death_reason" value="Murdered"%if;dr_murdered;
%sp;checked="checked"%end; onclick='setDead()'%/>[*murdered]2
</label><label>
<input type="radio" name="death_reason" value="Executed"%if;dr_executed;
%sp;checked="checked"%end; onclick='setDead()'%/>[*executed (legally killed)]2
</label><label>
<input type="radio" name="death_reason" value="Disappeared"%if;dr_disappeared;
%sp;checked="checked"%end; onclick='setDead()'%/>[*disappeared]2
</label><label>
<input type="radio" name="death_reason" value="Unspecified"%if;dr_unspecified;
%sp;checked="checked"%end; onclick='setDead()'%/>[*unspecified]2
</label>
</td>
</tr>
</table>

%apply;source("death")

<h4>[*burial]</h4>

<table border="1" width=700px>
<tr>
<td>
<select name="burial">
<option value="UnknownBurial"%if;bt_unknown_burial; selected="selected"%end;
>-</option>
<option value="Buried"%if;bt_buried; selected="selected"%end;
>[*buried]2</option>
<option value="Cremated"%if;bt_cremated; selected="selected"%end;
>[*cremated]2</option>
</select>
</td>
<td>
<label>[*place]0
<input name="burial_place" size="40" maxlength="200" value="%burial_place;"%/>
</label>
</td>
</tr>
</table>

%apply;date([*date]0, "burial", "burial", "")

%apply;source("burial")

<h4><label for="occu">[*occupation/occupations]1</label></h4>

<table border="1" width=700px>
<tr>
<td>
<input name="occu" size="40" maxlength="200" value="%occupation;" id="occu"%/>
</td>
</tr>
</table>

<h4>[*relation/relations]1</h4>

%define;insert_relation(xx)
  <table border="1">
  <tr>
  <td>
  <label>[*insert::relation/relations]0
  <input type="checkbox" name="add_relationxx" value="on"%/></label>
  </td>
  </tr>
  </table>
%end;
%define;relation_type(xx)
  <table border="1">
  <tr>
  <td>
  <select name="rxx_type">
  <option value="Undef"%if;relation.rt_empty; selected="selected"%end;
  > -</option>
  <option value="Adoption"%if;relation.rt_adoption; selected="selected"%end;
  >%sp;[*adoptive father/adoptive mother/adoptive parents]2</option>
  <option value="Recognition"%if;relation.rt_recognition;%sp;
   selected="selected"%end;>%sp;
    [*recognizing father/recognizing mother/recognizing parents]2</option>
  <option value="CandidateParent"%if;relation.rt_candidate_parent;%sp;
   selected="selected"%end;
    > [*candidate father/candidate mother/candidate parents]2</option>
  <option value="GodParent"%if;relation.rt_godparent;%sp;
   selected="selected"%end;>%sp;
    [*godfather/godmother/godparents]2</option>
  <option value="FosterParent"%if;relation.rt_foster_parent;%sp;
   selected="selected"%end;>%sp;
    [*foster father/foster mother/foster parents]2</option>
  </select>
  </td>
  </tr>
  </table>
%end;
%define;one_relation(xcnt,xvar,xrel,xsex)
 <table border="1" width=700px>
    <tr>
      <td><label for="rxcnt_xvar_fn">[*first name/first names]0</label></td>
      <td>
        <input name="rxcnt_xvar_fn" size="23" maxlength="200"%sp;
         value="%relation.xrel.first_name;" id="rxcnt_xvar_fn"%/>
      </td>
      <td align="right"><label for="rxcnt_xvar_occ">[*number]</label></td>
      <td>
        <input name="rxcnt_xvar_occ" size="5" maxlength="8"%sp;
         value="%relation.xrel.occ;" id="rxcnt_xvar_occ"%/>
      </td>
      <td>
        <select name="rxcnt_xvar_p">
        <option value="link"%if;relation.xrel.link;%sp;
         selected="selected"%end;>[*link]0</option>
        <option value="create"%if;relation.xrel.create;%sp;
         selected="selected"%end;>[*create]0</option>
        </select>
      </td>
    </tr>
    <tr>
      <td><label for="rxcnt_xvar_sn">[*surname/surnames]0</label></td>
      <td colspan="4">
        <input name="rxcnt_xvar_sn" size="40" maxlength="200"%sp;
         value="%relation.xrel.surname;" id="rxcnt_xvar_sn"%/>
         ([sex]0 = xsex)
      </td>
    </tr>
  </table>
%end;

%apply;insert_relation("0")
<p></p>
%if;has_relations;
  %foreach;relation;
    %apply;relation_type(cnt)
    <p></p>
    %apply;one_relation(cnt,"fath","r_father",[M/F]0)
    %apply;one_relation(cnt,"moth","r_mother",[M/F]1)
    <p></p>
    %apply;insert_relation(cnt)
    <p></p>
  %end;
%else;
  %apply;relation_type("1")
  <p></p>
  %apply;one_relation("1","fath","r_father",[M/F]0)
  %apply;one_relation("1","moth","r_mother",[M/F]1)
  <p></p>
  %apply;insert_relation("1")
  <p></p>
%end;

<h4>[*title/titles]1</h4>

%define;insert_title(xx)
  <table border="1">
  <tr>
  <td>
  <label>[*insert::|<input name="ins_titlexx_n" size="1" maxlength="1"%sp;
   value="1"%/></label><label> | title/titles]
  <input type="checkbox" name="ins_titlexx" value="on"%/></label>
  </td>
  </tr>
  </table>
%end;
%define;one_title(xcnt)
  <table border="1" width=700px>
    <tr>
      <td><label for="t_identxcnt">[*title/titles]0</label></td>
      <td>
        <input name="t_identxcnt" size="20" value="%title.t_ident;"%sp;
         id="t_identxcnt"%/>
      </td>
      <td><label for="t_placexcnt">[*estate]0</label></td>
      <td colspan="2">
        <input name="t_placexcnt" size="30" value="%title.t_estate;"%sp;
         id="t_placexcnt"%/>
      </td>
    </tr>
    <tr>
      <td><label for="t_namexcnt">[*name]0</label></td>
      <td>
        <input name="t_namexcnt" size="20" value="%title.t_name;"%sp;
         id="t_namexcnt"%/>
      </td>
      <td><label for="t_nthxcnt">[*nth]0</label></td>
      <td>
        <input name="t_nthxcnt" size="3" value="%title.t_nth;"%sp;
         id="t_nthxcnt"%/>
      </td>
      <td>
        <label>[*main title]0
        <input type="checkbox" name="t_main_titlexcnt" value="on"%sp;
         %if;title.t_main; checked="checked"%end;%/></label>
      </td>
    </tr>
  </table>
  %apply;date([*begin]0, "t_date_startxcnt", "title_date_start", "")
  %apply;date([*end]0, "t_date_endxcnt", "title_date_end", "")
%end

%apply;insert_title("0")
<p></p>
%if;has_titles;
  %foreach;title;
    %apply;one_title(cnt)
    <p></p>
    %apply;insert_title(cnt)
    <p></p>
  %end;
%else;
  %apply;one_title("1")
  <p></p>
  %apply;insert_title("1")
  <p></p>
%end;

<table border="1">
  <tr>
    <td>[*access]0</td>
    <td>
      <label><input type="radio" name="access"%sp;
       value="IfTitles"%if;acc_if_titles; checked="checked"%end;%/>
      [*if titles]0</label>
      <label><input type="radio" name="access"%sp;
       value="Public"%if;acc_public; checked="checked"%end;%/>
      [*public]0</label>
      <label><input type="radio" name="access"%sp;
       value="Private"%if;acc_private; checked="checked"%end;%/>
      [*private]0</label>
    </td>
  </tr>
</table>

<h4><label for="notes">[*note/notes]1</label></h4>
<div id="toolbar">
%let;name;notes%in;
%include.toolbar;
</div>
<p>
<table>
  <tr>
    <td>
      <textarea name="notes" rows="12" cols="80" id="notes">%sq;
        %notes;%sq;
      </textarea>%sq;
    </td>
  </tr>
  <tr>
    <td>
      %let;name;notes%in;
      %include.accent;
    </td>
  </tr>
</table>
</p>

<h4><label for="src">[*source/sources]0</label></h4>

<table border="1" width=700px>
  <tr>
    <td>
      <input name="src" size="70" maxlength="300"%sp; value="%sources;"%sp;
       id="src"%/>
    </td>
  </tr>
</table>

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

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