%doctype;
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <!-- $Id: updfam.txt,v 5.10 2007/01/19 01:53:16 ddr Exp $ -->
  <!-- Copyright (c) 1998-2007 INRIA -->
  <!-- Modified mickroue(a)yahoo.fr 20140923 templ=templm -->
  <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>
  <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;
  %include.js_upd;
  %base_header;

%(<!-- Begin define (used in updind.txt, updfam.txt)  -->%)
  %let;ak1;[link]
             [number]
           [create]
  %in;
  %let;ak2;  (M) masculin
             (F) féminin
             (N) neutre
  %in;
  %let;ak3;[tools]
             (R) remonter
             (D) descendre
             (H) haut
             (B) bas
             (A) ajouter
             (I) insérer
  %in;
  %let;ak4;  (P) patronyme afficher/masquer%in;
  %let;ak5;  (V) [*godfather/godmother/godparents]2
             (W) [*adoptive father/adoptive mother/adoptive parents]2
             (X) [*recognizing father/recognizing mother/recognizing parents]2
             (Y) [*candidate father/candidate mother/candidate parents]2
             (Z) [*foster father/foster mother/foster parents]2
  %in;
  %let;lty;
    title="[*year/month/day]0
             3 [exact]0
             /3/, //3 [about (date)]0
             3 + 2 = /5/
             3 - 2 = /1/
             ?3, .3 [possibly (date)]0
             /3 [before (date)]0
             3/ [after (date)]0
             3/4 [or]
             3..4, 3.4 [between (date)]
             [text]"
  %in;
  %define;date(z1,z2)
    <input type="hidden" id="z1_cal" name="z1_cal" value="%z2.calendar;"
    %/><input type="hidden" id="z1_text" name="z1_text" value="%z2.text;"
    %/><input type="hidden" id="z1_yyyy" name="z1_yyyy" value="%z2.year;"
    %/><input type="hidden" id="z1_prec" name="z1_prec" value="%z2.prec;"
    %/><input type="hidden" id="z1_oryear" name="z1_oryear" value="%z2.oryear;"%/>%nn;
    %let;l1;%z2.prec;%in;
    %let;l2;%z2.year;%in;
    %let;l3;%z2.oryear;%in;
    %let;l_dd;%if;(z2.day != "" and z2.day < 10)0%end;%z2.day;%in;
    %let;l_mm;%if;(z2.month != "" and z2.month < 10)0%end;%z2.month;%in;
    %let;l_yy;
      %if;(l1 = "sure")%z2.year;%nn;
      %elseif;(l1 = "about")/%l2;/%nn;
      %elseif;(l1 = "maybe")?%l2;%nn;
      %elseif;(l1 = "before")/%l2;%nn;
      %elseif;(l1 = "after")%l2;/%nn;
      %elseif;(l1 = "oryear")%l2;/%l3;%nn;
      %elseif;(l1 = "yearint")%l2;..%l3;%nn;
      %elseif;(z2.text != "")%z2.text;%nn;
      %else;%l2;%nn;
      %end;
    %in;
    %if;([ !dates order]0 = "ddmmyyyy")
      <input id=z1_dd name=z1_dd class=d autocomplete=off size=1 maxlength=2 value="%l_dd;" title="[year/month/day]2" %apply;accesskey("z1") onkeypress="javascript:return oKPdd(event,'z1','_dd','_mm');"%/>%nn;
      <input id=z1_mm name=z1_mm class=m autocomplete=off size=1 maxlength=2 value="%l_mm;" title="[year/month/day]1" list=dlmonth onkeypress="javascript:return oKPmm(event,'z1','_mm','_yy');" onkeyup="javascript:return oKU1(event,'z1_mm','z1_dd')"%/>%nn;
      <input id=z1_yy name=z1_yy class=y autocomplete=off size=8 maxlength=50 value="%l_yy;" %lty; onkeydown="if(event.keyCode == 13)javascript:evD('z1')" onkeyup="javascript:return oKU1(event,'z1_yy','z1_mm')" onblur="javascript:evD('z1')"%/>%nn;
    %elseif;([ !dates order]0 = "mmddyyyy")
      <input id=z1_mm name=z1_mm class=m autocomplete=off size=1 maxlength=2 value="%l_mm;" title="[year/month/day]1" %apply;accesskey("z1") list=dlmonth onkeypress="javascript:return oKPmm(event,'z1','_mm','_dd');"%/>%nn;
      <input id=z1_dd name=z1_dd class=d autocomplete=off size=1 maxlength=2 value="%l_dd;" title="[year/month/day]2" onkeypress="javascript:return oKPdd(event,'z1','_dd','_yy');" onkeyup="javascript:return oKU1(event,'z1_dd','z1_mm')"%/>%nn;
      <input id=z1_yy name=z1_yy class=y autocomplete=off size=8 maxlength=50 value="%l_yy;" %lty; onkeydown="if(event.keyCode == 13)javascript:evD('z1')" onkeyup="javascript:return oKU1(event,'z1_yy','z1_dd')" onblur="javascript:evD('z1')"%/>%nn;
    %else;
      <input id=z1_yy name=z1_yy class=y autocomplete=off size=8 maxlength=50 value="%l_yy;" %lty; %apply;accesskey("z1") onkeypress="javascript:return cF1(event,'z1_mm');" onkeydown="if(event.keyCode == 13)javascript:evD('z1')" onblur="javascript:evD('z1')"%/>%nn;
      <input id=z1_mm name=z1_mm class=m autocomplete=off size=1 maxlength=2 value="%l_mm;" title="[year/month/day]1" list=dlmonth onkeypress="javascript:return oKPmm(event,'z1','_mm','_dd');" onkeyup="javascript:return oKU1(event,'z1_mm','z1_yy')"%/>%nn;
      <input id=z1_dd name=z1_dd class=d autocomplete=off size=1 maxlength=2 value="%l_dd;" title="[year/month/day]2" onkeypress="javascript:return oKPdd(event,'z1','_dd','_place');" onkeyup="javascript:return oKU1(event,'z1_dd','z1_mm')"%/>%nn;
    %end;
  %end;
  %define;source(z1,xx)
    <label>[source/sources]0 <input name="z1_src" size="44" maxlength="200" value="%xx_src;" id="z1_src" %l_on6;%/></label>
  %end;
