/**
 * Montras por unu deziro A->B la detalojn
 * de A kaj B, kaj la statuson.
 */
function montru_kunlogxdezirdetalojn($deziro)
{
    $dezirant_eno = new Partopreno($deziro->datoj['partoprenoID']);
    $deziranto = new Partoprenanto($dezirant_eno->datoj['partoprenantoID']);
    $dezirat_eno = new Partopreno($deziro->datoj['kunKiuID']);
    $dezirato = new Partoprenanto($dezirat_eno->datoj['partoprenantoID']);
    eoecho("<h2>Kunlog^deziraj detaloj</h2>");
    eoecho("<table>\n" . "<tr><th /><th>deziranto</th><th>dezirato</th></tr>\n");
    kampoj("ID", array(donu_ligon("partrezultoj.php?partoprenidento=" . $dezirant_eno->datoj['ID'], $dezirant_eno->datoj['ID']), donu_ligon("partrezultoj.php?partoprenidento=" . $dezirat_eno->datoj['ID'], $dezirat_eno->datoj['ID'])));
    kampoj("nomo", array($deziranto->tuta_nomo(), $dezirato->tuta_nomo()));
    kampoj("domotipo", array($dezirant_eno->domotipo(), $dezirat_eno->domotipo()));
    kampoj("ag^o", array($dezirant_eno->datoj['agxo'], $dezirat_eno->datoj['agxo']));
    // testas, cxu seksoj kaj deziritaj cxambrotipoj harmonias.
    if ($deziranto->sekso != $dezirato->sekso and $dezirant_eno->datoj['cxambrotipo'] == 'u' and $dezirat_eno->datoj['cxambrotipo'] == 'u') {
        kampoj("sekso", array($deziranto->sekso => "averto", $dezirato->sekso => "averto"));
        kampoj("c^ambrotipo:", array($dezirant_eno->cxambrotipo() => "averto", $dezirat_eno->cxambrotipo() => "averto"));
    } else {
        if ($deziranto->sekso != $dezirato->sekso and $dezirant_eno->datoj['cxambrotipo'] == 'u') {
            kampoj("sekso", array($deziranto->sekso, $dezirato->sekso => "averto"));
            kampoj("c^ambrotipo:", array($dezirant_eno->cxambrotipo() => "averto", $dezirat_eno->cxambrotipo()));
        } else {
            if ($deziranto->sekso != $dezirato->sekso and $dezirat_eno->datoj['cxambrotipo'] == 'u') {
                kampoj("sekso", array($deziranto->sekso => "averto", $dezirato->sekso));
                kampoj("c^ambrotipo:", array($dezirant_eno->cxambrotipo(), $dezirat_eno->cxambrotipo() => "averto"));
            } else {
                kampoj("sekso", array($deziranto->sekso, $dezirato->sekso));
                kampoj("c^ambrotipo:", array($dezirant_eno->cxambrotipo(), $dezirat_eno->cxambrotipo()));
            }
        }
    }
    // se unu volas dulitan cxambron, tiam la alia ankaux volu.
    if ($dezirant_eno->datoj['dulita'] != $dezirat_eno->datoj['dulita']) {
        kampoj("dulita", array(jes_ne($dezirant_eno->datoj['dulita']) => "averto", jes_ne($dezirat_eno->datoj['dulita']) => "averto"));
    } else {
        kampoj("dulita c^.?", array(jes_ne($dezirant_eno->datoj['dulita']), jes_ne($dezirat_eno->datoj['dulita'])));
    }
    eoecho("</table>\n");
    $sql = datumbazdemando(array("ID"), "kunlogxdeziroj", array("partoprenoID = '" . $deziro->datoj['kunKiuID'] . "'", "kunKiuID = '" . $deziro->datoj['partoprenoID'] . "'"));
    $rez = sql_faru($sql);
    if ($linio = mysql_fetch_assoc($rez)) {
        $alia_deziro = new Kunlogxdeziro($linio['ID']);
        eoecho("<p>Estas ankau^ ");
        ligu("kunlogxado.php?kunlogxID=" . $linio['ID'], "kunlog^deziro en la inversa direkto");
        eoecho(", kies stato nun estas <em>" . $alia_deziro->stato() . "</em>");
    } else {
        eoecho("<p>Sed " . $dezirato->tuta_nomo() . " ne indikis, ke " . $dezirato->personapronomo . " volas log^i kun " . $deziranto->tuta_nomo() . ".</p>\n");
    }
    eoecho("<p>Aktuala stato de la kunlog^deziro: <em>" . $deziro->stato() . "</em>.</p>\n");
    echo "<form action='kunlogxado.php' method='POST'>\n";
    tenukasxe("kunlogxID", $deziro->datoj['ID']);
    butono("forvisxhu", "Forvis^u", "ago");
    butono("ne_eblas", "Ne eblas", "ago");
    butono("eblas", "Eblas", "ago");
    echo "</form>\n";
    eoecho("<p>C^iuj kunlog^deziroj de " . $deziranto->tuta_nomo() . ":</p>");
    montru_kunlogxdezirojn($dezirant_eno);
}
/**
 * ...
 * $elekteblecoj:  array() kun eroj de la formo x => y, kie x = sercxenda teksto,
 *                 y = priskribo.
 */
