/**
 * 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(