%(<!-- End define (used in updind.txt, updfam.txt)  -->%)

%( <!-- Begin define  --> %)
%let;lc1;<code>(1)</code>%in;%let;la1;accesskey="1"%in; %( prénom du père %)
%let;lc6;<code>(2)</code>%in;%let;la6;accesskey="2"%in; %( enfants %)
%let;lc2;<code>(3)</code>%in;%let;la2;accesskey="3"%in; %( mariage %)
%let;lc3;<code>(4)</code>%in;%let;la3;accesskey="4"%in; %( commentaire %)
%let;lc4;<code>(5)</code>%in;%let;la4;accesskey="5"%in; %( témoins %)
%let;lc5;<code>(6)</code>%in;%let;la5;accesskey="6"%in; %( sources %)

%let;l_on1;if (event.keyCode == 13) javascript:document.upd.submit();%in;
%let;l_on2; onblur="tUC(this)" onkeydown="if(event.keyCode == 13)tUC(this)"%in;
%let;l_on3; onblur="tUC1(this)" onkeydown="if(event.keyCode == 13)tUC1(this)"%in;
%let;l_on4;%if;(bvar.datalist_occu > 0) list="dloccu"%if;(bvar.datalist_occu = 2) onkeyup="ldl(this,'occu',event)"%end;%end;%in;
%let;l_on5;%if;(bvar.datalist_place > 0) list="dlplace"%if;(bvar.datalist_place = 2) onkeyup="ldl(this,'place',event)"%end;%end;%in;
%let;l_on6;%if;(bvar.datalist_src > 0) list="dlsrc"%if;(bvar.datalist_src = 2) onkeyup="ldl(this,'src',event)"%end;%end;%in;
%let;l_on7; onfocus="oF5(this)" onblur="oB5()" %in;
%let;lt1;
  title="%if;([ !dates order]0 = "ddmmyyyy")
           [*year/month/day]2 [year/month/day]1 [year/month/day]0
         %elseif;([ !dates order]0 = "mmddyyyy")
           [*year/month/day]1 [year/month/day]2 [year/month/day]0
         %else;
           [*year/month/day]0 [year/month/day]1 [year/month/day]2
         %end;
         [*year/month/day]0
           3 [exact]0
           /3/, //3 [about (date)]0
           3 + 2 = /5/
           3 - 2 = /1/
           ?3, .3 [possibly (date)]0
           /3 [before (date)]0
           3/ [after (date)]0"