function sercxelektolinio($priskribo, $tabelo, $nomo, $valoroj, $elekteblecoj, $alias = "")
{
    $tipnomo = "sercxo_{$tabelo}_{$nomo}_tipo";
    $montrunomo = "sercxo_{$tabelo}_{$nomo}_montru";
    $uzunomo = "sercxo_{$tabelo}_{$nomo}_estasKriterio";
    //  $skripto = "kolorSxangxoDekstre('$tabelo', '$nomo')";
    eoecho("<tr id='{$tabelo}-{$nomo}-tabellinio'><th >{$priskribo}</th><td>");
    if ($alias) {
        tenukasxe("sercxo_{$tabelo}_{$nomo}_alias", $alias);
    }
    skripto_jes_ne_bokso($montrunomo, $valoroj[$montrunomo], "kolorSxangxoMaldekstre('{$tabelo}', '{$nomo}')");
    echo "</td><td>";
    skripto_jes_ne_bokso($uzunomo, $valoroj[$uzunomo], "kolorSxangxoDekstre('{$tabelo}', '{$nomo}')");
    echo "</td><td><span id='{$tabelo}-{$nomo}-kriterioj'>";
    //   simpla_entajpbutono($tipnomo, $valoroj[$tipnomo], "malatentu", "kutima", $skripto);
    //   eoecho (" <em>ne uzu</em> |\n");
    tenukasxe($tipnomo, "unu_el");
    eoecho(" nur unu el la sekve krucitaj: <br/>\n");
    $valornomo = "sercxo_{$tabelo}_{$nomo}_elekto";
    $elektoj = $valoroj[$valornomo];
    if (!is_array($elektoj)) {
        $elektoj = array($elektoj);
    }
    $elekttekstoj = array();
    foreach ($elekteblecoj as $frazo => $alias) {
        $teksto = "<input type='checkbox' name='{$valornomo}[]' value='{$frazo}' ";
        if (in_array($frazo, $elektoj)) {
            $teksto .= "checked='checked' ";
        }
        $teksto .= "/> ";
        $teksto .= eotransform($alias);
        $elekttekstoj[] = $teksto;
    }
    echo join(" |\n", $elekttekstoj);
    echo "\n</span></td></tr>\n";
}
    $retkomparo = "(pp.retposxto = '" . $p_anto->datoj["retposxto"] . "')";
} else {
    // ne sencas sercxi cxiujn homojn, kiuj ankaux ne donis retadreson.
    $retkomparo = "0";
}
$sql = datumbazdemando(array("pp.ID", "pp.nomo", "personanomo", "max(renkontigxoID) as renkNumero"), array("partoprenantoj" => "pp", "partoprenoj" => "pn"), array("pn.partoprenantoID = pp.ID", "(pp.nomo = '" . $p_anto->datoj["nomo"] . "') or " . "(pp.personanomo = '" . $p_anto->datoj["personanomo"] . "') or " . "(pp.naskigxdato = '" . $p_anto->datoj["naskigxdato"] . "') or " . $retkomparo), "", array("group" => "pp.ID", "order" => "personanomo, nomo"));
// la nomo estas "peter", por ke la jxavoskripto povas uzi gxin.
echo '<form name="peter" action="transferi.php" method="GET">';
echo '<table><tr><td>';
partoprenanto_elektilo($sql, 10, "fonto", "kun_identifikilo");
echo '</td><td>';
eoecho('<button name="sendu" value="vidu" type="submit" >Vidu</button> la ' . 'partoprenantojn, kiuj similas al la elektita persono!' . "\n<br />\n");
eoecho('<button name="sendu" value="detaloj" type="submit" >Rigardu</button> la ' . 'detalojn de la elektita persono!' . "\n<br/>\n");
echo '</td></tr></table>';
echo '<input type="hidden" name="celo" value="' . $p_anto->datoj["ID"] . '" />';
echo "<p>";
if (rajtas('estingi')) {
    eoecho('<button name="sendu" value="transferuDe" type="submit" >Transferu</button>' . ' c^iujn partopren-datojn de la elektita persono <strong>al ' . $priskribo . "</strong>! \n<br />\n");
    eoecho('<button name="sendu" value="transferuAl" type="submit" >Transferu</button>' . ' c^iujn partoprenojn-datojn de ' . $priskribo . " <strong>al la elektita persono</strong>!\n</p>\n");
    eoecho("<p> Se la persono ne trovig^as tiel, vi povas elekti lin el la maldekstra menuo.<br/>\n");
    // cxi tien la Jxavoskripto metas la valoron el la maldekstra menuo
    tenukasxe("kune", "0");
    // kiam oni alklakas iun de la du butonon, la jxavoskripto en "cxiujpagxoj.js"
    // estas vokita por enmeti la valoron el la menuo.
    eoecho('<button name="sendu" value="transferuDeMenuo" type="submit"' . ' onclick="reindamit()">Transferu</button> ' . "de la persono elektita en la listo sub la maldekstra menuo <strong>al " . $priskribo . "</strong>!<br/>\n");
    eoecho('<button name="sendu" value="transferuAlMenuo" type="submit"' . ' onclick="reindamit()">Transferu</button> ' . "de " . $priskribo . " <strong>al la persono elektita en la" . " listo sub la maldekstra menuo</strong>!</p>\n");
} else {
    eoecho("<p> Vi ne povas s^ang^i ion ajn, c^ar vi ne havas la necesajn rajtojn. " . "Se vi pensas, ke vi havu, plendu c^e Pau^lo.</p>\n");
}
echo "\n</form>\n";
HtmlFino();
foreach ($pagmanieroj as $maniero) {
    $pagolisto[$maniero] = $pagmaniertradukoj[$maniero];
}
/**
 * TODO!: ligo al la retpagxo
 */
$pagmanierojligo = CH('pagmanierojligo');
aliĝilo_tabelelektilo('pagmaniero', CH('pagmaniero', "<a href='{$pagmanierojligo}'>", "</a>"), $pagolisto, $pagodefauxlto);
$limdato = $kotizobj_nun->limdato();
//echo("<!-- limdato: " . var_export($limdato, true) . "-->");
?>
<!-- ################################ Kotizo-montrado ################ -->
	          <td  rowspan='2' colspan='2' class='triona' id='kotizokalkulo'>
<?php 
tenukasxe('antauxpago_limdato', $limdato);
tenukasxe('minimuma_antauxpago', $antauxpago);
?>
<div id='kotizonun'><p>
<?php 
echo CH('kotizo-nun', $limdato);
?>
</p>
					<span class='kotizocifero'><?php 
echo $kotizo_nun . " &euro;";
?>
</span></div>
<div id='restassurloke'><p><?php 
echo CH('restas-surloke', $antauxpago);
?>
</p>
					<span class='kotizocifero'><?php 
            $alia = mysql_fetch_assoc($rez);
            if ($alia) {
                eoecho("<p>Ekzistas ");
                ligu("nova_teksto.php?id=" . $alia['ID'], "germana versio de tiu teksto");
                eoecho(".</p>");
            } else {
                eoecho("<p>Por tiu teksto devus ekzisti germana versio.");
                ligu("nova_teksto.php?mesagxoID=" . $_REQUEST['mesagxoID'] . "_de", "Kreu g^in");
                echo "</p>";
            }
        }
    }
}
?>
<form action='nova_teksto.php' method='POST'>
<table class='tekstoj-redaktilo'>
<?php 
tabelentajpejo("Identifikilo", 'mesagxoID', $_REQUEST['mesagxoID'], 30, $id_postt);
granda_tabelentajpejo("Teksto", 'teksto', $_REQUEST['teksto'], '70', '10');
echo "</table>";
if ($_REQUEST['id']) {
    tenukasxe('id', $_REQUEST['id']);
    butono('sxangxu', 'S^ang^u');
} else {
    butono("aldonu", "Aldonu");
}
ligu("tekstoj.php", "Reen al la teksto-listo");
ligu("renkontigxo.php", "Reen al la renkontig^o");
ligu("administrado.php", "Reen al la grava administrado");
echo "</form>";
HtmlFino();
/**
 * butono kun sia propra POST-formulareto, por uzo anstataŭ
 * simpla ligo por fari iun agon.
 *
 * <strong>Ne uzu ene de aliaj formularoj!</strong>
 *
 * @param urlstring $kien - kiun paĝon voki
 * @param eostring $titolo - teksto sur la butono
 *
 * @param array|string $valoroj  Se estas string, kion sendi (teksto)
 *                                  (defaŭlto: 'ne_gravas')
 *            Se estas array(), gxi enhavu nomojn kaj valorojn sendendajn per
 *            la formularo (inkluzive la butono).
 * @param string $nomo  nomo de la butono   (defaŭlto: 'sendu')
 *            En la array-kazo, $nomo kaj $valoroj[$nomo] estas uzataj
 *            por la butono, se $valoroj[nomo] ekzistas, alikaze la
 *            unua paro en $valoroj.
 *
 * @see butono()
 * @see send_butono()
 * @see ligu()
 * @uses tenukasxe()
 * @uses butono()
 */
