/**
 * @param Mangxtempo $mangxtempo
 */
function montru_mangxredaktilon($mangxtempo)
{
    echo "<form action='mangxredakto.php' method='POST'>\n<table>";
    $linio = $mangxtempo->datoj;
    if (!$linio['renkontigxoID']) {
        $linio['renkontigxoID'] = $_SESSION['renkontigxo']->datoj['ID'];
    }
    tabela_kasxilo("ID", 'ID', $linio['ID']);
    tabela_kasxilo("renkontig^o-ID", 'renkontigxoID', $linio['renkontigxoID']);
    // TODO: pli bona dato-entajpilo (ekzemple simile al komenco-/findatoj)
    tabelentajpejo("Dato", 'dato', $linio['dato'], 20);
    //    echo( "<!-- mangxotipoj: " . var_export($GLOBALS['mangxotipoj'], true) . "-->");
    if ($linio['mangxotipo']) {
        $tipoj = $GLOBALS['mangxotipoj'];
    } else {
        $tipoj = array_merge(array('-' => ""), $GLOBALS['mangxotipoj']);
    }
    //    echo( "<!-- tipoj: " . var_export($tipoj, true) . "-->");
    tabela_elektilo("mang^otipo", 'mangxotipo', $tipoj, $linio['mangxotipo']);
    //    tabelentajpejo("Prezo", 'prezo', $linio['prezo'], 10);
    tabelentajpejo("Komento", 'komento', $linio['komento'], 20);
    echo "</table>\n<p>\n";
    if ($linio['ID']) {
        butono("sxangxu", "S^ang^u");
        butono("kreu", "Kreu novan");
    } else {
        butono("kreu", "Kreu");
    }
    ligu("mangxredakto.php", "Reen al la listo");
    // butono + reen
    echo "</p>\n</form>\n";
}

/**
 * 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);
}

/**
 * donas erarmesaĝon, ke la uzanto ne rajtas fari ion,
 * kaj finas la skripton.
 *
 * @param string $ago kiun rajton oni bezonus.
 * @todo prenu la nomon, kie plendi el la konfiguro.
 * @todo ĉu iel taŭge fini la HTML-strukturon?
 */
function ne_rajtas($ago = "?")
{
    eoecho("Malg^usta kodvorto au^ nomo ne ekzistas, au^ eble vi ne rajtas uzi tiu c^i pag^on ({$ago})<BR>");
    eoecho("Se vi pensas, ke vi devus rajti, kaj ke vi donis la g^ustan kodvorton, plendu c^e Pau^lo.");
    // TODO: Pauxlo -> el konfiguro
    ligu("index.php", "<-- reen al la komenca pag^o", "_top");
    // TODO: exit() finas la tutan skripton, sen zorgi, ke la HTML estas ie en la mezo ...
    // Eble iom helpus voki htmlFino().
    exit;
}

/**
 * HTML-a kapo por la serĉ-paĝo, inkluzive de elektilo por jam
 * ekzistantaj serĉoj.
 */
function sercxKapo()
{
    HtmlKapo();
    eoecho("<h2>G^enerala Serc^o</h2>\n");
    kasxeblaSercxoElektilo();
    ligu("partsercxo.php", "Reen al la partoprenantoserc^o");
    ligu("gxenerala_sercxo.php", "nova serc^o");
    if ($_REQUEST['antauxa_sercxo']) {
        trovuSercxon($_REQUEST['antauxa_sercxo'], $GLOBALS['valoroj'], true);
    }
}

/**
 * metas ligon al la listo kun nova ordigo de la linioj.
 * (Se la nova ordigo estus la sama kiel la malnova, montras
 *  nur la titolon, sen ligo.)
 * @param eostring $titolo la montrota teksto por la ligo.
 * @param sqlstring $novakampo la nomo de la kampo, kiu
 *      estu la nova cxefa ordigo.
 * @param sqlstring $ordigo la gxisnuna ordigo
 */
function metu_ordigoligon($titolo, $novakampo, $ordigo)
{
    $malnovaj_ordigoj = explode(",", $ordigo);
    if ($novakampo != $malnovaj_ordigoj[0]) {
        array_unshift($malnovaj_ordigoj, $novakampo);
        $novaj_ordigoj = array_values(array_unique($malnovaj_ordigoj));
        ligu("tejomembroj.php?ordigo=" . implode(",", $novaj_ordigoj), $titolo);
    } else {
        eoecho($titolo);
    }
}

