echo "</TD><TD>";
        if (nova_kunlogxado) {
            $ri = $_SESSION['partoprenanto']->personapronomo;
            $Ri = ucfirst($ri);
            eoecho("Kunlog^deziroj de kaj pri {$ri}:");
            // !!!!!!!!!!!!!!!!
            require_once $prafix . "/iloj/iloj_kunlogxadoj.php";
            montru_kunlogxdezirojn_ambauxdirekte($_SESSION['partopreno'], "&uarr;");
            // provizore nur por teknikumistoj, por elprovi:
            rajtligu("kunlogxado.php?ago=sercxu", "serc^u kunlog^dezirojn", "", "teknikumi");
        }
    }
}
echo "</TD></TR></TABLE>\n";
if ($faru == 'konfirmi') {
    echo nl2br(faru_1akonfirmilon($_SESSION["partoprenanto"], $_SESSION["partopreno"], $partopreno_renkontigxo));
    echo "<BR><BR>";
    if ($_SESSION["partoprenanto"]->datoj[retposxto] and rajtas(retumi)) {
        ligu("partrezultoj.php?faru=sendukonfirmo", "--> sendi 1an konfirmilon");
    }
    echo "<hr/><p>La nova unua konfirmilo:</p>";
    require_once $prafix . '/iloj/iloj_konfirmilo.php';
    echo "<pre>" . kreu_unuan_konfirmilan_tekston($partoprenanto, $partopreno, $renkontigxo, 'utf-8') . "</pre>";
    ligu("partrezultoj.php?faru=sendu_unuan_konfirmilon", "sendi la novan unuan konfirmilon");
}
if ($faru == 'sendu_unuan_konfirmilon') {
    require_once $prafix . '/iloj/retmesagxiloj.php';
    require_once $prafix . '/iloj/iloj_konfirmilo.php';
    require_once $prafix . '/iloj/diversaj_retmesagxoj.php';
    $teksto = kreu_kaj_sendu_unuan_konfirmilon($_SESSION["partoprenanto"], $_SESSION["partopreno"], $partopreno_renkontigxo, $_SESSION['kkren']['entajpantonomo']);
    echo "<p>Ni sendis la jenan unuan informilon:</p><pre>";
/**
 * TODO: dokumentado por sendu_konfirmilon
 *
 * $teksto - en tiu variablo ni metos la tekston de la mesagxo,
 *           por ebligi montri gxin ankoraux en la retpagxo (krom
 *           la dissendado).
 *
 * ### uzado:  partrezultoj.php, AligxiloDankon.php ###
 */
function sendu_konfirmilon($partoprenanto, $partopreno, $renkontigxo, &$teksto)
{
    $subject = "unua konfirmilo por la " . $renkontigxo->datoj[nomo];
    $mesagxo = "### auxtomata mesagxo ###\n\n";
    $from_name = "IS-Aligilo";
    $from_address = "*****@*****.**";
    // TODO: forigi retadreson
    $to_name = utf8_decode($partoprenanto->datoj[personanomo] . " " . $partoprenanto->datoj[nomo]);
    $to_address = $partoprenanto->datoj[retposxto];
    $teksto = faru_1akonfirmilon($partoprenanto, $partopreno, $renkontigxo);
    $mesagxo .= $teksto;
    $email_message = new email_message_class();
    $email_message->default_charset = "UTF-8";
    if (!strcmp($error = $email_message->SetEncodedEmailHeader("To", $to_address, $to_name), "") && !strcmp($error = $email_message->SetEncodedEmailHeader("From", $from_address, $from_name), "") && !strcmp($error = $email_message->SetEncodedEmailHeader("Reply-To", $from_address, $from_name), "") && !strcmp($error = $email_message->SetEncodedEmailHeader("Bcc", "*****@*****.**", "Paul Ebermann"), "") && !strcmp($error = $email_message->SetEncodedHeader("Errors-To", $from_address, $from_name), "") && !strcmp($error = $email_message->SetEncodedHeader("Subject", $subject), "") && !strcmp($error = $email_message->AddQuotedPrintableTextPart($email_message->WrapText($mesagxo)), "")) {
        $error = $email_message->Send();
    }
    if ($error) {
        erareldono($error);
        exit;
    }
}
    }
    if ($partopreno->datoj['dulita'][0] != 'J') {
        $partopreno->datoj['dulita'] = 'N';
    }
    $partopreno->skribu();
    rekalkulu_agxojn($partopreno->datoj['ID']);
    $partopreno = new Partopreno($partopreno->datoj['ID']);
    // TODO: Etwa hier sollten wir auch nötige Mails verschicken
    // TODO: können wir mit partoprenkontrolo zusammenlegen.
    sendu_auxtomatajn_mesagxojn($partopreno, $partoprenanto, $renkontigxo);
    //$vosto = $sekvontapagxo."?&enkodo=$enkodo&kodnomo=$kodnomo&kodvorto=$kodvorto&partoprenantoidento=$partoprenantoidento&partoprenidento=$partoprenidento";
    //automatisches Backup
    sendu_ekzport($partoprenanto, $partopreno, $renkontigxo);
    granda_kesto_komenco();
    geoecho("<p>", "Du hast dich erfolgreich angemeldet <br/>", "Vi sukcese alig^is</p>");
    if ($partoprenanto->datoj['retposxto']) {
        geoecho("<p>", "Das folgende <em>Konfirmilo</em> wurde an deine" . "E-Mail-Adresse geschickt.<br/>", "La suba konfirmilo estas sendata al via retadreso</p>");
        sendu_konfirmilon($partoprenanto, $partopreno, $renkontigxo, $teksto);
    } else {
        $teksto = faru_1akonfirmilon($partoprenanto, $partopreno, $renkontigxo);
        geoecho("<p>", "Bitte speichere (oder drucke) den folgenden Text. <br/>", "Bonvolu sekurigu la suban tekston.</p>");
    }
    echo "<hr />";
    echo "<div>";
    echo nl2br($teksto);
    echo "</div>";
    echo "<hr />";
    granda_kesto_fino();
    //$partoprenanto->montru_aligxinto();
    //$partopreno->montru_aligxo();
}