function ligu_butone($kien, $titolo, $valoroj = 'ne_gravas', $nomo = 'sendu')
{
    echo "<form action='" . htmlspecialchars($kien, ENT_QUOTES) . "' method='post' class='formulareto'>";
    if (is_array($valoroj)) {
        if (!isset($valoroj[$nomo])) {
            reset($valoroj);
            $nomo = key($valoroj);
        }
        $butono_valoro = $valoroj[$nomo];
        unset($valoroj[$nomo]);
        // la restantaj ni metas kaŝite
        foreach ($valoroj as $ilo => $val) {
            tenukasxe($ilo, $val);
        }
        butono($butono_valoro, $titolo, $nomo);
    } else {
        butono($valoroj, $titolo, $nomo);
    }
    echo "</form>";
}
granda_tabelentajpejo("priskribo", "priskribo", $kondicxsistemo->datoj['priskribo'], 40, 5);
tabela_elektilo_db("alig^kategorisistemo", 'aligxkategorisistemo', 'aligxkategorisistemoj', 'nomo', 'ID', $kondicxsistemo->datoj['aligxkategorisistemo']);
echo "</table>\n";
echo "<p>";
if (!$_REQUEST['id']) {
    butono("kreu", "Kreu");
    echo "</p>\n</form>\n";
} else {
    butono("sxangxu", "S^ang^u");
    butono("kopiu", "Kopiu");
    eoecho("(tiam donu novan nomon!)");
    echo "</p>\n</form>\n";
    echo "<hr/>\n";
    eoecho("<h2>Kondic^oj por la unuopaj malalig^periodoj</h2>");
    echo "<form action='malaligxkondicxsistemo.php' method='POST'>\n";
    tenukasxe("ID", $kondicxsistemo->datoj['ID']);
    $sql = datumbazdemando(array("ID", "nomo", "limdato"), "aligxkategorioj", array("sistemoID = '" . $kondicxsistemo->datoj['aligxkategorisistemo'] . "'"), "", array("order" => "limdato DESC"));
    $rez = sql_faru($sql);
    echo "<table>\n";
    eoecho("<tr><th>ID</th><th>nomo</th><th>limdato</th>" . "<th>kondic^o</th></tr>\n");
    while ($linio = mysql_fetch_assoc($rez)) {
        $sql = datumbazdemando("kondicxtipo", "malaligxkondicxoj", array("sistemo = '" . $kondicxsistemo->datoj['ID'] . "'", "aligxkategorio = '" . $linio['ID'] . "'"));
        $lin2 = mysql_fetch_assoc(sql_faru($sql));
        eoecho("<tr><td>" . $linio['ID'] . "</td><td>" . $linio['nomo'] . "</td><td>" . $linio['limdato'] . "</td><td>");
        elektilo_simpla_db("kondicxtipo[{$linio['ID']}]", "malaligxkondicxotipoj", "nomo", "ID", $lin2['kondicxtipo'], "uzebla = 'j'");
        echo "</td></tr>\n";
    }
    echo "</table>\n<p>";
    butono("sxangxuKond", "S^ang^u kondic^ojn");
    echo "</p></form>";
}
session_start();
malfermu_datumaro();
unset($_SESSION["partoprenanto"]);
unset($_SESSION["partopreno"]);
if (!rajtas("vidi")) {
    ne_rajtas();
}
HtmlKapo();
eoecho("<h2>Diversaj serc^oj</h2>\n");
if ($_POST['sendu'] == 'dauxrigu') {
    $valoroj = kopiuSercxon();
    $kodita = base64_encode(kodiguSercxon($valoroj));
    eoecho("<h3>Konservu serc^on</h3>");
    echo "<form action='sercxoj.php' method='post'>\n<p>";
    eoecho("Bonvolu entajpi nomon kaj priskribon por via serc^o." . " Eblas uzi la &#99;^-kodigon por la esperantaj supersignoj" . " (&#69;^ por E^).</p>\n<p>\n");
    tenukasxe('sercxo', $kodita);
    entajpejo("Nomo:", 'nomo', $valoroj['sercxo_titolo']);
    granda_entajpejo("Priskribo:", 'priskribo', "", '50', '5');
    butono("konservu", "Konservu");
    echo "</p>\n</form>";
    HtmlFino();
    return;
}
if ($_REQUEST['sendu'] == 'forigu') {
    foriguSercxon($id);
}
// echo "<!-- POST: \n";
// var_export($_POST);
// // echo "\n valoroj: \n";
// // var_export($valoroj);
// echo "-->\n";
    <?php 
eoecho("<BR>");
send_butono("Serc^u!");
echo "</FORM>\n<br><hr/>";
eoecho("<h3 id='specialaj'>Specialaj serc^oj</h3>\n");
eoecho("<h4>Pagoj kaj rabatoj:</h4>\n<p>");
ligu("sercxrezultoj.php?elekto=antauxpagoj", "&mdash;> c^iu antau^pago");
ligu("sercxrezultoj.php?elekto=rabatoj", "&mdash;> c^iu (individua) rabato");
ligu("sercxrezultoj.php?elekto=krompagoj", "&mdash;> c^iu (individua) krompago");
eoecho("</p><h4>Listu Notojn:</h4>\n<p>");
foreach ($GLOBALS['notomontrotipoj'] as $tipo => $informoj) {
    ligu('sercxrezultoj.php?elekto=laborontajnotoj&montro=' . $tipo, "&ndash;&gt; " . $informoj['teksto']);
}
echo "</p>\n<form action='sercxrezultoj.php'>\n";
eoecho("<p>rigardu notojn por/pri/de: ");
tenukasxe('elekto', 'notoj_de_entajpanto');
elektilo_simpla_db('entajpantoid', 'entajpantoj');
send_butono("Rigardu");
echo "</p>\n</form>\n<p>";
ligu("sercxrezultoj.php?elekto=rimarkoj", "&ndash;&gt; vidi la rimarkojn de la partoprenantoj");
eoecho("<p>\n<h4>Diversaj^ojn:</h4>\n");
ligu("tejomembroj.php", "Kontrolo de TEJO-membrecoj");
echo "<br/>";
//ligu("sercxrezultoj.php?elekto=kotizokomparo",
//     "Komparo de nova kaj malnova kotizokalkulado");
//echo "<br/>";
rajtligu("sercxrezultoj.php?elekto=kunlogxantoj", "&ndash;&gt; c^iu,kiu deziras kunlog^adon", "", 'cxambrumi', 'ne');
eoecho("<BR>c^iu junulargasto por la c^ambrodisdonado: ");
ligu("sercxrezultoj.php?elekto=cxambrodisdonado&nur=antauxpago", "kun antau^pago");
ligu("sercxrezultoj.php?elekto=cxambrodisdonado&nur=cxiuj", "c^iuj");
echo "<BR>";
}
// dauxrigu la rabaton por la onta fojo
$_SESSION["rabato"] = $rabato;
HtmlKapo();
//echo "<BR><BR>";
echo "<center>";
if ($parto == "korekti") {
    erareldono("Hmm, io malg^usta okazis.");
}
echo "</center>";
// "select ID,partoprenoID,kvanto,kauzo from rabatoj where partoprenoID='".$_SESSION["partopreno"]->datoj[ID]."'",
$sql = datumbazdemando(array("ID", "partoprenoID", "kvanto", "kauzo"), "rabatoj", "", array("partopreno" => "partoprenoID"));
sercxu($sql, array("ID", "asc"), array(array('0', '', '->', 'z', '"rabato.php?jena=XXXXX"', '1'), array('kvanto', 'sumo', 'XXXXX', 'r', '', '-1'), array("kauzo", "C^ar", 'XXXXX', 'l', '', '-1')), array(array('', array('&sum; XX', 'N', 'z'))), "rabatoj-partoprenanto", 0, 0, "G^isnunaj rabatoj:", '', 'ne');
echo "<form action='rabato.php' method='POST'>\n";
eoecho("Vi nun entajpas rabaton de: " . $_SESSION["partoprenanto"]->datoj[personanomo] . " " . $_SESSION["partoprenanto"]->datoj[nomo] . " (#" . $_SESSION["partoprenanto"]->datoj[ID] . ") por la " . $_SESSION["renkontigxo"]->datoj[nomo] . " en " . $_SESSION["renkontigxo"]->datoj[loko] . "<BR>\n");
entajpejo("sumo:", kvanto, $rabato->datoj[kvanto], 5, "", "", " E^");
montru_elekto_liston("rabatkauxzoj", $rabato->datoj['kauzo'], 'kauzo');
/*entajpbutono("<BR><BR><BLOCKQUOTE>",kauzo,$rabato->datoj[kauzo],"KKRen",KKRen,
			   "KKRen-membro<BR>","kutima");
  entajpbutono("",kauzo,$rabato->datoj[kauzo],"distra",distra,"distra programo<BR>");  
  entajpbutono("",kauzo,$rabato->datoj[kauzo],"tema",tema,"tema programo<BR>");  
  entajpbutono("",kauzo,$rabato->datoj[kauzo],"vespera",vespera,"vespera programo<BR>");  
  entajpbutono("",kauzo,$rabato->datoj[kauzo],"nokta",nokta,"nokta programo<BR>");  
  entajpbutono("",kauzo,$rabato->datoj[kauzo],"alia",alia,"alia kau^zo<BR>");  
  entajpbutono("",kauzo,$rabato->datoj[kauzo],"teknika",teknika,"teknika rabato (ekzemple miskalkuloj - <strong>se uzata, faru noton!</strong>)</BLOCKQUOTE>");  
  echo "<BR><BR>";*/