/**
 * Finas la programon kun kelkaj debug-informoj.
 *
 * Ĉi tiu funkcio ekzistas nur por
 * trovi cimojn en la programo.
 * Tiun ĉi funkcion oni nur voku je lokoj
 * en la programo, kiujn oni normale ne atingu.
 *
 * Ĝi printas la vok-ĉenon, kaj finas
 * la programon.
 *
 * @todo trovu taŭgan esperantan nomon.
 * @param mixed $klarigo se donita (= ne false), ĝi
 *                  ankaŭ estos aldonita al la eldonoj.
 */
function darf_nicht_sein($klarigo = "")
{
    eoecho("<p>Tiu kazo ne rajtus okazi, vers^ajne estas eraro en la programo." . " Bonvolu informi ");
    ligu('mailto:' . teknika_administranto_retadreso, teknika_administranto);
    eoecho(" pri tio, kun kopio de la subaj datoj.</p>");
    echo '<div align="left" style="border-top: solid thin; border-bottom: solid thin;"><pre>';
    if ($klarigo) {
        if (is_string($klarigo)) {
            echo $klarigo;
        } else {
            eoecho("Aldona informo:");
            var_export($klarigo);
        }
        echo "<hr />";
    }
    var_export(debug_backtrace());
    print "</pre></div>";
    exit;
}

function redaktilo_por_kurzo($kurzo)
{
    if ($kurzo->datoj['ID']) {
        eoecho("<h2>Redakto de kurzo</h2>");
    } else {
        eoecho("<h2>Nova kurzo</h2>");
    }
    echo "<form action='kurzoj.php' method='POST'>\n";
    echo "<table>\n";
    tabela_kasxilo("ID", 'ID', $kurzo->datoj['ID']);
    tabela_elektolisto_el_konfiguroj("valuto", 'valuto', 'valuto', $kurzo->datoj['valuto'], $ppRenk);
    tabelentajpejo("dato", 'dato', $kurzo->datoj['dato'], 10);
    tabelentajpejo("kurzo", 'kurzo', $kurzo->datoj['kurzo'], 10);
    echo "</table>\n";
    echo "<p>\n";
    if ($kurzo->datoj['ID']) {
        butono('sxangxu', "S^ang^u!");
    } else {
        butono('kreu', "Enmetu!");
    }
    ligu("kurzoj.php", "Reen");
    echo "</p>\n";
    echo "</form>";
}

        eoecho("</td><td><p style='white-space: pre; white-space: pre-wrap'>" . $linio['teksto'] . "</pre>\n      </td><td>" . $priskribo['priskribo'] . "\n      </td>\n    </tr>");
    }
    echo "</table>";
    butono('redaktu', "Redaktu la markitajn tekstojn");
    butono('redaktu_cxiujn', "Redaktu c^iujn tekstojn");
    ligu("renkontigxo.php", "Reen al la renkontig^o");
    ligu("administrado.php", "Reen al la grava administrado");
    echo "</form>\n";
    $restantaj = array();
    foreach ($GLOBALS['tekstpriskriboj'][""] as $priskribo) {
        if (!$priskribo['uzata'] and $priskribo['mesagxoID']) {
            $restantaj[] = $priskribo;
        }
    }
    if (count($restantaj)) {
        eoecho("<p>Pri la sekvaj tekstoj ekzistas priskriboj, sed ili mankas " . " por la aktuala renkontig^o:</p>");
        eoecho("<table>\n" . "<tr><th>mesag^o-ID</th><th>Priskribo</th></tr>\n");
        foreach ($restantaj as $priskribo) {
            echo "<tr><td><strong>" . $priskribo['mesagxoID'] . "</strong><br/>";
            ligu("nova_teksto.php?mesagxoID=" . $priskribo['mesagxoID'], "kreu");
            eoecho("</td><td>" . $priskribo['priskribo'] . "</td></th>\n");
        }
        eoecho("</table>\n");
    }
}
HtmlFino();
if (DEBUG) {
    echo "<!--SESSION: ";
    var_export($_SESSION);
    echo "-->";
}