%in;
%let;lt2;title="%ak1;%ak2;%ak3;%ak4;"%in;
%let;lt3;title="%ak1;"%in;
%let;lt4;
  title="[*place]
           1 : [birth] [father/mother]0
           2 : [death] [father/mother]0
           3 : [birth] [father/mother]1
           4 : [death] [father/mother]1
           * : [marriage/marriages]0
           0 : [birth] [child/children]0 1
           + : [death] [child/children]0 1"
%in;
%let;ldmy;%if;([ !dates order]0 = "ddmmyyyy")dd%elseif;([ !dates order]0 = "mmddyyyy")mm%else;ev%end;%in;
  %define;load_focus()
    %if;(evar_m = "ADD_FAM" or evar_m = "ADD_PAR")
      %if;(father.first_name = "")
        onload="sIV('pa1_fn')"%nn;
      %else;
        onload="sIV('pa2_fn')"%nn;
      %end;
    %elseif;(marriage.prec != "sure")
      onload="sIV('marr_%ldmy;')"%nn;
    %else;
      onload="document.getElementById('ach').click()"%nn;
    %end;
  %end;

  %define;accesskey(z1)
    %if;("z1"="marr") %la2; %end;
  %end;

  %define;place(z1,z2)
    <label>[place]<input id=z1_place name=z1_place size=44 maxlength=200 value="%z2_place;" onblur="fillPlaceFam(this)" %l_on5;%/></label>
  %end;

  %define;date_place(xx,z1,z2,z3,z4,z5)
    <span class="dmyt">%nn;
    %if;([ !dates order]0 = "ddmmyyyy")
      <input id=z2_dd name=z2_dd class=d autocomplete=off size=1 maxlength=2 value="" onkeypress="javascript:return oKPdd(event,'z2','_dd','_mm');"%/>%nn;
      <input id=z2_mm name=z2_mm class=m autocomplete=off size=1 maxlength=2 value="" list="dlmonth" onkeypress="javascript:return oKPmm(event,'z2','_mm','_yy');" onkeyup="javascript:return oKU1(event,'z2_mm','z2_dd')"%/>%nn;
      <input id=z2_yy name=z2_yyyy class=y autocomplete=off size=4 maxlength=12 value="" onkeypress="javascript:return cF2(event,'z3',z4,'z5');" onkeydown="if(event.keyCode == 13)javascript:evSD('z2')" onkeyup="javascript:return oKU1(event,'z2_yy','z2_mm')" onblur="javascript:evSD('z2')"%/>%nn;
    %elseif;([ !dates order]0 = "mmddyyyy")
      <input id=z2_mm name=z2_mm class=m autocomplete=off size=1 maxlength=2 value="" list="dlmonth" onkeypress="javascript:return oKPmm(event,'z2','_mm','_dd');"%/>%nn;
      <input id=z2_dd name=z2_dd class=d autocomplete=off size=1 maxlength=2 value="" onkeypress="javascript:return oKPdd(event,'z2','_dd','_yy');" onkeyup="javascript:return oKU1(event,'z2_dd','z2_mm')"%/>%nn;
      <input id=z2_yy name=z2_yyyy class=y autocomplete=off size=4 maxlength=12 value="" onkeypress="javascript:return cF2(event,'z3',z4,'z5');" onkeydown="if(event.keyCode == 13)javascript:evSD('z2')" onkeyup="javascript:return oKU1(event,'z2_yy','z2_dd')" onblur="javascript:evSD('z2')"%/>%nn;
    %else;
      <input id=z2_yy name=z2_yyyy class=y autocomplete=off size=4 maxlength=12 value="" onkeypress="javascript:return cF2(event,'z3',z4,'z5');" onkeydown="if(event.keyCode == 13)javascript:evSD('z2')" onblur="javascript:evSD('z2')"%/>%nn;
      <input id=z2_mm name=z2_mm class=m autocomplete=off size=1 maxlength=2 value="" list="dlmonth" onkeypress="javascript:return oKPmm(event,'z2','_mm','_dd');" onkeyup="javascript:return oKU1(event,'z2_mm','z2_yy')"%/>%nn;
      <input id=z2_dd name=z2_dd class=d autocomplete=off size=1 maxlength=2 value="" onkeypress="javascript:return oKPdd(event,'z2','_dd','_pl');" onkeyup="javascript:return oKU1(event,'z2_dd','z2_mm')"%/>%nn;
    %end;
      <input id=z2_pl name=z2_pl size=44 maxlength=200 class="pl" value="" onblur="fillPlaceFam(this)" %l_on5;%/></span>%nn;
  %end;

  %define;link_create1(z1,z2,z3,xx)
    %let;l1;%if;("z2"="1")M%else;F%end;%in;
    <input type="hidden" id="z1z2_p" name="z1z2_p" value="%xx.create;"%/>
    <input id="z1z2_occ" name="z1z2_occ" class="occz3" placeholder="%l1;" autocomplete="off" size="3" maxlength="8" onblur="oB4('z1z2')"
     %if;(xx.create="create")%elseif;(xx.occ = "") value="0" %else; value="%xx.occ;" %end;>
  %end;

  %define;link_create2(z1,z2,xx)
    %let;l;%xx.create.sex;%in;
    %let;l1;%if;(l="male")M%elseif;(l="female")F%else;N%end;%in;
    %let;l2;%if;(xx.create="create")2%end;%in;
    <input type="hidden" id="z1z2_sex" name="z1z2_sex" value="%l1;"%/>
    <input type="hidden" id="z1z2_p" name="z1z2_p" value="%xx.create;"%/>
    <input id="z1z2_occ" name="z1z2_occ" class="occ%l2;" placeholder="N" autocomplete="off" size="5" maxlength="8" onkeypress="javascript:return oKP2(event,'z1','z2','_occ')" onblur="oB2('z1z2')"
     %if;(xx.create="create") value="" %elseif;(xx.occ = "") value="0" %else; value="%xx.occ;" %end;>
  %end;

  %define;one_parent(z1)
    %let;l1;%if;(parent.create="link") class="hid" %else; class="vis" %end;%in;
    %if;("z1" = "1")
      <tr>
        <td>%apply;link_create1("pa","z1","0","parent")</td>
        <td><input id="pa1_fn" name="pa1_fn" size="30" maxlength="200" placeholder="[first name/first names]0" value="%parent.first_name;" %la1;
             onkeypress="javascript:return cF2(event,'pa',1,'_fn');" %l_on3;%/><br
         %/><input id="pa1_sn" name="pa1_sn" class="ar" size="30" maxlength="200" placeholder="[surname/surnames]0" value="%parent.surname;"
             onkeypress="javascript:return cF2(event,'pa',1,'_sn');" %l_on2;%/></td>
        <td><span id="dppa1" %l1;>%nn;
            %apply;date_place("parent","birth","pa1b","pa","1","b_yy")
            %apply;date_place("parent","death","pa1d","pa","1","d_yy")</span></td>
        <td><input id="pa1_occupation" %l1; name="pa1_occupation" size="40" maxlength="200" value="%parent.create.occupation" %l_on4;%/></td>
      </tr>
    %else;
      <tr>
        <td>%apply;link_create1("pa","z1","1","parent")</td>
        <td><input id="pa2_fn" name="pa2_fn" size="30" maxlength="200" placeholder="[first name/first names]0" value="%parent.first_name;"
             onkeypress="javascript:return cF2(event,'pa',2,'_fn');" %l_on3;%/><br
         %/><input id="pa2_sn" name="pa2_sn" class="ar" size="30" maxlength="200" placeholder="[surname/surnames]0" value="%parent.surname;"
             onkeypress="javascript:return cF2(event,'pa',2,'_sn');" %l_on2;%/></td>
        <td><span id="dppa2" %l1;>%nn;
            %apply;date_place("parent","birth","pa2b","pa","2","b_yy")
            %apply;date_place("parent","death","pa2d","pa","2","d_yy")</span></td>
        <td><input id="pa2_occupation" %l1; name="pa2_occupation" size="40" maxlength="200" value="%parent.create.occupation" %l_on4;%/></td>
      </tr>
    %end;
  %end;
  %define;one_child(z1)
    %let;l1;%expr(z1+1)%in;
    %let;l2;%if;(child.create="link") class="hid" %else; class="vis" %end;%in;
    <tr id="chz1">
      <td>%apply;link_create2("ch","z1","child")</td>
      <td><input id="chz1_fn" name="chz1_fn" size="30" maxlength="200" value="%child.first_name;"
           onkeypress="javascript:return cF2(event,'ch',z1,'_fn');" %l_on3; %/><br
       %/><input type="hidden" id="chz1_sn" name="chz1_sn" class="ar" size="30" maxlength="200" value="%child.surname;"
           onkeypress="javascript:return cF2(event,'ch',z1,'_sn');" %l_on2; %/></td>
      <td><span id="dpchz1" %l2;>%nn;
          %apply;date_place("child","birth","chz1b","ch","z1","b_yy")
          %apply;date_place("child","death","chz1d","ch","z1","d_yy")</span></td>
      <td><input id="chz1_occupation" %l2; name="chz1_occupation" size="40" maxlength="200" value="%child.create.occupation" %l_on4;%/></td>
    </tr>
  %end;
  %define;one_witness(z1)
    <tr id="witnz1">
      <td>%apply;link_create2("witn","z1","witness")</td>
      <td><input id="witnz1_fn" name="witnz1_fn" class="ar" size="30" maxlength="200" value="%witness.first_name;" %l_on3; %/></td>
      <td><input id="witnz1_sn" maxlength="200" name="witnz1_sn" size="30" value="%witness.surname;" %l_on2; %/></td>
    </tr>
  %end;
