function forigu_demando()
{
    eoecho("<h2>Forigo de entajpanto</h2>\n");
    $entajpanto = new Entajpanto($_REQUEST['forigu']);
    $linio = $entajpanto->datoj;
    echo "<table>\n";
    eoecho("<tr><th>ID</th><td>{$linio['ID']}</td></tr>\n");
    eoecho("<tr><th>Salutnomo</th><td>{$linio['nomo']}</td></tr>\n");
    eoecho("<tr><th>Retadreso</th><td>{$linio['retposxtadreso']}</td>\n");
    eoecho("<tr><th>Partoprenanto-ID</th><td>{$linio['partoprenanto_id']}</td>\n");
    eoecho("<tr><th>Sendantonomo</th><td>{$linio['sendanto_nomo']}</td>\n");
    foreach ($GLOBALS['rajtolisto'] as $ero) {
        eoecho("<tr><th>" . $ero['alias'] . "</th><td>" . ($linio[$ero['rajto']] == 'J' ? "[X]" : "[_]") . "</td>\n");
    }
    eoecho("</table>\n");
    eoecho("<p>C^u vi vere volas forigi tiun c^i entajpanton?");
    ligu_butone("entajpantoj.php?forigu=" . $linio['ID'], "Jes", array("vere" => "jes"));
    ligu("entajpantoj.php?redaktu=" . $linio['ID'], "Ne, reen al redaktado");
    ligu("entajpantoj.php", "Ne, reen al la listo");
    HtmlFino();
}
    echo "<pre>" . kreu_unuan_konfirmilan_tekston($_SESSION['partoprenanto'], $_SESSION['partopreno'], $partopreno_renkontigxo, 'utf-8') . "</pre>\n<p>";
    if (rajtas("retumi")) {
        ligu_butone("partrezultoj.php?partoprenidento=" . $partopreno->datoj['ID'], "sendi la unuan konfirmilon", array('faru' => 'sendu_unuan_konfirmilon'));
    } else {
        eoecho("Vi ne havas la rajton por elsendi" . " la mesag^on.");
    }
    echo "</p>\n";
}
if ('informmesagxo' == $_REQUEST['faru']) {
    eoecho("<hr /><h3>La informmesag^o</h3>");
    require_once $prafix . '/tradukendaj_iloj/iloj_konfirmilo.php';
    echo "<pre>";
    echo kreu_informmesagxan_tekston($_SESSION['partoprenanto'], $_SESSION['partopreno'], $partopreno_renkontigxo, 'x-metodo');
    echo "</pre><p>";
    if (rajtas("retumi")) {
        ligu_butone("partrezultoj.php?partoprenidento=" . $partopreno->datoj['ID'], "sendi la informmesag^on", array('faru' => 'sendu_informmesagxon'));
    } else {
        eoecho("Vi ne havas la rajton por elsendi" . " la mesag^on.");
    }
    echo "</p>\n";
}
if ($_REQUEST['faru'] == 'sendu_unuan_konfirmilon') {
    kontrolu_rajton('retumi');
    require_once $prafix . '/iloj/retmesagxiloj.php';
    require_once $prafix . '/tradukendaj_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 konfirmilon:</p><pre>";
    echo eotransformado($teksto, 'utf-8');
    echo "</pre>";
}
        $rez = sql_faru($sql);
        $num = mysql_num_rows($rez);
        if ($num > 0) {
            eoecho("<p>Estas ankorau^ " . $num . " partoprenantoj el tiu lando. Bonvolu unue forigu ilin au^ s^ang^u ilian landanecon, se vi vere volas forigi la supre menciitan landon.</p>");
            eoecho("<table>");
            while ($linio = mysql_fetch_assoc($rez)) {
                echo "<tr><td><a href='partrezultoj.php?partoprenantoidento=" . $linio['ID'] . "'>--></a></td><td>";
                eoecho($linio['personanomo'] . "</td><td>" . $linio['nomo'] . "</td></tr>\n");
            }
            eoecho("</table>");
            echo "<p>";
            ligu("landoj.php?redaktu={$forigu}", "Reen");
            echo "</p>";
        } else {
            eoecho("<p>C^u vi vere volas forigi tiun c^i landon?");
            ligu_butone("landoj.php", "Jes", array('vere' => 'jes', 'forigu' => $_REQUEST['forigu']));
            ligu("landoj.php?redaktu={$forigu}", "Ne");
        }
        HtmlFino();
        return;
    }
}
if ($sendu) {
    //   echo "<pre>";
    //   var_export($_POST);
    //   echo "</pre>";
    $sxangxlisto = array();
    foreach (array("nomo", "kodo") as $tipo) {
        if ($_POST[$tipo]) {
            $sxangxlisto[$tipo] = $_POST[$tipo];
        }
    echo ".</p>\n";
    HtmlFino();
    exit;
}
akceptado_kapo("fino");
akceptada_instrukcio("Prenu bros^uron de la stoko");
akceptada_instrukcio("Notu la nomon kaj c^ambronumeron sur la dorsa flanko.");
akceptada_instrukcio("Donu al {$ri} la bros^uron.");
// TODO: adaptu, kiam estos pluraj domotipoj
// TODO: cxu ni disdonas gxin en tiu tablo, aux cxu la homoj prenos mem?
if ($partopreno->datoj['domotipo'] == 'J') {
    akceptada_instrukcio("Donu al {$ri} pakaj^on da littolaj^o.");
}
akceptada_instrukcio("Premu la suban butonon.");
akceptado_kesto_fino();
eoecho("<h3>Por la bros^uro</h3>\n");
// TODO: adaptu, kiam estos pluraj domotipoj
if ($partopreno->datoj['domotipo'] == 'J') {
    $sql = datumbazdemando(array('l.nokto_de', 'cx.nomo'), array('litonoktoj' => 'l', 'cxambroj' => 'cx'), array('cx.ID = l.cxambro', "l.partopreno = '" . $partopreno->datoj['ID'] . "'"), "", array('order' => 'l.nokto_de ASC'));
    $rez = sql_faru($sql);
    $linio = mysql_fetch_assoc($rez);
    $numero = $linio['nomo'];
} else {
    $numero = 'M';
}
eoecho("<table><tr>\n<th>Nomo</th><td>" . $partoprenanto->tuta_nomo() . "</td></tr>\n<tr><th>C^ambronumero</th><td>" . $numero . "</td></tr>\n</table>\n");
eoecho("<h3>Oficiala akceptado</h3>\n");
echo "<p>";
ligu_butone("akceptado-fino.php", "Akceptu {$ri}n", "akceptu");
echo "</p>";
HtmlFino();
/** 
 * Montras tabelon de ĉiuj konservitaj serĉoj, kun po
 * diversaj ago-eblecoj.
 */
function sercxoElektilo()
{
    $sql = datumbazdemando(array("s.ID" => "ID", "s.nomo" => "sercxnomo", "e.nomo" => "entajpanto"), array("sercxoj" => "s", "entajpantoj" => "e"), "s.entajpanto = e.ID", "", array("order" => "sercxnomo ASC"));
    $rez = sql_faru($sql);
    if ($num = mysql_num_rows($rez)) {
        eoecho("  <h3>Antau^aj serc^oj</h3>\n");
        echo "  <table>\n";
        eoecho("<tr><th>serc^nomo</th><th>kreinto</th><th>s^arg^u</th>" . "<th>tuj serc^u</th><th>administri</th></tr>\n");
        $sercxtipoj = array('HtmlTabelo' => "tabelo", 'HtmlCSV' => "CSV (k)", 'Utf8CSV' => "CSV (s^)");
        while ($linio = mysql_fetch_assoc($rez)) {
            eoecho("    <tr>\n");
            eoecho("      <td>" . $linio['sercxnomo'] . "</td>\n");
            eoecho("      <td>" . $linio['entajpanto'] . "</td>\n");
            echo "      <td>";
            ligu("gxenerala_sercxo.php?antauxa_sercxo=" . $linio['ID'], "s^arg^u");
            echo "</td>\n";
            echo "      <td>";
            foreach ($sercxtipoj as $tipo => $teksto) {
                ligu("gxenerala_sercxo.php?antauxa_sercxo=" . $linio['ID'] . "&sendu=sercxu&tipo=" . $tipo, $teksto);
            }
            echo "</td>\n";
            echo "      <td>";
            if ($linio['entajpanto'] == $_SESSION['kkren']['entajpantonomo'] or rajtas('teknikumi')) {
                ligu("sercxoj.php?sendu=redaktu&id=" . $linio['ID'], "redaktu informojn");
                ligu_butone("sercxoj.php?id=" . $linio['ID'], "forigu", 'forigu');
            }
            echo "</td>\n";
            echo "    </tr>\n";
        }
        echo "  </table>\n";
    } else {
        eoecho("<p>Ne ekzistas antau^aj serc^oj.</p>");
    }
}