/**
 * alligas iun paĝon/dosieron kun aldona hazarda numero, por
 * eviti uzon de retumila stokejo.
 * La dosiero ĉiam malfermiĝu en nova fenestro/kadro
 *       (<samp>target='_blank'</samp>), ĉar PDF-dosiero en
 *   retumila subkadro estas iom malfacile uzebla.
 *
 * @todo esploru la Opera-problemon pri tio
 *
 * @param urlstring $kien la URL por alligi. Ni aldonas <samp>'?rand=</samp>
 *                     kaj hazardan numeron.
 * @param  eostring $nomo la teksto de la ligo.
 * 
 */
function hazard_ligu($kien, $nomo)
{
    ligu($kien . "?rand=" . rand(1000, 9999), $nomo, "_blank");
}

    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>";
}
echo "<hr/>\n<p>";
ligu("kotizosistemoj.php", "C^iuj kotizosistemoj");
ligu("kategorisistemoj.php#malaligxsistemoj", "C^iuj kategoriosistemoj");
ligu("kotizoj.php", "c^io rilate al kotizoj");
echo "</p>";
HtmlFino();

eoecho($klarigo . "<br />(ordigitaj lau^ nombro)\n");
//    $sql  = "Select l.nomo, count(*) as c ";
//    $sql .= "from landoj as l, partoprenoj as p, partoprenantoj as e ";
//    $sql .= "where p.partoprenantoID = e.id and e.lando=l.id and alvenstato='v' and renkontigxoID=".$_SESSION["renkontigxo"]->datoj[ID];
//    $sql .= " group by lando order by c DESC";
$sql = datumbazdemando(array("l.nomo", "count(*)" => "c"), array("landoj" => "l", "partoprenoj" => "p", "partoprenantoj" => "e"), array("p.partoprenantoID = e.ID", "e.lando = l.id", "p.alvenstato = '{$alvenstato}'"), "p.renkontigxoID", array("group" => "lando", "order" => "c DESC"));
sql_farukajmontru($sql);
// "select count(*) as c from partoprenoj as p, partoprenantoj as e where p.partoprenantoID=e.id and alvenstato='v' and renkontigxoID=".$_SESSION["renkontigxo"]->datoj[ID]
echo "</TD><TD align=center>\n";
eoecho($klarigo . "<br />(ordigita lau^ nomo)\n");
//    $sql  = "Select l.nomo, count(*) as c ";
//    $sql .= "from landoj as l, partoprenoj as p, partoprenantoj as e ";
//    $sql .= "where p.partoprenantoID = e.id and e.lando=l.id and alvenstato='v' and renkontigxoID=".$_SESSION["renkontigxo"]->datoj[ID];
//    $sql .= " group by e.lando order by l.nomo ASC";
$sql = datumbazdemando(array("l.nomo", "count(*)" => "c"), array("landoj" => "l", "partoprenoj" => "p", "partoprenantoj" => "e"), array("p.partoprenantoID = e.ID", "e.lando = l.id", "alvenstato = '{$alvenstato}'"), "renkontigxoID", array("group" => "e.lando", "order" => "l.nomo ASC"));
sql_farukajmontru($sql);
echo "</TD><TD align=center>\n";
echo "</TD></TR><tr><td colspan='2' align='center'>";
// TODO: uzu tabelon sen "nombro:" - aux enmetu la sumo-kalkuladon tuj
// en la supran tabelon.
sql_farukajmontru(datumbazdemando(array("'Sumo:'", "count(*)" => "c"), array("partoprenoj" => "p", "partoprenantoj" => "e"), array("p.partoprenantoID = e.id", "alvenstato = '{$alvenstato}'"), "renkontigxoID"));
echo "</TD></TR><tr><td colspan='2' align='center'>";
foreach ($GLOBALS['alvenstatonomoj'] as $id => $nomo) {
    if ($id == $alvenstato) {
        eoecho(" <strong>" . $nomo . "</strong>");
    } else {
        ligu("statistikoj.php?alvenstato=" . $id, $nomo);
    }
}
echo "</td></tr></TABLE>\n";
HtmlFino();

