ne_rajtas();
}
//kontrolado de la datoj
if ($nekontrolu != "JES") {
    $parto = "kontroli";
    if (!kontrolu_daton($naskigxdato) or $sekso != "ina" and $sekso != "vira") {
        $parto = "korektigi";
    }
    malplentesto($nomo);
    malplentesto($personanomo);
    if (KAMPOELEKTO_IJK) {
        malplentesto($adreso);
    } else {
        malplentesto($strato);
    }
    malplentesto($urbo);
    //malplentesto($posxtkodo);
}
$_SESSION["partoprenanto"]->kopiu();
if ($parto == "korektigi") {
    require "partoprenanto.php";
} else {
    //Enmeti la datumojn en la datumaro
    if ($_SESSION["ago"] != "sxangxi") {
        $_SESSION["partoprenanto"]->kreu();
    }
    $_SESSION["partoprenanto"]->skribu();
    rekalkulu_agxojn("partoprenanto");
    $_SESSION["partoprenanto"] = new Partoprenanto($_SESSION["partoprenanto"]->datoj[ID]);
    if (!$_SESSION["sekvontapagxo"]) {
        $_SESSION["sekvontapagxo"] = "partopreno.php?sp=partrezultoj.php";
/**
 * Montras grandan entajpejon.
 *
 *<pre>
 * teksto  [¯¯¯¯¯¯¯¯¯¯¯¯]  postteksto
 *         [            ]
 *         [____________]
 *</pre>
 *
 * @param string $teksto    la titolo (en <th/>).
 * @param string $nomo      la nomo de la tekstkampo (por sendi al la servilo)
 * @param string $io        la komenca teksto de la tekstkampo
 * @param int $kolumnoj     la larĝeco de la tekstkampo (proksiume en literoj)
 * @param int $linioj       la alteco de la tekstkampo (nombro da tekstlinioj)
 * @param string $postteksto teksto montrita post la entajpejo.
 * @param string $manko      ebla erarmesaĝo (por testi, ĉu $io estas
 *                           malplena, vidu {@link malplentesto()})
 * @param string $kutima     valoro por enmeti, se $io == "".
 */
function granda_entajpejo($teksto, $nomo, $io = "", $kolumnoj = "", $linioj = "", $manko = "", $kutima = "", $postteksto = "")
{
    eoecho($teksto);
    echo " <textarea name='{$nomo}' ";
    if ($linioj) {
        echo "rows='{$linioj}' ";
    }
    if ($kolumnoj) {
        echo "cols='{$kolumnoj}' ";
    }
    echo ">";
    if ($io) {
        echo $io;
    } else {
        echo $kutima;
    }
    echo "</textarea>";
    if ($postteksto) {
        eoecho("<br/> " . $postteksto . "\n");
    }
    echo "<br/>";
    if ($manko) {
        malplentesto($io, $manko);
    }
}
    ne_rajtas();
}
//kontrolado de la datoj
if ($_REQUEST['nekontrolu'] != "JES") {
    $parto = "kontroli";
    if (!kontrolu_daton($_REQUEST['naskigxdato']) or $_REQUEST['sekso'] != "ina" and $_REQUEST['sekso'] != "vira") {
        $parto = "korektigi";
    }
    malplentesto($_REQUEST['nomo']);
    malplentesto($_REQUEST['personanomo']);
    if (KAMPOELEKTO_IJK) {
        malplentesto($_REQUEST['adreso']);
    } else {
        malplentesto($_REQUEST['strato']);
    }
    malplentesto($_REQUEST['urbo']);
    //malplentesto($posxtkodo);
}
$_SESSION["partoprenanto"]->kopiu();
if ($parto == "korektigi") {
    require "partoprenanto.php";
} else {
    //Enmeti la datumojn en la datumaro
    if ($_SESSION["ago"] != "sxangxi") {
        $_SESSION["partoprenanto"]->kreu();
    }
    $_SESSION["partoprenanto"]->skribu();
    // kalkulas la agxojn cxe cxiu partopreno de $_SESSION['partoprenanto']:
    rekalkulu_agxojn("partoprenanto");
    $_SESSION["partoprenanto"] = new Partoprenanto($_SESSION["partoprenanto"]->datoj['ID']);
    if (!$_SESSION["sekvontapagxo"]) {