%( <!-- End define --> %)
</head>

<body%body_prop; id="upd" %apply;load_focus()>
%message_to_wizard;
<form name="upd" method="post" action="%action;">
  <p style="display:none;">
    <span id=dmy>[ !dates order]0</span>
    %hidden;
    <input type="hidden" name="rdsrc" value="%evar_rdsrc;"%/>
    %include.upd_datalist;
    <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>
  <fieldset>
    <legend>%lc1;
      %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;
      &nbsp;<input type="submit" value="Ok"%/>
    </legend>
    <table summary="parents" cellspacing=0 cellpadding=0>
      %foreach;parent;%apply;one_parent(cnt)%end;
    </table>
  </fieldset>
  <fieldset>
    <legend>%lc6; [*child/children]1</legend>
    <table summary="children" cellspacing=0 cellpadding=0>
      <tr>
        <td class="bg7"><abbr %lt2;>#</abbr></td>
        <td class="bg7">[first name/first names]0 /
          <a id="ch_hid" style="display:none;" href="javascript:visHid('ch','_sn')" title="[visualize/show/hide/summary]2 [surname/surnames]0">[surname/surnames]0</a>
          <a id="ch_vis" style="display:inline;" href="javascript:visHid('ch','_sn')" title="[visualize/show/hide/summary]1 [surname/surnames]0"><em>[surname/surnames]0</em></a></td>
        <td class="bg7">[birth] / [death] : <abbr %lt1;>[date/dates]0</abbr> <abbr %lt4;>[place]</abbr></td>
        <td class="bg7">[occupation/occupations]0</td>
        <td class="bd0"></td>
      </tr>
      %foreach;child;%apply;one_child(cnt)%end;
      <tr id="new_child"></tr>
      <tr><td class="bg7"><a id="ach" href="javascript:addChild(1,1)" %la6; %l_on7;> + </a></td></tr>
    </table>
  </fieldset>
  <div>
  <fieldset class="c">
    <legend>%lc2;
      <select name="mrel" onkeydown="%l_on1;">
        <option value="marr"%if;(mrel = "marr" or mrel = "nsckm") selected="selected"%end;>[*married]</option>
        <option value="not_marr"%if;(mrel = "not_marr" or mrel = "nsck") selected="selected"%end;>[*not married]</option>
        <option value="engaged"%if;(mrel = "engaged") selected="selected"%end;>[*engaged]</option>
        <option value="no_ment"%if;(mrel = "no_ment") selected="selected"%end;>[*no mention]</option>
      </select>
    </legend>
    <span class="dmy">[date/dates]0 %apply;date("marr","marriage")</span>
    %apply;place("marr","marriage")
    %apply;source("marr","marriage")
    <fieldset id="dsp1">
      <legend><a id="dsp1a" href="javascript:dsp1('dsp')">…</a></legend>
    </fieldset>
    <fieldset id="dsp0" style="display:none">
      <legend><a id="dsp0a" href="javascript:dsp0('dsp')"> - </a></legend>
      <p><label><input type="checkbox" name="nsck" value="on" %if;(mrel = "nsck" or mrel = "nsckm") checked="checked"%end;%/> [*no sexes check]</label></p>
      <p class="dmy">
          <select name="div">
            <option value="not_divorced"%if;(divorce = "not_divorced") selected="selected"%end;>[*not divorced]</option>
            <option value="separated"%if;(divorce = "separated") selected="selected"%end;>[*separated]</option>
            <option value="divorced"%if;(divorce = "divorced") selected="selected"%end;>[*divorced]</option>
          </select>
          [date/dates]0 %apply;date("div","divorce")</p>
    </fieldset>
  </fieldset>
  <fieldset class="c">
    <legend>%lc3;
      <label style="font-size:inherit" for="comment" %la3;> [*comment]0</label>
    </legend>
    <textarea id="comment" name="comment" cols="43" rows="3" style="overflow:hidden;" onkeydown="%l_on1;">%comment;%sq;</textarea>
  </fieldset>
  </div>
  <fieldset>
    <legend>%lc4; [*witness/witnesses]1</legend>
    <table summary="witnesses" cellspacing=0 cellpadding=0>
      <tr>
        <td class="bg7"><abbr %lt2;>#</abbr></td>
        <td class="bg7">[first name/first names]0</td>
        <td class="bg7">[surname/surnames]0</td>
        <td class="bd0"></td>
      </tr>
      %foreach;witness;%apply;one_witness(cnt)%end;
      <tr id="new_witness"></tr>
      <tr><td class="bg7"><a href="javascript:addWitness(1,1)" %la4; %l_on7;> + </a></td></tr>
    </table>
  </fieldset>
  <fieldset class="c">
    <legend>%lc5; [*source/sources]1</legend>
    <div>
      <label>[family/families]0<input id="src" name="src" size="40" maxlength="300" value="%fsources;" %la5; %l_on6;%/></label>
      <label>[person/persons]1<input  id="psrc" name="psrc" size="40" maxlength="300" value="%if;(evar_psrc != "")%evar_psrc;%else;%evar_dsrc;%end;" %l_on6;%/></label>
      %if;(bvar.origin_file = "on")
        <label>[file]<input name="origin_file" size="50" maxlength="200" value="%origin_file;"%/></label>
      %end;
    </div>
  </fieldset>
</form>
<div style="height:20px;clear:both;"> </div>
%base_trailer;
%copyright;
</body>
</html>