/**
 * funkcios preskaux same kiel sercxu() (el iloj_html), sed kun nova implementado.
 *
 * Diferencoj:
 *
 * $sumoj - por cxiu sum-linio ekzistas array (en $sumoj). En cxiu linio-array
 *      estas po element-array por kolono, kun tri elementoj:
 *   [0] - La teksto de la kampo. Se vi uzas XX, tie aperos la rezulto
 *         de la sumado.
 *   [1] - La speco de la sumado. eblecoj:
 *              A - simple nur kalkulu, kiom da linioj estas.
 *              J - kalkulu, kiom ofte aperas 'J' en la koncerna kampo
 *              E - kalkulu, kiom ofte enestas io en la koncerna kampo
 *              N - adiciu la numerojn en la koncerna kampo.
 *   [3] - arangxo ('l', 'r', 'z' - vidu cxe $kolumoj - [3].)
 * $identifikilo - estas uzata por la ligoj por reordigi, tiel cxe pluraj
 *                 tabeloj en la sama pagxo la gxusta estos montrita.
 * $extra - ['Spaltenrechnung'] ne plu funkcias.
 *
 */
function sercxu_nova($sql, $ordigo, $kolumnoj, $sumoj, $identifikilo, $extra, $csv, $antauxteksto, $almenuo, $proprakapo = "jes")
{
    if ($csv < 2 and $proprakapo == 'jes') {
        HtmlKapo();
        eoecho("<p>{$antauxteksto}</p>");
    } else {
        if ($csv >= '2') {
            header("Content-Type: application/octet-stream");
            //csv als Download anbieten
            header("Content-Disposition: attachment; filename='csv_export.txt'");
        }
    }
    $eigenlink = "sercxrezultoj.php?elekto=memligo&id={$identifikilo}";
    $_SESSION["memligo"][$identifikilo]["sql"] = $sql;
    $_SESSION["memligo"][$identifikilo]["antauxteksto"] = $antauxteksto;
    $_SESSION["memligo"][$identifikilo]["kolumnoj"] = $kolumnoj;
    $_SESSION["memligo"][$identifikilo]["sumoj"] = $sumoj;
    $_SESSION["memligo"][$identifikilo]["aldone"] = $extra;
    $_SESSION['memligo'][$identifikilo]["almenuo"] = $almenuo;
    $klaso = array("para", "malpara");
    $arangxo = array("r" => "dekstren", "d" => "dekstren", "l" => "maldekstren", "m" => "maldekstren", "z" => "centren", "c" => "centren");
    $inversa = array("asc" => "desc", "desc" => "asc");
    if ($csv == 0) {
        echo "<table>\n";
        echo "<tr class='titolo'>";
    }
    $i = 0;
    while (isset($kolumnoj[$i])) {
        if ($csv == 0) {
            echo "<th class='" . $arangxo[$kolumnoj[$i][3]] . "'>";
            if ($ordigo[0] == $kolumnoj[$i][0]) {
                ligu($eigenlink . "&orderby=" . $kolumnoj[$i][0] . "&asc=" . $inversa[$ordigo[1]], $kolumnoj[$i][1] . "<img src='bildoj/" . $ordigo[1] . "_order.gif' />");
            } else {
                if (is_numeric($kolumnoj[$i][0])) {
                    echo $kolumnoj[$i][1];
                } else {
                    ligu($eigenlink . "&orderby=" . $kolumnoj[$i][0] . "&asc=asc", $kolumnoj[$i][1]);
                }
            }
            echo "</th>";
        } else {
            eoecho($kolumnoj[$i][0] . ";");
        }
        $i++;
    }
    if ($csv >= '2') {
        echo "\n";
    } else {
        if ($csv == 1) {
            echo "<br/>\n";
        } else {
            echo "</tr>\n";
        }
    }
    $result = sql_faru($sql . " order by " . $ordigo[0] . " " . $ordigo[1]);
    if (DEBUG) {
        var_export($result);
    }
    $linionumero = 0;
    while ($row = mysql_fetch_array($result, MYSQL_BOTH)) {
        $linionumero += 1;
        if ($csv == 0) {
            echo "<TR  onmouseover='marku(this)' onmouseout='malmarku(this)' " . " class='" . $klaso[$linionumero % 2] . "'>\n";
            // TODO: Javascript ausprobieren
        }
        $i = 0;
        while (isset($kolumnoj[$i])) {
            $kolumno = $kolumnoj[$i];
            $temp = $kolumno[0];
            $textinhalt = $kolumno[2];
            $aus = $kolumno[3];
            $linkk = $kolumno[4];
            if ($kolumno[5] != '-1') {
                $doselectWert = $row[$kolumno[5]];
            } else {
                $doselectWert = '-1';
            }
            //echo "<TD align=$ausrichtung[$aus]>$row[$temp]</TD>";
            if ($csv == 0) {
                echo "<td align={$ausrichtung[$aus]}>";
//.........这里部分代码省略.........

    $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;

//ligu("sercxrezultoj.php?elekto=junulargastejolisto", "eksportu liston por la junulargastejo en Wetzlar");
// ligu("sercxrezultoj.php?elekto=andiListe", "eksportu liston por ministerio");
ligu("sercxrezultoj.php?elekto=cxambrolisto", "montru liston de la cxambroj kaj enlogxantoj");
ligu("sercxrezultoj.php?elekto=germanoj_laux_lando&dosiertipo=0", "Germanoj lau^ lando");
ligu("sercxrezultoj.php?elekto=germanoj_laux_lando&dosiertipo=1", "1");
ligu("sercxrezultoj.php?elekto=germanoj_laux_lando&dosiertipo=2", "2");
ligu("sercxrezultoj.php?elekto=germanoj_laux_lando&dosiertipo=3", "3");
echo "<BR>";
ligu("sercxrezultoj.php?elekto=nenula_saldo", "Partoprenantoj kun ne-nula pago-saldo");
echo "<BR>";
// rajtligu("sercxrezultoj.php?elekto=restaspagenda","kiom pagendas por c^iu?","","mono",'ne');
ligu("sercxrezultoj.php?elekto=kunmangxo", "Kontrolu, c^u c^ie kunmang^ado = junulargastejumado");
// ligu('sercxrezultoj.php?elekto=partoprenintoj_por_enketo',
//      "Listo de bazaj datoj de partoprenintoj por enketaj celoj (CSV)");
// echo "<br />";
// ligu('sercxrezultoj.php?elekto=aligxintoj_laux_kategorioj',
//      "G^enerala alig^into-statistiko de la lastaj jaroj (sen ag^o)");
// ligu('sercxrezultoj.php?elekto=aligxintoj_laux_kategorioj&csv=1',
//      "(CSV por kopiado)");
// ligu('sercxrezultoj.php?elekto=aligxintoj_laux_kategorioj&csv=2',
//      "(CSV por els^uti)");
// echo "<br />\n";
// ligu('sercxrezultoj.php?elekto=aligxintoj_laux_kotizokategorioj',
//      "G^enerala alig^into-statistiko de la lastaj jaroj (kun ag^oj");
// ligu('sercxrezultoj.php?elekto=aligxintoj_laux_kotizokategorioj&csv=1',
//      "(CSV por kopiado)");
// ligu('sercxrezultoj.php?elekto=aligxintoj_laux_kotizokategorioj&csv=2',
//      "(CSV por els^uti)");
echo "<br/>\n";
ligu("sercxrezultoj.php?elekto=interreta_listo&ordigo=normala&lingvo=de", "elprova versio de interreta listo");
HtmlFino();

/**
 * Montras formularon por krei/ŝanĝi noton.
 *
 * @param Partoprenanto $partoprenanto la Partoprenanto, al kiu rilatas
 *                                     la noto.
 * @param Noto          $noto          la noto-objekto ŝanĝenda.
 */
function montru_notoformularon($partoprenanto, $noto)
{
    if ($noto->datoj['ID']) {
        eoecho("<h2>S^ang^o de noto</h2>\n");
    } else {
        eoecho("<h2>Nova noto</h2>\n");
    }
    echo "<form method='post' action='notoj.php'>\n";
    echo "<table>\n";
    tabela_kasxilo("Noto-ID", 'ID', $noto->datoj['ID']);
    tabela_kasxilo("Ppanto-ID", 'partoprenantoID', $partoprenanto->datoj['ID'], $partoprenanto->tuta_nomo() . " (" . donu_ligon("partrezultoj.php?partoprenantoidento=" . $partoprenanto->datoj['ID'], "#" . $partoprenanto->datoj['ID']) . ")");
    tabel_entajpbutono("Tipo", 'tipo', $noto->datoj['tipo'], 'telefon', "telefona kontakto", '', true);
    tabel_entajpbutono("", 'tipo', $noto->datoj['tipo'], 'persone', "persona kontakto", '', true);
    tabel_entajpbutono("", 'tipo', $noto->datoj['tipo'], 'letere', "letera kontakto", '', true);
    tabel_entajpbutono("", 'tipo', $noto->datoj['tipo'], 'rete', "ret(pos^t)a kontakto", '', true);
    tabel_entajpbutono("", 'tipo', $noto->datoj['tipo'], 'rimarko', "alia rimarko", '', true);
    tabelentajpejo("dato/tempo", 'dato', $noto->datoj['dato'], 20);
    tabelentajpejo("noto de ...", 'kiu', $noto->datoj['kiu'], 45);
    tabelentajpejo("pri komunikado kun ...", 'kunKiu', $noto->datoj['kunKiu'], 45);
    eoecho("<tr><th>noto por:</th><td>");
    $entajpantoj = $noto->listu_entajpantojn();
    foreach ($entajpantoj as $id => $inf) {
        echo "<span style='display: inline-block;'>";
        jes_ne_bokso('noto_por[' . $id . ']', $inf[1]);
        eoecho($inf[0] . "</span>\n  ");
    }
    eoecho("</td></tr>");
    tabelentajpejo("temo", 'subjekto', $noto->datoj['subjekto'], 45);
    granda_tabelentajpejo("teksto", 'enhavo', $noto->datoj['enhavo'], 57, 20);
    tabela_elektilo("prilaborita", 'prilaborata', array("j" => 'jes', '' => 'ne'), $noto->datoj['prilaborata'], " (se ne, remontru je ...");
    tabelentajpejo("", 'revidu', $noto->datoj['revidu'], 20, ")");
    echo "</table>\n<p>";
    if ($noto->datoj['ID']) {
        butono("notu", "S^ang^u la noton!");
    } else {
        butono("notu", "Nova noto!");
    }
    ligu("sercxrezultoj.php?elekto=notojn&partoprenantoidento=" . $partoprenanto->datoj['ID'], "C^iuj notoj de " . $partoprenanto->tuta_nomo());
    ligu("partrezultoj.php?partoprenantoidento=" . $partoprenanto->datoj['ID'], "Partoprenanto-detaloj");
    echo "</p>\n</form>\n";
}

<h2>Uzanto</h2>
<p>Kreas unuan uzanton. (Pliajn poste eblas krei ene de la
			programo per "grava administrado".)</p>
<table>
<?php 
tabelentajpejo("uzantnomo", "nomo", "", 20, "Salutnomo de la uzanto");
tabelentajpejo("pasvorto", "kodvorto", "", 20, "Pasvorto por ensaluti", "", "", "j");
?>
</table>
<p>Tiujn informojn bone memoru, vi bezonas ilin por ensaluti.</p>
<p><? butono("uzanto", "Kreu"); ?></p>
</form>


<form id="renkontigxo" method="POST" action="uzanto_renkontigxo.php">
<h2>Renkontiĝo</h2>
  <p>Kreas renkontiĝon. (Detaloj pri la renkontiĝo eblas meti poste ene de
			 la programo.)</p>
<table>
<?php 
tabelentajpejo("nomo", "nomo", "", 20, "Nomo de la renkontiĝo");
tabelentajpejo("mallongigo", "mallongigo", "", 8, "mallongigo de la renkontiĝo (maks. ~ 8 signoj)");
?>
</table>
<p><? butono("renkontigxo", "Kreu"); ?></p>
</form>

<p><?php 
ligu("./#instalilo", "Reen al la instalilo-superrigardo");
echo "</p>";
HtmlFino();

            echo "<td>";
            debug_echo("<!--" . $linio['dato'] . "/" . $linio['mangxotipo'] . ": -->");
            eoecho($linio['num'] . "</td>");
            $dato = next($tagolisto);
        }
        while ($dato != null) {
            echo "<td/>";
            $dato = next($tagolisto);
        }
        echo "</tr>";
    }
}
$renkontigxdauxro = $_SESSION['renkontigxo']->renkontigxonoktoj();
$komenctago = $_SESSION["renkontigxo"]->datoj['de'];
echo "<p>";
ligu("statistikoj.php", "Landostatistiko");
echo "</p>";
eoecho("<h1>Partopren-, log^- kaj mang^statistikoj</h1>");
eoecho("<h2>Alvenintoj kaj (vers^ajne) venontoj</h2>");
montru_diversajn_laux_alvenstato($renkontigxdauxro, $komenctago, "p.alvenstato = 'v' OR p.alvenstato = 'a'" . "           OR p.alvenstato = 'i'");
eoecho("<h2>Nur alvenintoj</h2>");
montru_diversajn_laux_alvenstato($renkontigxdauxro, $komenctago, "p.alvenstato = 'i' OR p.alvenstato = 'a'");
eoecho("<h2>Nur akceptitoj</h2>");
montru_diversajn_laux_alvenstato($renkontigxdauxro, $komenctago, "p.alvenstato = 'a'");
eoecho("<h2>Viditaj, sed ne akceptitaj</h2>");
montru_diversajn_laux_alvenstato($renkontigxdauxro, $komenctago, "p.alvenstato = 'i'");
eoecho("<h2>Vers^ajne venontoj</h2>");
montru_diversajn_laux_alvenstato($renkontigxdauxro, $komenctago, "p.alvenstato = 'v'");
/* eoecho("<h2>Vers^ajne venontoj, kiuj antau^pagis</h2>"); */
/* montru_diversajn_laux_alvenstato($renkontigxdauxro, */
/* 								 $komenctago, */

    } else {
        if ($alvenstato == 'm') {
            $klarigo = "alig^is, sed jam malalig^is";
        }
    }
}
eoecho("La nombroj de homoj el diversaj landoj, kiuj g^is nun {$klarigo}: <br />(ordigitaj lau^ nombro)\n");
//    $sql  = "Select l.nomo, count(*) as c ";
//    $sql .= "from landoj as l, partoprenoj as p, partoprenantoj as e ";
//    $sql .= "where p.partoprenantoID = e.id and e.lando=l.id and alvenstato='v' and renkontigxoID=".$_SESSION["renkontigxo"]->datoj[ID];
//    $sql .= " group by lando order by c DESC";
$sql = datumbazdemando(array("l.nomo", "count(*)" => "c"), array("landoj" => "l", "partoprenoj" => "p", "partoprenantoj" => "e"), array("p.partoprenantoID = e.ID", "e.lando = l.id", "p.alvenstato = '{$alvenstato}'"), "p.renkontigxoID", array("group" => "lando", "order" => "c DESC"));
sql_farukajmontru($sql);
// "select count(*) as c from partoprenoj as p, partoprenantoj as e where p.partoprenantoID=e.id and alvenstato='v' and renkontigxoID=".$_SESSION["renkontigxo"]->datoj[ID]
sql_farukajmontru(datumbazdemando(array("'Sumo:'", "count(*)" => "c"), array("partoprenoj" => "p", "partoprenantoj" => "e"), array("p.partoprenantoID = e.id", "alvenstato = '{$alvenstato}'"), "renkontigxoID"));
echo "</TD><TD align=center>\n";
eoecho("La nombroj de homoj el diversaj landoj, kiuj g^is nun {$klarigo}: <br />(ordigita lau^ nomo)\n");
//    $sql  = "Select l.nomo, count(*) as c ";
//    $sql .= "from landoj as l, partoprenoj as p, partoprenantoj as e ";
//    $sql .= "where p.partoprenantoID = e.id and e.lando=l.id and alvenstato='v' and renkontigxoID=".$_SESSION["renkontigxo"]->datoj[ID];
//    $sql .= " group by e.lando order by l.nomo ASC";
$sql = datumbazdemando(array("l.nomo", "count(*)" => "c"), array("landoj" => "l", "partoprenoj" => "p", "partoprenantoj" => "e"), array("p.partoprenantoID = e.ID", "e.lando = l.id", "alvenstato = '{$alvenstato}'"), "renkontigxoID", array("group" => "e.lando", "order" => "l.nomo ASC"));
// TODO: uzu tabelon sen "sumo".
sql_farukajmontru($sql);
echo "</TD><TD align=center>\n";
echo "</TD></TR><tr><td colspan='2'>";
ligu("statistikoj.php?alvenstato=a", "alvenintoj");
ligu("statistikoj.php?alvenstato=v", "venontoj");
ligu("statistikoj.php?alvenstato=m", "malalig^is");
echo "</td></tr></TABLE>\n";
HtmlFino();