/**
 * eltrovas la sekvan akceptado-paŝon, kaj
 * alligas ĝin (inkluzive de teksto donita,
 * kiel "ĉi tie ne plu necesas fari ion".
 */
function ligu_sekvan($teksto = "C^io en ordo.")
{
    $pasxo_detaloj = sekva_pasxo();
    $pasxo_detaloj['eblas'] = true;
    echo "<!-- ligu_sekvan ... pasxo_detaloj:" . var_export($pasxo_detaloj, true) . "-->";
    // igu la sekvajn paŝojn eblaj
    for ($i = 1; $i <= $pasxo_detaloj['index']; $i++) {
        $GLOBALS['pasxolisto_detala'][$i]['ebla'] = true;
    }
    akceptada_instrukcio(donu_ligon("akceptado-" . $pasxo_detaloj['id'] . ".php", $teksto . " Plu al <em>" . $pasxo_detaloj['nomo'] . "</em>"));
}
        $statoteksto = "{$ri} decidis ig^i surloke membro de TEJO por " . TEJO_MEMBRO_JARO . " kaj pagis au^ pagos la kotizon de <strong>" . $partopreno->datoj['tejo_membro_kotizo'] . " E^</strong>.";
        $stato = 'igxu';
        akceptada_instrukcio("Nenio plu farendas pri TEJO.");
        break;
    case 'nn':
    case 'n?':
        $statoteksto = "{$ri} ne estas TEJO-membro por " . TEJO_MEMBRO_JARO . ".";
        akceptada_instrukcio("Demandu {$ri}n, c^i {$ri} volas ig^i TEJO-membro" . " por " . TEJO_MEMBRO_JARO . ", pagi " . "la kotizon nun kaj ricevi rabaton.");
        akceptada_instrukcio("Se jes, donu al {$ri} UEA-membrig^ilon, kiun" . " {$ri} plenigu. (Tie ankau^ trovig^os {$ri}a" . " kotizo.)");
        akceptada_instrukcio("Elektu sube la g^ustan punkton kaj entajpu la " . " kotizon, poste <em>S^ang^u</em>.");
        $stato = 'ne';
        break;
    case 'np':
    case 'jp':
        $statoteksto = "{$ri} ne estas TEJO-membro por " . TEJO_MEMBRO_JARO . " (= ne ricevas rabaton), sed tamen ial" . " pagas " . $partopreno->datoj['tejo_membro_kotizo'] . " E^ al TEJO/UEA (ekzemple membrokotizo por troag^ulo," . " kategorio MG, au^ por alia persono).";
        akceptada_instrukcio("Nenio plu farendas pri TEJO.");
        $stato = "pagas";
        break;
    default:
        darf_nicht_sein("illegaler Zustand von <code>tejo_membro_laudire</code> (" . $partopreno->datoj['tejo_membro_laudire'] . ") oder <code>tejo_membro_kontrolita</code> (" . $partopreno->datoj['tejo_membro_kontrolita'] . ").");
}
// 	if ($partoprenanto->datoj['naskigxdato'] < TEJO_AGXO_LIMDATO)
// 	{
//         akceptada_instrukcio("Lau^ nia kalkulo, {$ri} estas " .
//                              "<strong>tro ag^a</strong> por ig^i " .
//                              "TEJO-membro.");
// 	}
ligu_sekvan("TEJO-kotizo klaras.");
akceptado_kesto_fino();
if (!necesas_tejo_traktado()) {
    eoecho("<p>Lau^ la opinio de la programo ne necesas " . "TEJO-traktado por tiu ulo. Vi (kiel h**o) " . "kompreneble tamen rajtas fari tion.</p>");
            $en_ordo = true;
            break;
        default:
            // pli ol unu cxambro
            akceptada_instrukcio("{$Ri} havas pli ol unu liton. Se eblas, " . "metu {$ri}n en nur unu liton dum la " . "tuta tempo. " . "(Se vi ne certas pri tio, demandu la" . " c^efadministranton.)");
    }
    // switch
} else {
    if ($num > 0) {
        akceptada_instrukcio("{$Ri} ne havu c^ambron. Elj^etu {$ri}n" . " el tiu c^ambro, au^ " . "demandu respondeculon pri tio.");
    } else {
        $en_ordo = true;
    }
}
if ($en_ordo) {
    akceptada_instrukcio("Lau^ mi, c^ambroj en ordas.");
    ligu_sekvan("Bone.");
} else {
    ligu_sekvan("Ne, mi ne volas. ");
}
akceptado_kesto_fino();
if ($partopreno->datoj['domotipo'] == 'J') {
    switch ($nombro) {
        case 0:
            eoecho("<p>{$Ri} bezonas c^ambron, sed tiu ankorau^ ne rezervig^is" . " por {$ri}.");
            ligu('cxambroj.php', "Elektu c^ambron");
            echo "</p>";
            break;
        case 1:
            $linio = mysql_fetch_assoc($sql_rez);
            if ($linio['rezervtipo'] == 'r') {
            // TODO: ebligu pluiron
            break;
        case 'j':
        case 'i':
        case 'k':
            $partopreno->datoj['surloka_membrokotizo'] = $_POST['ago'];
            $partopreno->datoj['membrokotizo'] = $_POST['kotizo-' . $_POST['ago']];
            break;
        default:
            darf_nicht_sein("Nekonata ago-tipo: " . $_POST['ago']);
    }
    $partopreno->skribu();
    $partopreno = new Partopreno($partopreno->datoj['ID']);
}
if (necesas_lokaasocio_traktado()) {
    akceptada_instrukcio("Necesas s^ang^i la aktualan staton antau^" . " pluiri al la sekva pas^o. ");
} else {
    ligu_sekvan();
}
akceptado_kesto_fino();
if (!necesas_lokaasocio_traktado()) {
    eoecho("<p>Lau^ la opinio de la programo ne necesas " . deviga_membreco_nomo . "-traktado por tiu ulo. Vi" . " (kiel h**o) kompreneble tamen rajtas fari tion.</p>");
}
eoecho("<form action='akceptado-lokaasocio.php' method='POST' class='elekto-listo'>\n");
eoecho("<ul><li>" . "Foje kelkaj homoj nepre ig^u membroj de iuj organizoj. Je tiu" . " renkontig^o ");
if ($partoprenanto->datoj['GEJmembro'] == 'J') {
    $defauxlto = 'j';
    // jam estas membro kaj rekotizas
} else {
    $defauxlto = 'i';
    // igxos nova membro kaj kotizas
malfermu_datumaro();
kontrolu_rajton("akcepti");
require_once 'iloj/iloj_akceptado.php';
$partoprenanto = $_SESSION["partoprenanto"];
$partopreno = $_SESSION['partopreno'];
// la persona pronomo (li aux sxi)
$ri = $partoprenanto->personapronomo;
$Ri = ucfirst($ri);
akceptado_kapo("kontroloj");
// ###############################################################################
// <p>(Reen al <a href='akceptado.php?pasxo=datumoj'>datumoj</a>)</p>
akceptada_instrukcio("Sube estas c^iuj notoj pri {$ri}. Kontrolu, c^u io" . " estas neprilaborita. <br/> Se estas iuj gravaj" . " aferoj, prilaboru tuj (au^ voku respondeculon).");
akceptada_instrukcio("Eble kontrolu {$ri}an log^landon kaj " . "korektu g^in (se necesas).");
akceptada_instrukcio("Eble kontrolu {$ri}an ag^on, kaj korektu g^in, " . "se necesas.");
if ($partopreno->datoj['agxo'] < 18) {
    akceptada_instrukcio("Kolektu la gepatran permeson. Se g^i mankas", " donu faksnumeron de la ejo, kaj insistu ke" . " {$ri} donos g^in.");
}
ligu_sekvan();
akceptado_kesto_fino();
eoecho("<h3>Notoj</h3>");
listu_notojn($_SESSION['partoprenanto']->datoj['ID']);
$_SESSION['sekvontapagxo'] = 'akceptado-kontroloj.php';
eoecho("<h3>Log^lando</h3>");
eoecho(" <p>Lau^ alig^o: " . eltrovu_landon($partoprenanto->datoj['lando']) . "/" . eltrovu_landon_lokalingve($partoprenanto->datoj['lando']) . " &ndash;");
ligu("partoprenanto.php?ago=sxangxi", "s^ang^u!");
echo "</p>\n";
eoecho("<h3> Ag^o/naskig^dato </h3>");
eoecho("<p>Lau^ alig^o: " . $partoprenanto->datoj['naskigxdato'] . " (nun " . $partopreno->datoj['agxo'] . " jaroj) &ndash; ");
ligu("partoprenanto.php?ago=sxangxi", "(s^ang^u!)");
echo "</p>";
HtmlFino();
    eoecho("<p>Ni sukcese akceptis la partoprenanton ");
    ligu('partrezultoj.php?partoprenidento=' . $partopreno->datoj['ID'], $partoprenanto->tuta_nomo());
    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");
     akceptada_instrukcio("Se jes, donu al {$ri} UEA-membrig^ilon, kiun" . " {$ri} plenigu (se {$ri} ne jam havas)." . " (Tie ankau^ trovig^os {$ri}a kotizo.)");
     akceptada_instrukcio("Elektu sube la g^ustan punkton kaj entajpu la " . " kotizon, poste <em>S^ang^u</em>.");
     $stato = 'igxu';
     break;
 case 'ji':
 case 'ni':
     $statoteksto = "{$ri} decidis ig^i surloke membro de UEA por " . TEJO_MEMBRO_JARO . ", pagis au^ pagos la kotizon de <strong>" . $uea_krompago->datoj['kvanto'] . " " . $uea_krompago->datoj['valuto'] . " </strong> kaj ricevos la rabaton de " . $uea_rabato . " CZK";
     $stato = 'igxu';
     akceptada_instrukcio("Nenio plu farendas pri UEA.");
     break;
 case 'nn':
 case 'n?':
     $statoteksto = "{$ri} ne estas UEA-membro por " . TEJO_MEMBRO_JARO . ".";
     akceptada_instrukcio("Demandu {$ri}n, c^i {$ri} volas ig^i UEA-membro" . " por " . TEJO_MEMBRO_JARO . ", pagi " . "la kotizon nun kaj ricevi rabaton de " . $uea_rabato . " CZK");
     akceptada_instrukcio("Se jes, donu al {$ri} UEA-membrig^ilon, kiun" . " {$ri} plenigu. (Tie ankau^ trovig^os {$ri}a" . " kotizo.)");
     akceptada_instrukcio("Elektu sube la punkton <em> kaj entajpu la " . " kotizon, poste <em>S^ang^u</em>.");
     $stato = 'ne';
     break;
     /*     case 'np': */
     /*     case 'jp': */
     /*         $statoteksto = "${ri} ne estas TEJO-membro por " . */
     /*             TEJO_MEMBRO_JARO . " (= ne ricevas rabaton), sed tamen ial" . */
     /*             " pagas " .$partopreno->datoj['tejo_membro_kotizo'] . */
     /*             " E^ al TEJO/UEA (ekzemple membrokotizo por troag^ulo," . */
     /*             " kategorio MG, au^ por alia persono)."; */
     /*         akceptada_instrukcio("Nenio plu farendas pri TEJO."); */
     /*         $stato = "pagas"; */
     /*         break; */
 /*     case 'np': */
 /*     case 'jp': */
 /*         $statoteksto = "${ri} ne estas TEJO-membro por " . */
    akceptada_instrukcio("{$Ri} devus ankorau^ pagi " . $informoj[$pagenda_cxef] . " " . CXEFA_VALUTO . ", sed tio estas tiom malmulte, ke ni fajfas pri tio.");
    ligu_sekvan("Plu al la fino!");
} else {
    if ($informoj['pagenda_cxef'] == 0) {
        akceptada_instrukcio("{$Ri} pagis precize sian tutan kotizon.");
        ligu_sekvan("Plu al la fino!");
    } else {
        if ($informoj['repagenda']) {
            akceptada_instrukcio("{$Ri} jam <strong>pagis pli</strong> ol sian tutan" . " kotizon. Demandu {$ri}n, c^u {$ri} volas" . " donaci la kromaj^on " . " CZK, au^ rehavi g^in (au^ poste decidi).</li>");
            akceptada_instrukcio("Entajpu la donacon au^ repagon sube, notu g^in en" . " la akceptofolio kaj uzu la respektivan butonon." . " (Se {$ri} volas parte repagigi kaj parte donaci, " . " entajpu unu post la alia.)");
            akceptada_instrukcio("(En kazo de <em>repago</em>, kompreneble donu al" . "  {$ri} la monon.)");
            ligu_sekvan("Ne, {$ri} volas poste decidi, kion fari per la mono, kaj" . " venos tiam al la oficejo.");
        } else {
            akceptada_instrukcio("Kolektu pagon de {$ri}. Se estas malpli ol la" . " menciita sumo, prenu garantiaj^on de {$ri}" . " kaj metu g^in kun noto-slipeto en la kason. Au^ " . " simple sendu {$ri}n nun al la banko por reveni " . " poste, kaj dume traktu alian partoprenanton.");
            akceptada_instrukcio("Enmetu la pagon sube en la ĝustan kampon, kaj" . " ankau^ notu g^in en la akceptofolio (kun la" . " valuto).");
            akceptada_instrukcio("Premu la butonon <em>Enmetu pagon</em>.");
            ligu_sekvan("Mi prenis garantiaj^on kaj akceptos {$ri}n sen " . "kompleta pago.");
        }
    }
}
akceptado_kesto_fino();
// #########################################################################
eoecho("<h3>Kotizokalkulado:</h3>\n");
$kot->tabelu_kotizon(new HTMLKotizoFormatilo());
eoecho("<h3>Pagado</h3>");
if ($informoj['traktenda']) {
    echo "<div class='pagu-formularoj'>\n";
    if ($informoj['repagenda']) {
        echo "<form action='akceptado-pago.php' method='POST'>\n";
        tenukasxe('valuto', CXEFA_VALUTO);
        eoecho("<h4>Donaco al la IJK-kaso</h4>");
    // 	{
    // 		eoecho(ministeriaj_listoj_hejmlando);
    // 	}
    // 	else
    // 	{
    // 		eoecho(ministeriaj_listoj_eksterlando);
    // 	}
    // 	eoecho (", kaj igu {$ri}n enskribi {$ri}ajn datumojn. " .
    // 			  "(Dume eblas dau^rigi per la sekva punkto.)</li>\n");
}
akceptada_instrukcio("C^u {$ri} s^ang^is personajn au^ partoprenajn" . " datumojn sur la akceptofolio? Se jes, s^ang^u tion" . " en la datumbazo.");
if ($partoprenanto->datoj['posxtkodo'] == "") {
    akceptada_instrukcio("Enmetu la pos^tkodon en la g^ustan kampon kaj " . "konservu.");
}
if ($partopreno->datoj['studento'] == '?') {
    akceptada_instrukcio("C^u {$ri} estas studento kaj havas pruvilon pri tio? " . "Metu la respondon suben.");
}
ligu_sekvan("Ne (plu) estas korektendaj s^ang^oj.");
akceptado_kesto_fino();
//   eoecho("<li><p>C^u {$ri} s^ang^is personajn au^ partoprenajn datumojn sur" .
// 			" la akceptofolio? </p>\n");
echo "<table>";
eoecho("<tr><th>Personaj datumoj</th><th>Partoprenaj datumoj</th></tr>\n");
echo "<tr><td>";
if ($partoprenanto->datoj['posxtkodo'] == "") {
    echo "<form action='akceptado-datoj.php?partoprenidento=" . $partopreno->datoj['ID'] . "' method='POST'>\n";
    simpla_entajpejo("Pos^tkodo", 'posxtkodo', '', 10, '', " ");
    send_butono("konservu");
    echo "</form>\n";
}
echo "</td><td>";