tenukasxe(parto, "kontroli");
send_butono("Enmetu!");
ligu("partrezultoj.php", "reen", "");
echo "</form>";
HtmlFino();
    $row[korpo] = str_replace('[loko]', $_SESSION["renkontigxo"]->datoj[loko], $row[korpo]);
    if ($ek == "Nur sendu!" or $ek == "Notu kaj sendu!") {
        sendu_liberan_mesagxon($row[subjekto], stripslashes($row[korpo]), $alkiu, $_SESSION["partoprenanto"]->datoj[retposxto], array('test.pdf', 'martin.png'));
        echo "<font color=red>Mesagxo sendita<BR><BR></font>";
    }
    if ($ek == "Notu!" or $ek == "Notu kaj sendu!") {
        kreunoton($_SESSION["partoprenanto"]->datoj[ID], $_SESSION["kkren"]["entajpantonomo"], $alkiu, $tipo = "rete", $row[subjekto], $row[korpo], $prilaborata);
        //      $row[koerper],"j");
        echo "<font color=red>Noto skribata<BR><BR></font>";
    }
    echo "<b>retadreso:</b> " . $_SESSION["partoprenanto"]->datoj[retposxto] . "<BR>";
    echo nl2br("<b>subjekto:</b> " . $row[subjekto] . "<BR><BR>");
    echo "<textarea name=\"korpo\" cols=\"57\" rows=\"20\" wrap=\"soft\">" . stripslashes($row[korpo]) . "</textarea>";
    echo "<BR>";
    entajpbokso("", "prilaborata", "", "j", "j", "prilaborata<BR>", '', 'ne');
    tenukasxe("elektata", $elektata);
    echo "<input type=submit name=ek value=\"Notu kaj sendu!\"><BR>";
    echo "<input type=submit name=ek value=\"Nur sendu!\"><BR>";
    echo "<input type=submit name=ek value=\"Notu!\"><BR>";
    //  echo "<A href=\"sendumesagxon.php?elektata=".$elektata."&sendu=nun&ek=blup\"> Nur sendu!</A><BR>";
    //  echo "<A href=\"sendumesagxon.php?elektata=".$elektata."&notugxin=faru&ek=blup\"> Notu!</A></form><BR><BR>";
} else {
    // select ID,nomo from retposxto order by nomo");
    $result = sql_faru(datumbazdemando(array("ID", "nomo"), "retposxto", "", "", array("order" => "nomo")));
    ?>
   <form name="elektado" method="post" action="sendumesagxon.php">
   <select size="1" name="elektata">

   <?php 
    while ($row = mysql_fetch_array($result, MYSQL_ASSOC)) {
        ?>
// --------------------------------------------------------
eoecho("<h2>Fikskostoj</h2>");
echo "<form action='kostosistemo.php' method='POST'>\n";
tenukasxe('id', $sistemo->datoj['ID']);
eoecho("<table class='fikskostotabelo'>\n" . "<tr><th>nomo</th><th>kosto</th></tr>");
$sql = datumbazdemando(array("ID", "nomo", "kosto"), "fikskostoj", "kostosistemo = '" . $sistemo->datoj['ID'] . "'");
$rez = sql_faru($sql);
while ($linio = mysql_fetch_assoc($rez)) {
    simpla_entajpejo("<tr><td>", "fikskostoj[" . $linio['ID'] . "][nomo]", $linio['nomo'], 30, "</td>");
    simpla_entajpejo("<td>", "fikskostoj[" . $linio['ID'] . "][kosto]", $linio['kosto'], 6, "</td>");
    // TODO: ligo por forigi la kosto-linion
    echo "</tr>\n";
}
echo "</table>\n<p>";
butono("sxangxu_fikskostojn", "S^ang^u fikskostojn");
echo "</p></form>\n";
echo "<form action='kostosistemo.php' method='POST'>\n";
tenukasxe('id', $sistemo->datoj['ID']);
unset($_REQUEST['nomo'], $_REQUEST['kosto']);
echo "<table>";
tabelentajpejo("nomo", "nomo", "", 30);
tabelentajpejo("kosto", "kosto", "", 6);
echo "</table>";
butono("nova_fikskosto", "Nova fikskosto");
echo "</p></form>\n";
echo "<hr/><p>";
// -------------------------------------------------------
ligu("kostosistemoj.php", "listo de c^iuj kostosistemoj");
ligu("kotizoj.php", "C^io pri kotizoj");
echo "</p>\n";
HtmlFino();
/**
 * kreas serion de kasxitaj input-elementoj por konservi la donitajn
 * valorojn.
 * @param array $listo array en la formo  nomo => valoro.
 *              valoro mem povas esti tia array, tiam ni rekurzive subeniras,
 *              kaj kreas tauxgan input-elementojn por rekrei la array-on.
 * @param string $prefikso komence aldonita al la nomoj en la listo, por krei
 *                          la nomojn uzendan por la intput-elementoj.
 * @param string $postfikso fine aldonita al la nomoj en la listo, por krei
 *                          la nomojn uzendan por la intput-elementoj.
 */
function aliĝilo_listu_donitaĵojn($listo, $prefikso = "", $postfikso = "")
{
    foreach ($listo as $nomo => $valoro) {
        if (substr($nomo, 0, 4) == 'iru_') {
            continue;
        }
        $tutanomo = $prefikso . $nomo . $postfikso;
        if (is_array($valoro)) {
            aliĝilo_listu_donitaĵojn($valoro, $tutanomo . "[", "]");
        } else {
            tenukasxe($tutanomo, $valoro);
        }
    }
}
    eoecho("<h1>Nova invitpeto</h1>");
}
echo "<form method='POST' action='invitpeto.php'>\n";
eoecho("<p>Ni redaktas invitpeton por la alig^o #" . $_SESSION['partopreno']->datoj['ID'] . " de " . $_SESSION['partoprenanto']->tuta_nomo() . " (#" . $_SESSION['partoprenanto']->datoj['ID'] . ") al la " . $partopreno_renkontigxo->datoj['mallongigo'] . ".</p>");
echo "<table>\n";
eoecho("<tr><th colspan='2'><h2>Informoj lau^ pasporto</h2></td></tr>");
tabelentajpejo("Pasportnumero", 'pasportnumero', $aktuala_invitpeto->datoj['pasportnumero'], 30);
tabelentajpejo("Familia nomo", 'pasporta_familia_nomo', $aktuala_invitpeto->datoj['pasporta_familia_nomo'], 30);
tabelentajpejo("Persona(j) nomo(j)", 'pasporta_persona_nomo', $aktuala_invitpeto->datoj['pasporta_persona_nomo'], 30);
granda_tabelentajpejo("Adreso", 'pasporta_adreso', $aktuala_invitpeto->datoj['pasporta_adreso'], 50, 5);
eoecho("<tr><th colspan='2'><h2>Kien sendi la invitilon?</h2></td></tr>");
tabelentajpejo("Faksnumero por sendi la invitilon", 'senda_faksnumero', $aktuala_invitpeto->datoj['senda_faksnumero'], 30);
granda_tabelentajpejo("Adreso", 'senda_adreso', $aktuala_invitpeto->datoj['senda_adreso'], 50, 5);
eoecho("<tr><th colspan='2'><h2>Internaj informoj</h2></td></tr>");
eoecho("<tr><th>Partopreno-ID</th><td>#" . $_SESSION['partopreno']->datoj['ID'] . "</td></tr>");
eoecho("<tr><th>C^u sendi invitleteron?</th><td>");
entajpbutono("Decidu poste", 'invitletero_sendenda', $aktuala_invitpeto->datoj['invitletero_sendenda'], '?', '?', "|", "kutima");
entajpbutono("Jes", 'invitletero_sendenda', $aktuala_invitpeto->datoj['invitletero_sendenda'], 'j', 'j', "|");
entajpbutono("Ne", 'invitletero_sendenda', $aktuala_invitpeto->datoj['invitletero_sendenda'], 'n', 'n', "");
eoecho("</td></tr>");
tabelentajpejo("Sendodato de Invitletero", 'invitletero_sendodato', $aktuala_invitpeto->datoj['invitletero_sendodato'], 11);
echo "</table>";
echo "<p>";
tenukasxe('ID', $_SESSION['partopreno']->datoj['ID']);
if ($aktuala_invitpeto) {
    butono('Sxangxu', "S^ang^u");
} else {
    butono("Kreu", "Kreu");
}
ligu("partrezultoj.php", "Ne s^ang^u kaj reiru");
echo "</form>";
/**
 * Kreas unu tabellinion.
 * @param array $datoj unu datumbaz-respondo-linio.
 */
function metu_tejomembro_tabellinion($datoj)
{
    echo "  <tr>\n";
    $id = $datoj['ID'];
    $antoID = $datoj['partoprenantoID'];
    echo "<td>" . donu_ligon("partrezultoj.php?partoprenidento=" . $id, $id) . "</td><td>";
    if ($GLOBALS['rajtas_sxangxi']) {
        tenukasxe('malnovaUEAkodo[' . $antoID . ']', $datoj['ueakodo']);
        simpla_entajpejo("", 'novaUEAkodo[' . $antoID . ']', $datoj['ueakodo'], 7);
    } else {
        echo $datoj['ueakodo'];
    }
    eoecho("</td><td>" . $datoj['personanomo'] . "</td><td>" . $datoj['nomo'] . "</td><td>" . $datoj['urbo'] . "</td><td>" . $datoj['landonomo'] . "</td><td>");
    // TODO: formatado diversa, alikaze nur jes_ne(...).
    if (jesne_al_boolean($datoj['tejo_membro_laudire'])) {
        echo "jes";
    } else {
        echo "ne";
    }
    echo "</td><td>";
    if ($GLOBALS['rajtas_sxangxi']) {
        tenukasxe("malnovaKontrolita[" . $id . "]", $datoj['tejo_membro_kontrolita']);
        simpla_entajpbutono('novaKontrolita[' . $id . ']', $datoj['tejo_membro_kontrolita'], 'j');
        eoecho("<abbr title='estas membro'>jes</abbr>");
        echo "</td><td>";
        simpla_entajpbutono('novaKontrolita[' . $id . ']', $datoj['tejo_membro_kontrolita'], '?');
        eoecho("<abbr title='ne kontrolita'>?</abbr>");
        echo "</td><td>";
        simpla_entajpbutono('novaKontrolita[' . $id . ']', $datoj['tejo_membro_kontrolita'], 'n');
        eoecho("<abbr title='ne estas membro'>ne</abbr>");
        echo "</td><td>";
        simpla_entajpbutono('novaKontrolita[' . $id . ']', $datoj['tejo_membro_kontrolita'], 'i');
        eoecho("<abbr title='ig^as surloke (nur metu tion dum akceptado!'>ig^as</abbr>");
    } else {
        switch ($datoj['tejo_membro_kontrolita']) {
            case 'j':
                echo "jam antau^e";
                break;
            case 'n':
                echo "ne membras";
                break;
            case 'i':
                echo "ig^as surloke";
                break;
            case '?':
                echo "ne kontrolita";
                break;
        }
    }
    echo "</td>\n";
    echo "  </tr>\n";
}
        eoecho("<p>Mi s^ang^is landon #" . $_POST['ID'] . " en la tabelo.</p>");
    }
}
if ($_REQUEST['redaktu']) {
    eoecho("<h1>Redakto de lando</h1>");
    echo "<form method='POST' action='landoj.php'>\n";
    if ($_REQUEST['redaktu'] == 'nova') {
        $linio = array("ID" => 'nova');
        eoecho("<p> Ni aldonas novan landon</p>\n");
    } else {
        $sql = datumbazdemando('*', 'landoj', "ID = '" . $_REQUEST['redaktu'] . "'");
        $rez = sql_faru($sql);
        $linio = mysql_fetch_assoc($rez);
        eoecho("<p>ID: {$linio['ID']}\n");
    }
    tenukasxe("ID", $linio['ID']);
    echo "<br/>\n<table>";
    tabelentajpejo("esperantlingva nomo:", "nomo", $linio['nomo'], 20);
    tabelentajpejo("ISO-3166-1-kodo:", 'kodo', $linio['kodo'], 3);
    echo "</table><br/>\n";
    eoecho(" ... en la datumbazon.</p>");
    //  echo "<br/>\n";
    if ($_REQUEST['redaktu'] != 'nova') {
        send_butono("S^ang^u");
    } else {
        send_butono("Aldonu");
    }
    entajpbokso("<p>(", "redaktu", "", "jes", $linio['ID'], "Pluredaktu tiun c^i landon.)", "", "sen kasxa");
    ligu("landoj.php", "Reen al la listo");
    if ($redaktu != "nova") {
        ligu("landoj.php?forigu={$redaktu}", "Forigu tiun c^i landon!");
/**
 * montras redaktilon por enmeti/sxangxi la minimumajn
 * antauxpagojn por la unuopaj landokategorioj.
 */
function redaktilo_por_minimumaj_antauxpagoj($sistemo)
{
    eoecho("<h2>Minimumaj antau^pagoj</h2>\n");
    echo "<form action='kotizosistemo.php' method='POST'>\n";
    tenukasxe('id', $sistemo->datoj['ID']);
    echo "<table>\n";
    eoecho("<tr><th>Landokategorio</th><th>minimuma antau^pago (oficiale)</th><th>minimuma antau^pago (interne)</th></tr>");
    $sql = datumbazdemando(array("nomo", "ID"), "landokategorioj", "sistemoID = '" . $sistemo->datoj['landokategorisistemo'] . "'");
    $rez = sql_faru($sql);
    while ($linio = mysql_fetch_assoc($rez)) {
        eoecho("<tr><td>" . $linio['nomo'] . "</td><td>");
        $sql2 = datumbazdemando(array('oficiala_antauxpago', 'interna_antauxpago'), 'minimumaj_antauxpagoj', array("kotizosistemo = '" . $sistemo->datoj['ID'] . "'", "landokategorio = '" . $linio['ID'] . "'"));
        $antaux = mysql_fetch_assoc(sql_faru($sql2));
        simpla_entajpejo("", 'antauxpago[' . $linio['ID'] . '][oficiala_antauxpago]', $antaux['oficiala_antauxpago'], 5);
        echo "</td><td>";
        simpla_entajpejo("", 'antauxpago[' . $linio['ID'] . '][interna_antauxpago]', $antaux['interna_antauxpago'], 5);
        echo "</td></tr>\n";
    }
    echo "</table>\n<p>";
    butono("novaj_antauxpagoj", "S^ang^u la antau^pagojn");
    echo "</p>\n</form>\n";
    echo "<hr/>\n";
    // --------------------------------------------------------
}
    $pago->datoj[dato] = date("Y-m-d");
}
entajpejo("<BR>alvenodato:", dato, $pago->datoj[dato], 11, "", "", " (jaro-monato-tago)");
if (!$pago->datoj[dato] and !kontrolu_daton($pago->datoj[dato])) {
    erareldono("La dato kion vi entajpis ne ekzistas au^ estis malg^uste");
}
entajpejo("sumo:", kvanto, $pago->datoj[kvanto], 5, "", "", " E^");
montru_elekto_liston("antauxpaguloj", $pago->datoj['tipo'], 'tipo', 'antau^pago al ');
/*  entajpbutono("<BR><BR><BLOCKQUOTE>",tipo,$pago->datoj[tipo],"GEJ",GEJ,"antau^pago per GEJ-konto<BR>","");
  entajpbutono("",'tipo',$pago->datoj['tipo'],"BerO",'BerO',"antau^pago al BerO-kaso<BR>");
  entajpbutono("",'tipo',$pago->datoj['tipo'],"UEA",'UEA',"antau^pago per UEA-konto<BR>");
  entajpbutono("",'tipo',$pago->datoj['tipo'],"JEFO",'JEFO',"antau^pago al JEFO<br/>");
  entajpbutono("",'tipo',$pago->datoj['tipo'],"HEJ",'HEJ',"antau^pago al HEJ<br/>");
  entajpbutono("",'tipo',$pago->datoj['tipo'],"IEJ",'IEJ',"antau^pago al IEJ<br/>");
  entajpbutono("",'tipo',$pago->datoj['tipo'],"Martin",'Martin',"antau^pago al Martin<BR>");  
  entajpbutono("",'tipo',$pago->datoj['tipo'],"Julia",'Julia',"antau^pago al Julia<BR>");  
  entajpbutono("",'tipo',$pago->datoj['tipo'], "Andreas", "Andreas",
			   "antau^pago al Andreas<br/>");
  entajpbutono("",'tipo',$pago->datoj['tipo'],"alia",'alia',"alia antau^pago (faru noton!)<BR/><BR/>");  
  entajpbutono("",'tipo',$pago->datoj['tipo'],"surlokpago",'surlokpago',"surloka pago<BR>","kutima");
  entajpbutono("",'tipo',$pago->datoj['tipo'],"donaco",'donaco',"doncao<BR>");
  entajpbutono("",'tipo',$pago->datoj['tipo'],"repago",'repago',"repago</BLOCKQUOTE>");

  echo "<BR><BR>";
  */
tenukasxe('parto', "kontroli");
send_butono("Enmetu!");
ligu("partrezultoj.php", "reen", "");
echo "</form>";
HtmlFino();
$_SESSION["pago"] = $pago;
}
echo "<BR>";
if (rajtas("administri")) {
    entajpejo("<br> 1a konfirmilo sendata:", '1akonfirmilosendata', $_SESSION["partopreno"]->datoj['1akonfirmilosendata'], 11, "", "", " (jaro-monato-tago)");
    entajpejo("<br> 2a konfirmilo sendata:", '2akonfirmilosendata', $_SESSION["partopreno"]->datoj['2akonfirmilosendata'], 11, "", "", " (jaro-monato-tago)");
}
if ($_SESSION["partopreno"]->datoj[ID]) {
    echo "partopreno-ID: " . $_SESSION["partopreno"]->datoj[ID] . " <BR>\n";
}
// muss noch ge䮤ert werden
echo "<p align=center>\n";
entajpbokso("", "nekontrolup", $nekontrolup, "JES", "JES", "Se vi maldeziras datkontroladon pro problemojn, marku c^i tie.<BR>");
echo "<hr/><p><b>Por A- kaj B-Landanoj: </b>\n";
eoecho("Precipe mi konscias, ke mia alig^o validas nur ekde la " . "alveno de mia antau^pago c^e GEJ.</p>");
entajpbokso("", "konsento", $konsento[0], "J", "JES", "Mi legis kaj agnoskas la suprajn kondic^ojn.<br/>", "J");
if ($_SESSION["ago"] == "sxangxi") {
    if ($_SESSION['sekvontapagxo']) {
        ligu($_SESSION['sekvontapagxo'], "ne s^ang^u kaj pluen");
    } else {
        ligu("partrezultoj.php?partoprenantoidento=" . $_SESSION["partoprenanto"]->datoj[ID] . "&partoprenidento=" . $_SESSION["partopreno"]->datoj[ID], "ne s^ang^u kaj reen");
    }
    tenukasxe("ago", $_SESSION["ago"]);
    //sqlago=forgesu&
    send_butono("S^ang^u!");
} else {
    send_butono("Aligu!");
}
echo "</p>";
echo "</TD><TD width=20%></TD></TR></TABLE>\n";
echo "</form>\n";
HtmlFino();
            eoecho("<h2>Redakto de ekzistanta teksto</h2>");
            eoecho("<p>Vi nun s^ang^os tekston (#" . $_GET['id'] . ") de la renkontig^o " . $_SESSION['renkontigxo']->datoj['mallongigo'] . " (#" . $_SESSION['renkontigxo']->datoj['ID'] . ").</p>");
            $id_postt = "(Kutime ne necesas s^ang^i tiun - faru tion nur," . " se vi scias, ke kaj kial necesas.)";
            $_REQUEST['mesagxoID'] = $linio['mesagxoID'];
            $_REQUEST['teksto'] = $linio['teksto'];
        } else {
            eoecho("<h2>Aldono de nova teksto</h2>");
            eoecho("<p>Vi nun aldonos tekston al la renkontig^o " . $_SESSION['renkontigxo']->datoj['mallongigo'] . " (#" . $_SESSION['renkontigxo']->datoj['ID'] . ").</p>");
            $id_postt = "";
            $linio = "";
        }
    }
}
?>
<form action='nova_teksto.php' method='POST'>
<table class='tekstoj-redaktilo'>
<?php 
tabelentajpejo("Identifikilo", 'mesagxoID', $_REQUEST['mesagxoID'], 30, $id_postt);
granda_tabelentajpejo("Teksto", 'teksto', $_REQUEST['teksto'], '60', '10');
echo "</table>";
if ($_REQUEST['id']) {
    tenukasxe('id', $_GET['id']);
    butono('sxangxu', 'S^ang^u');
} else {
    butono("aldonu", "Aldonu");
}
ligu("tekstoj.php", "Reen al la teksto-listo");
ligu("renkontigxo.php", "Reen al la renkontig^o");
ligu("administrado.php", "Reen al la grava administrado");
echo "</form>";
HtmlFino();
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>");
        simpla_entajpejo("<p>{$Ri} donacas: ", 'repago', $informoj['pagenda_cxef'], 10, "", CXEFA_VALUTO . ". ");
        butono('donacu', "Enmetu donacon");
        echo "</p>\n</form>\n";
    }
    foreach ($informoj['listo'] as $listero) {
        echo "<form action='akceptado-pago.php' method='POST'>\n";
        tenukasxe('valuto', $listero['valuto']);
        if ($informoj['repagenda']) {
            eoecho("<h4>Repago en " . $listero['valutoteksto'] . "</h4>");
            if ($listero['valuto'] == CXEFA_VALUTO) {
                if ($listero['pagenda'] == $listero['vere_pagenda']) {
                    eoecho("<p>Lau^ la supra kalkulo, {$ri} pagis <strong>" . -$listero['pagenda'] . "&nbsp;" . $listero['valuto'] . "</strong> tro, kaj povas rericevi nun.</p>");
                } else {
                    eoecho("<p>Lau^ la supra kalkulo, {$ri} pagis " . -$listero['pagenda'] . "&nbsp;" . $listero['valuto'] . " tro. </p>\n" . "<p> Por simpligi, ni povas redoni <strong>" . -$listero['vere_pagenda'] . "&nbsp;" . $listero['valuto'] . "</strong>.</p>");
                }
            } else {
                eoecho("<p>Ni uzas la kurzon de " . $listero['kurzo'] . " " . CXEFA_VALUTO . "/" . $listero['valuto'] . " (" . $listero['kurzo-dato'] . "). <br/>\n");
                if ($listero['pagenda'] == $listero['vere_pagenda']) {
                    eoecho("lau^ tio, {$ri} pagis <strong>" . -$listero['pagenda'] . "&nbsp;" . $listero['valuto'] . "</strong> tro, kaj povas rericevi nun.</p>");
                } else {
                    eoecho("Lau^ tio, {$ri} pagis " . -$listero['pagenda'] . "&nbsp;" . $listero['valuto'] . " tro.</p>\n" . "<p>Por simpligi, ni povas redoni <strong>" . -$listero['vere_pagenda'] . "&nbsp;" . $listero['valuto'] . "</strong>.</p>");
                }
 * @copyright 2007-2008 Paul Ebermann.
 *       Uzebla laŭ kondiĉoj de GNU Ĝenerala Publika Permesilo (GNU GPL)
 */
/**
 */
simpla_aliĝilo_komenco('3a', CH('aligxilo#titolo'));
?>
<tr><td colspan='4'>
<?php 
echo CH('pasporto-detaloj-bla');
if (!$_POST['pasporta_adreso'] or !$_POST['senda_adreso']) {
    if (!$_POST['landonomo']) {
        echo "<!-- prafix: {$prafix} -->";
        require_once $prafix . '/iloj/iloj.php';
        $landonomo = eltrovu_landon($_POST['lando']);
        tenukasxe('landonomo', $landonomo);
    } else {
        $landonomo = $_POST['landonomo'];
    }
}
?>
</td></tr>
<tr>
<?php 
aliĝilo_tabelentajpilo('pasportnumero', CH('pasportnumero'), 25);
if (!$_POST['pasporta_persona_nomo']) {
    $_REQUEST['pasporta_persona_nomo'] = $_POST['personanomo'];
}
if (!$_POST['pasporta_famila_nomo']) {
    $_REQUEST['pasporta_familia_nomo'] = $_POST['nomo'];
}
if ($cxambro) {
    if ($cxambro->datoj['renkontigxo'] == $renkontigxoID) {
        eoecho("<h2>Redakto de c^ambro " . $cxambro->datoj['nomo'] . "</h2>");
        $redakto = true;
    } else {
        eoecho("<h2>Kreo de nova c^ambro surbaze de " . $cxambro->datoj['nomo'] . " el alia renkontig^o</h2>");
    }
} else {
    eoecho("<h2>Kreo de nova c^ambro</h2>");
}
echo "<form action='kreu_cxambron.php' method='post'>\n";
echo "<table>\n";
eoecho("<tr><th>ID</th><td>");
if ($redakto) {
    eoecho($cxambro->datoj['ID']);
    tenukasxe("id", $cxambro->datoj['ID']);
} else {
    eoecho("<em>au^tomate disdonota</em>");
}
eoecho("</td></tr>\n");
eoecho("<tr><th>renkontig^o</th><td>" . $_SESSION['renkontigxo']->datoj['nomo'] . "</td></tr>\n");
eoecho("<tr><th>nomo</th><td>");
entajpejo("", "nomo", $cxambro->datoj['nomo'], 10);
eoecho("</td></tr>");
eoecho("<tr><th>etag^o</th><td>");
entajpejo("", "etagxo", $cxambro->datoj['etagxo'], 50);
eoecho("</td></tr>");
eoecho("<tr><th>litonombro</th><td>");
entajpejo("", "litonombro", $cxambro->datoj['litonombro'], 5);
eoecho("</td></tr>");
eoecho("<tr><th>rimarkoj</th><td>");
}
// 	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>");
}
eoecho("<p>Se {$ri} estos membro de TEJO por la jaro " . TEJO_MEMBRO_JARO . ", {$ri} ricevos rabaton" . " de " . TEJO_RABATO . " E^.\n</p>");
eoecho("<h3>Aktuala stato</h3>\n");
if ($partoprenanto->datoj['naskigxdato'] < TEJO_AGXO_LIMDATO) {
    eoecho("<p>Lau^ nia kalkulo, {$ri} estas " . "<strong>tro ag^a</strong> por ig^i " . "TEJO-membro. Do ne eblas ricevi TEJO-rabaton.</p>\n");
}
eoecho("<p>Lau^ la datumbazo, " . $statoteksto . "</p>\n");
eoecho("<h3>Nova stato</h3>\n");
echo "<form action='akceptado-tejo.php' method='post' class='elekto-listo'>";
entajpbutono("<p>", 'ago', 'igxu', $stato, 'igxu', "{$Ri} ig^as TEJO-membro kaj pagos ");
simpla_entajpejo("la kotizon de ", 'kotizo', $partopreno->datoj['tejo_membro_kotizo'], "10", "", " E^ kun la renkontig^a kotizo.</p>");
entajpbutono("<p>", 'ago', 'jam', $stato, 'jam', "{$Ri} jam estas TEJO-membro por " . TEJO_MEMBRO_JARO . " kaj povis pruvi tion, do ricevos rabaton sen pagi" . "  apartan TEJO-kotizon.</p>");
entajpbutono("<p>", 'ago', 'ne', $stato, 'ne', "{$Ri} nek estas TEJO-membro nek volas au^ povas ig^i, kaj rezignas" . " pri la TEJO-rabato.</p>");
entajpbutono("<p>", 'ago', 'pagas', $stato, 'pagas', "{$Ri} nek estas TEJO-membro nek volas au^ povas ig^i, kaj" . " rezignas pri la TEJO-rabato.<br/> {$Ri} ial tamen pagas ");
simpla_entajpejo("", 'krompago', $partopreno->datoj['tejo_membro_kotizo'], "10", "", " E^ kun la renkontig^a kotizo al TEJO/UEA," . " ekzemple por UEA-membreco (kvankam troag^a por TEJO)," . " membreco en kategorio MG au^ membrokotizo por alia " . " persono. Certigu, ke vi notos sur tau^ga papero (ekzemple" . " la alig^ilo), kiom {$ri} pagis por kio.</p>");
echo "<p>";
tenukasxe('partoprenidento', $partopreno->datoj['ID']);
send_butono("S^ang^u");
echo "</p></form>";
HtmlFino();
// define("DEBUG", true);
require_once 'iloj/iloj.php';
session_start();
HtmlKapo("maldekstren");
malfermu_datumaro();
if (rajtas('vidi')) {
    // rapida salto al la detaloj-pagxo (aux akcepto-pagxo) laux PP-ID
    ?>
<form method="post" id="entajpu" name="entajpu"
      action="route.php" target="anzeige"
		style="float:left; text-align: center; display: block; margin: 2pt; border: outset thin; padding:1pt;">
	<p style='margin: 1pt; font-size: small;'>partopreno-ID:</p>
	<p style='margin: 1pt;'>
        <?php 
    tenukasxe('elekto', 'Montru!');
    simpla_entajpejo("", 'partoprenidento', '', 5);
    ?>
	</p>
</form>
<?php 
}
// TODO?: später kürzer, via session;
echo "<div style='text-align:right;margin:3pt;'>";
if (isset($_SESSION['kkren'])) {
    eoecho("Saluton, kara");
    ligu('uzanto.php', $_SESSION["kkren"]["entajpantonomo"]);
    eoecho(",\n");
} else {
    eoecho("Saluton, kara nekonatulo, ");
    ligu("komenci.php", "bonvolu ensaluti!");
    //   else
    //   {
    //     $partopreno->datoj[okupigxo] = 0;
    //   }
    $partopreno->datoj[domotipo] = $domotipo;
    $partopreno->datoj[de] = $de;
    $partopreno->datoj[gxis] = $gxis;
    //$partopreno->datoj[partoprentipo] = $partoprentipo;
    $kot = new Kotizo($partopreno, $partoprenanto, $renkontigxo);
    echo "<table id='rezulto'>\n";
    $kot->montru_kotizon(0, $partopreno, $partoprenanto, $renkontigxo);
    echo "</table>\n";
    echo "<hr />\n";
}
echo "<form method='post' action='{$PHP_SELF}#rezulto'>";
tenukasxe("formrenkontigxo", $renkontigxo->datoj["ID"]);
eoecho("<BR>Antau^kalkuli la kotizon por: la " . $renkontigxo->datoj["nomo"] . " en " . $renkontigxo->datoj["loko"]);
eoecho("<BR>Se vi alig^us hodiau^!");
echo "<BR><BR>";
entajpejo("", naskigxdato, $naskigxdato, 13, "", "1900-01-01", "&nbsp;naskig^dato (jaro-monato-tago)");
entajpejo("", aligxdato, $aligxdato, 13, "", date("Y-m-d", time()), "&nbsp;relevanta alig^dato (jaro-monato-tago)");
eoecho("Log^lando: \n");
montru_landoelektilon(5, $lando);
/*entajpbutono("",partoprentipo,$partoprentipo[0],"t",tuttempa,tutempa,"kutima");
echo "<BR>";
entajpbutono("",partoprentipo,$partoprentipo[0],"p",partatempa,partatempa);
*/
echo "partopreno de:\n";
echo "<select name=\"de\" size=1>\n";
// TODO: Geht kürzer, oder als Fkt ==> später mal.
$dateloop = $renkontigxo->datoj[de];
/**
 * montras formulareton por intersxangxi la logxantojn de du cxambroj.
 * @param string $unua identigilo de la unua cxambro. Se mankas,
 *                    ni montras ankaux por tiu elektilon.
 */
function montru_cxambrointersxangxilon($unua = 0)
{
    echo "<form action='cxambroago.php' method='post'>\n";
    eoecho("<p>S^ang^u la log^antojn inter c^ambro:\n");
    $restriktoj = array("renkontigxo = '" . $_SESSION['renkontigxo']->datoj['ID'] . "'");
    if ($unua) {
        tenukasxe('de', $unua);
        echo $unua;
    } else {
        elektilo_simpla_db('de', 'cxambroj', 'nomo', 'ID', '', $restriktoj);
        /*
        echo "<select name=\"de\" size=1>\n";
          while  (list($k, $v) = each($listo))
          {
            eoecho( "  <option value = \"$v\">$k</option>\n");
          }
          echo "</select>\n";
          }
        */
    }
    eoecho(" kaj \n");
    elektilo_simpla_db('al', 'cxambroj', 'nomo', 'ID', '', $restriktoj);
    butono('intersxangxo', "Nun!");
    echo "</p></form>\n";
}