PHP send_butono函数代码示例

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

    $dato = "de " . date("Y-m-d H:i", filemtime($dosiernomo) . ".");
} else {
    $dato = "ne trovebla ({$dosiernomo})!";
}
entajpbutono("<p>", "kio", $kio, "backup", "backup", "Kreu sekurkopion de la datumbazo. (La lasta estas {$dato})</p>");
$dosiernomo = '../../../phplibraro/tmp/projekto-' . $tabelnomprefikso . '.sql.gz';
if (file_exists($dosiernomo)) {
    $dato = "de " . date("Y-m-d H:i", filemtime($dosiernomo) . ".");
} else {
    $dato = "ne trovebla ({$dosiernomo})!";
}
entajpbutono("<p>", "kio", $kio, "backup_is", "backup_is", "Kreu sekurkopion de la datumbazo (nur IS). (La lasta estas {$dato})</p>");
if (rajtas('teknikumi')) {
    entajpbutono("<p>", "kio", $kio, "backup_programo", "backup_programo", "Kreu sekurkopion de la programo.</p>");
}
send_butono('Faru!');
echo "</FORM>\n";
eoecho("<h2>Aliaj gravaj aferoj</h2>");
rajtligu("landoj.php", "rigardu kaj eble s^ang^u la landoliston", "", "administri");
eoecho("<br/>");
eoecho("<p>Elprintu partoprenstatistikon:<br/>\n");
rajtligu("demandoj.php", "partopren statistikojn", "", "administri");
echo "(das ist leider zur Zeit etwas kaputt) <br/>";
rajtligu("finkalkulado.php", "IS - Abrechnung", "", "administri");
echo "<br/>";
rajtligu("cxambrostatistiko.php", "montru la c^ambrostatistikon kaj la mang^statistikon", "", "administri");
echo "</p>";
if (rajtas("teknikumi")) {
    eoecho("<h2>Nur por teh^nikistoj</h2>\n<p>");
    rajtligu("entajpantoj.php", "rigardu kaj eble s^ang^u la entajpantoliston", "", "teknikumi");
    eoecho("<br/>");

echo "<li>Kolektu la pagon de:";
entajpejo("", kvanto, $nenio, 5, "", "", " E^ (Se mankas mono nepre prenu garantiaj^on!)");
echo "</li>";
/************** cxambromontrado kaj -disdono ************/
if ($_SESSION["partopreno"]->datoj[domotipo] == 'J') {
    $row = mysql_fetch_array(eltrovu_cxambrojn($_SESSION["partopreno"]->datoj[ID]), MYSQL_NUM);
    echo "<li>";
    montru_cxambron($row[0], $_SESSION["renkontigxo"], $partoprenanto, $_SESSION["partopreno"], "malgranda");
    eoecho("<br />Notu la c^ambronumero sur {$ri}a bros^uro</li>");
} else {
    eoecho("<li>Notu 'M' kiel c^ambronumero sur {$ri}a bros^uro</li>");
}
/******** Disdono de diversajxoj *************/
eoecho("<li>Eldonu la broschuron.</li>");
if ($_SESSION["partopreno"]->datoj[domotipo] == 'J' or $_SESSION["partopreno"]->datoj[kunmangxas] == 'J') {
    eoecho("<li>Eldonu la mang^kuponon.</li>");
}
eoecho("<li>Eldonu la noms^ildon.</li>");
if ($_SESSION["partopreno"]->datoj[komencanto] == 'J') {
    eoecho("<li>Donu 'kiel funkcias IS'.</li>");
} else {
    if (!jampartoprenis($partoprenanto, $_SESSION["renkontigxo"])) {
        eoecho("<li>C^u estas via unua IS? (Se jes, donu <em>Kiel funkcias IS</em>)</li>");
    }
}
eoecho("</ul>");
/********** Jen la akceptbutono *************/
send_butono("Akceptu!");
ligu("partrezultoj.php", "reen", "");
echo "</form>";
HtmlFino();

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>";
ligu("sercxrezultoj.php?elekto=skribuagxon", "kalkulu kaj skribu la ag^ojn de la partoprenantoj");
echo "<BR>";

function montru_uzantoformularon($entajpanto)
{
    eoecho("<h2>Via Uzanto-konto</h2>\n");
    echo "<form action='uzanto.php' method='post'>\n<table>";
    tabela_kasxilo("ID", 'ID', $entajpanto->datoj['ID']);
    tabela_montrilo("Salutnomo", $entajpanto->datoj['nomo'] . " &mdash; " . "Vi uzas tiun nomon por ensaluti en la programon.");
    tabelentajpejo("Sendanto-nomo", 'sendanto_nomo', $entajpanto->datoj['sendanto_nomo'], 20, "Via vera nomo - uzebla kiel sendanto-nomo, se vi havas" . "la rajton 'retumi'.");
    tabelentajpejo("Retpos^tadreso", 'retposxtadreso', $entajpanto->datoj['retposxtadreso'], 20, "Via retpos^tadreso - uzata de la c^ef-administranto, " . "por atingi vin, kaj krome uzebla kiel sendanto-adreso, " . "se vi havas la rajton 'retumi'.");
    tabelentajpejo("Partoprenanto-ID", 'partoprenanto_id', $entajpanto->datoj['partoprenanto_id'], 7, "Se vi ankau^ mem partoprenas la arang^on, metu c^i tie vian" . " Partoprenanto-identigilon. Tio ebligas iujn specialajn " . "funkciojn, kiel vidi notojn de tiu partoprenanto c^e " . "<em>viaj notoj</em>.");
    tabelentajpejo("Nova pasvorto", 'pasvorto', "", 20, "Via pasvorto, uzata por ensaluti la programon. " . "G^i ne montrig^as c^i tie, sed vi povas entajpi novan, " . "se vi volas s^ang^i g^in.", '', '', 'j');
    tabelentajpejo("Nova pasvorto (ripeto)", 'dua_pasvorto', "", 20, "Ripetu c^i tie vian novan pasvorton (se vi volas s^ang^i " . " g^in.", '', '', 'j');
    echo "</table>\n<p>";
    send_butono("S^ang^u");
    echo "</p>\n</form>\n";
}

/**
 * Montras la formularon kun diversaj opcioj gravaj
 * por administrantoj.
 */
function montru_administradan_formularon()
{
    eoecho("<h2>Grava Administrado</h2>");
    eoecho("<form action='administrado.php' method='post'>\n");
    eoecho("<p>Printu:<BR>");
    entajpbutono("", 'kio', valoro($_POST['kio']), "n", 'n', "noms^ildojn", "kutima");
    entajpbutono("(", "nkkren", valoro($_POST['nkkren']), "cxiuj", "cxiuj", "c^iuj", "kutima");
    entajpbutono("|", "nkkren", valoro($_POST['nkkren']), "nur", "nur", "nur " . organizantoj_nomo);
    entajpbutono("|", "nkkren", valoro($_POST['nkkren']), "sen", "sen", "sen " . organizantoj_nomo . " )");
    //  entajpejo("(Nur por: ", "kiuj", $_POST['kiuj'], "", "", "", ")");
    echo "<br/>";
    entajpbutono("", 'kio', valoro($_POST['kio']), 's', 's', "specialajn noms^ildojn");
    entajpbutono("<br/>", 'kio', valoro($_POST['kio']), "m", 'm', "mang^kuponojn");
    entajpbutono("(", 'tipo', valoro($_POST['tipo']), "N", 'N', 'viande', "kutima");
    entajpbutono("", 'tipo', valoro($_POST['tipo']), "A", 'A', 'vegane');
    entajpbutono("", 'tipo', valoro($_POST['tipo']), "J", 'J', "vegetare)");
    entajpbutono("<br/>", 'kio', valoro($_POST['kio']), "k", 'k', 'konfirmilojn');
    entajpbutono("<br/>", 'kio', valoro($_POST['kio']), "a", 'a', 'akceptofoliojn');
    entajpbutono("</p><p>Por ", 'nombro', valoro($_POST['nombro']), 1, 1, " 1 pag^o", "kutima");
    entajpbutono(" ", 'nombro', valoro($_POST['nombro']), 5, 5, " 5 pag^oj");
    entajpbutono(" ", 'nombro', valoro($_POST['nombro']), 20, 20, " 20 pag^oj");
    entajpbutono(" ", 'nombro', valoro($_POST['nombro']), 999, 999, " c^iuj");
    entajpbutono(" ", 'nombro', valoro($_POST['nombro']), 'speciale', 'speciale', "tiom: ");
    simpla_entajpejo("", 'nombro_speciale', valoro($_POST['nombro_speciale']), 4, "", "(nur por akceptofolioj)");
    simpla_entajpejo(", ekde ", 'ekde', valoro($_POST['ekde']) + valoro($_POST['nombro_speciale'], 0), 4);
    entajpbokso("<p>", 'savu', valoro($_POST['savu'], "N"), "J", "J", "Savu ke vi premis/sendis en la partoprendatumoj");
    entajpbokso("<BR>", 'sen', valoro($_POST['sen']), "s", "s", "malplenaj folioj</p>");
    entajpbutono("<p>", 'kio', valoro($_POST['kio']), "adres", 'adres', "elprintu adresaron ");
    entajpbokso("(", 'bunta', valoro($_POST['bunta']), 'JES', 'JES', "buntan,", "kutima");
    entajpbokso(" ", 'granda', valoro($_POST['granda']), 'JES', 'JES', "grandan (por korekti))");
    entajpbutono("<p>", 'kio', valoro($_POST['kio']), "gepatra_permeso", "gepatra_permeso", "kreu malplenajn gepatrajn permesilojn<br/>");
    /*
    
    $dosiernomo = '../../../phplibraro/tmp/' .traduku_tabelnomon('partoprenantoj') . '.sql.gz';
    if (file_exists($dosiernomo))
    	{
    	  $dato = "de " . date("Y-m-d H:i", filemtime($dosiernomo) .".");
    	}
    else
    	{
    	  $dato = "ne trovebla ($dosiernomo)!";
    	}
    
    entajpbutono ("<p>","kio",$kio, "backup","backup",
    				"Kreu sekurkopion de la datumbazo. (La lasta estas $dato)</p>");
    
    $dosiernomo = '../../../phplibraro/tmp/projekto-'. $tabelnomprefikso . '.sql.gz';
    if (file_exists($dosiernomo))
    	{
    	  $dato = "de " . date("Y-m-d H:i", filemtime($dosiernomo) .".");
    	}
    else
    	{
    	  $dato = "ne trovebla ($dosiernomo)!";
    	}
    
    
    entajpbutono ("<p>","kio",$kio, "backup_is","backup_is",
    				"Kreu sekurkopion de la datumbazo (nur IS). (La lasta estas $dato)</p>");
    
    if (rajtas('teknikumi'))
    	{
    	  entajpbutono("<p>", "kio", $kio, "backup_programo", "backup_programo",
    				   "Kreu sekurkopion de la programo.</p>");
    	}
    */
    send_butono('Faru!');
    echo "</p></form>\n";
}

    $rez = sql_faru($sql);
    if (mysql_num_rows($rez) > 0) {
        eoecho("<p>Entajpantoj:</p>");
        eoecho("<table>\n<tr><th>ID</th><th>Nomo</th><th>Retpos^tadreso</th></tr>\n");
        while ($linio = mysql_fetch_assoc($rez)) {
            eoecho("<tr><td>{$linio['ID']}</td><td>{$linio['nomo']}</td><td>{$linio['retposxtadreso']}</td></tr>\n");
        }
        echo "</table>";
    }
    echo "</td></tr>";
    echo "</table>\n";
    echo "<form action='transferi.php' method='GET'>\n";
    tenukasxe("de", $de->datoj["ID"]);
    tenukasxe("al", $al->datoj["ID"]);
    eoecho("<p><input type='checkbox' name='forigu' value='jes' />Tuj forigu la maldekstran personon!</p>");
    send_butono("faru");
    echo "</form>";
    HtmlFino();
    exit;
}
if ($sendu == "faru" && $de && $al) {
    if ($de == $al) {
        eoecho("Vi ne povas s^ovi de iu persono al la sama persono!");
        HtmlFino();
        exit;
    }
    sxangxu_datumbazon("partoprenoj", array("partoprenantoID" => $al), array("partoprenantoID" => $de));
    sxangxu_datumbazon("notoj", array("partoprenantoID" => $al), array("partoprenantoID" => $de));
    sxangxu_datumbazon("entajpantoj", array("partoprenanto_id" => $al), array("partoprenanto_id" => $de));
    if ($forigu == "jes") {
        forigu_el_datumbazo("partoprenantoj", $de);

}
// 	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 homo) " . "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();

require_once 'iloj/iloj.php';
require_once 'iloj/iloj_cxambroj.php';
session_start();
malfermu_datumaro();
if (!rajtas("cxambrumi")) {
    ne_rajtas();
}
if ($sendu == "Nun!") {
    $ppID = $_SESSION["partopreno"]->datoj["ID"];
    eoecho("S^ang^o de #{$ppID} al #{$al} farita");
    //    sql_faru("update litonoktoj set partopreno='XXXXX' where partopreno='".$_SESSION["partopreno"]->datoj[ID]."'");
    //    sql_faru("update litonoktoj set partopreno='".$_SESSION["partopreno"]->datoj[ID]."' where partopreno='$al'");
    //    sql_faru("update litonoktoj set partopreno='".$al."' where partopreno='XXXXX'");
    // intersxangxu la cxambrojn ...
    sxangxu_datumbazon("litonoktoj", array("partopreno" => "XXXXX"), array("partopreno" => $ppID));
    sxangxu_datumbazon("litonoktoj", array("partopreno" => $ppID), array("partopreno" => $al));
    sxangxu_datumbazon("litonoktoj", array("partopreno" => $al), array("partopreno" => "XXXXX"));
}
HtmlKapo();
//  $cxam_sql = "select p.ID,pn.ID,nomo,personanomo,l.ID,partopreno,nokto_de,nokto_gxis,rezervtipo from litonoktoj as l,partoprenoj as pn, partoprenantoj as p where l.partopreno=pn.ID and pn.partoprenantoID=p.ID and renkontigxoID='".$_SESSION["renkontigxo"]->datoj[ID]."' order by personanomo,nomo";
$cxam_sql = datumbazdemando(array("p.ID", "pn.ID", "nomo,personanomo", "l.ID", "partopreno,nokto_de", "nokto_gxis", "rezervtipo"), array("litonoktoj" => "l", "partoprenoj" => "pn", "partoprenantoj" => "p"), array("l.partopreno = pn.ID", "pn.partoprenantoID = p.ID"), "renkontigxoID", array("order" => "personanomo, nomo"));
$cxam_rezulto = sql_faru($cxam_sql);
echo "<form action=\"cxambro_sxangxo.php\" method=\"post\">";
eoecho($_SESSION["partoprenanto"]->datoj[personanomo] . " " . $_SESSION["partoprenanto"]->datoj[nomo] . " volas s^ang^i kun: ");
echo "<select name=\"al\" size=\"5\">\n";
while ($row = mysql_fetch_array($cxam_rezulto, MYSQL_BOTH)) {
    eoecho("<option value = \"" . $row[1] . "\">" . $row[personanomo] . " " . $row[nomo] . " (" . $row[nokto_de] . "-" . $row[nokto_gxis] . "/" . $row[rezervtipo] . ")");
}
echo " </select>";
send_butono("Nun!");
HtmlFino();

//
// $string = 'abcfoobarfoo';
// $offset = 3; // entspricht dem ersten "f"
// echo preg_match( '~foo~A', $string, $data, 0, $offset ); // 1
// echo preg_match( '~bar~A', $string, $data, 0, $offset ); // 0
// echo preg_match( '~abc~A', $string, $data, 0, $offset ); // 0
//
// ///
sesio_aktualigu_laux_get();
if ($_POST['teksta_kondicxo']) {
    $teksto = stripslashes($_POST['teksta_kondicxo']);
    $analizilo = new sintaksa_kondicxo_analizilo($teksto);
    //     echo "<pre>";
    //     var_export($analizilo);
    //     echo "</pre>";
    $kondicxo = $analizilo->analizu_kondicxon();
    echo "<!--";
    var_export($kondicxo);
    echo "-->";
    if (isset($_SESSION['partopreno'])) {
        eoecho("<p>Rezulto kun " . $_SESSION['partoprenanto']->tuta_nomo() . " (#" . $_SESSION['partoprenanto']->datoj['ID'] . ") en " . $partopreno_renkontigxo->datoj['mallongigo'] . " (#" . $_SESSION['partopreno']->datoj['ID'] . "):</p>");
        echo "<p>" . (kontrolu_kondicxon($kondicxo, $_SESSION['partoprenanto'], $_SESSION['partopreno'], $partopreno_renkontigxo) ? "true" : "false") . "</p>\n";
    }
}
eoecho("<h2>Elprovo de kondic^oj</h2>\n");
echo "<form action='kondicxotesto.php' method='POST'>\n<p>";
granda_entajpejo("Kondic^o:<br/>", 'teksta_kondicxo', $teksto, 60, 10);
echo "</p>\n<p>";
send_butono("elprovu");
echo "</p></form>";
HtmlFino();

/**
 * Montras cxiujn cxambrojn lauxetagxe.
 *
 *  $deziratatipo - aux 'u' (unuseksa) aux 'g'  (gea)
 *  $sekso        - aux 'vira' aux 'malina'.
 *
 *  La parametroj estas uzata por kolorigi la
 *  cxambrojn laux tauxgeco.
 *
 */
function montru_laux_etagxoj($deziratatipo = '', $sekso = '')
{
    $klaso = array("para", "malpara");
    $zaehler = 0;
    $etagxoj = 0;
    $cxam_sql = datumbazdemando(array("ID", "nomo", "litonombro", "etagxo", "rimarkoj", "tipo"), "cxambroj", "", "renkontigxo", array("order" => "etagxo, nomo"));
    $cxam_rezulto = sql_faru($cxam_sql);
    $etagxoj_per_linio = 3;
    echo '<table border="0" valign="top" width="60%">' . "\n<tr>\n";
    $et = '#';
    // nomo de la aktuala etagxo
    while ($row = mysql_fetch_array($cxam_rezulto, MYSQL_ASSOC)) {
        $listo[$row[nomo]] = $row[ID];
        if ($row[etagxo] != $et) {
            if ($et != '#') {
                echo "</table></td>\n";
            }
            // sed antauxe finu la malnovan etagxon (kiu havas subtabelon).
            $zaehler = 0;
            $et = $row[etagxo];
            $etagxoj++;
            if ($etagxoj > $etagxoj_per_linio) {
                echo "</tr><tr>\n";
                // post kelkaj subtabeloj ni komencu novan linion
                $etagxoj = 1;
            }
            eoecho("<td nowrap>\n" . "<table border=1 width=100%>\n" . '<tr><td nowrap="nowrap" colspan="2"><b>Etag^o');
            ligu("cxambroj.php?etagxo=" . $row[etagxo], $row[etagxo]);
            echo "</td></tr>\n";
        }
        if (tauxgas($deziratatipo, $sekso, $row[tipo])) {
            $koloro = " tauxga";
        } else {
            if ($row[tipo] == '' or $deziratatipo == '') {
                $koloro = "";
            } else {
                $koloro = " maltauxga";
            }
        }
        eoecho("<tr class='" . $klaso[$zaehler % 2] . $koloro . "'>\n" . "  <td align=center>" . "<a href='cxambroj.php?cxambronombro=" . $row[ID] . "'>" . $row[nomo] . "</a></td>\n" . "  <td width=40>litoj: " . $row[litonombro]);
        rajtligu("kreu_cxambron.php?id=" . $row[ID], "(red.)", "", "teknikumi", "ne");
        echo "</td><td><strong>";
        if ($row[tipo] == "v") {
            echo " (vira)";
        } else {
            if ($row[tipo] == "i") {
                echo " (ina)";
            } else {
                if ($row[tipo] == "g") {
                    echo " (gea)";
                } else {
                    echo " (nedifinita)";
                }
            }
        }
        eoecho("</strong></td></tr>\n" . '<tr class="' . $klaso[$zaehler % 2] . '"><td colspan="3">' . $row[rimarkoj]);
        echo "</td></tr>\n";
        $zaehler++;
    }
    echo "</table></td>\n";
    // finu la lastan subtabelon
    echo "</tr></table>\n";
    // finu la cxeftabelon
    //sxangxu cxambrojn
    reset($listo);
    echo "<form action=\"cxambroj.php?cxambronombro={$cxambro}\" method=\"post\">\n";
    eoecho("S^ang^u de c^ambro:\n");
    echo "<select name=\"de\" size=1>\n";
    while (list($k, $v) = each($listo)) {
        eoecho("  <option value = \"{$v}\">{$k}</option>\n");
    }
    echo "</select>\n";
    eoecho("al:\n");
    reset($listo);
    echo "<select name=\"al\" size=1>\n";
    while (list($k, $v) = each($listo)) {
        eoecho("  <option value = \"{$v}\">{$k}</option>\n");
    }
    echo "</select>\n";
    send_butono("Nun!");
}

    akceptada_instrukcio("Enmetu la pos^tkodon en la g^ustan kampon kaj " . "konservu.");
}
if ($partopreno->datoj['studento'] == '?') {
    akceptada_instrukcio("C^u {$ri} estas studento kaj havas pruvilon pri tio? " . "Metu la respondon suben.");
}
ligu_sekvan("Ne (plu) estas korektendaj s^ang^oj.");
akceptado_kesto_fino();
//   eoecho("<li><p>C^u {$ri} s^ang^is personajn au^ partoprenajn datumojn sur" .
// 			" la akceptofolio? </p>\n");
echo "<table>";
eoecho("<tr><th>Personaj datumoj</th><th>Partoprenaj datumoj</th></tr>\n");
echo "<tr><td>";
if ($partoprenanto->datoj['posxtkodo'] == "") {
    echo "<form action='akceptado-datoj.php?partoprenidento=" . $partopreno->datoj['ID'] . "' method='POST'>\n";
    simpla_entajpejo("Pos^tkodo", 'posxtkodo', '', 10, '', " ");
    send_butono("konservu");
    echo "</form>\n";
}
echo "</td><td>";
if ($partopreno->datoj['studento'] == '?') {
    echo "<form action='akceptado-datoj.php?partoprenidento=" . $partopreno->datoj['ID'] . "' method='POST'>\n";
    butono('j', "studento", 'studento');
    butono('n', "ne Studento", 'studento');
    echo "</form>\n";
}
echo "</td></tr>\n";
echo "<tr><td>";
$partoprenanto->montru_aligxinto(true);
echo "</td><td>";
$partopreno->montru_aligxo(true);
echo "</td></tr><tr><td>";

function entajpanto_redaktilo($entajpanto)
{
    echo "<form method='POST' action='entajpantoj.php'>\n";
    echo "<table>\n";
    $linio = $entajpanto->datoj;
    tabela_kasxilo("ID", 'ID', $linio['ID']);
    tabelentajpejo("Salutnomo", "nomo", $linio['nomo'], 20);
    tabelentajpejo("Retpos^ta adreso", "retposxtadreso", $linio['retposxtadreso'], 20);
    tabelentajpejo("Retpos^tsenda nomo", "sendanto_nomo", $linio['sendanto_nomo'], 30, "Uzata por sendado de ne-au^tomataj mesag^oj");
    entajpbokso("<tr><th>", "pasvortsxangxo", "", "JES", "JES");
    entajpejo("Nova pasvorto </th><td>", "pasvorto", "", 20, "", "", "nur entajpu, se estas s^ang^o (kaj tiam metu hokon antau^e)</td>", "j");
    //  entajpboksokajejo("pasvortsxangxo", "", "jes", "jes",
    //					  "Nova pasvorto: ", '', 'kodvorto', '', 20, 'Mankas pasvorto.');
    //  echo("<br/>\n");
    tabelentajpejo("Partoprenanto-ID ", "partoprenanto_id", $linio['partoprenanto_id'], 6, "(0 = ne havas partoprenanton)");
    echo "<table>\n";
    eoecho("</p>\n<p>Li/s^i havu la rajton ...</p>");
    echo "<table style='margin-left: 2em; '>\n";
    foreach ($GLOBALS['rajtolisto'] as $ero) {
        entajpbokso("<tr><td>", $ero['rajto'], $linio[$ero['rajto']], 'J', 'J', "</td><td>" . $ero['alias'] . "</td></tr>");
    }
    echo "</table>\n";
    eoecho("<p> ... en la datumbazo</p>");
    entajpbokso("<p>", "redaktu", "", "jes", $linio['ID'], "Pluredaktu tiun c^i entajpanton.", "", "sen kasxa");
    echo "<br/>\n";
    send_butono("S^ang^u");
    ligu("entajpantoj.php", "Reen al la listo");
    if ($linio['ID'] != "nova") {
        ligu("entajpantoj.php?forigu=" . $linio['ID'], "Forigu tiun c^i entajpanton!");
    }
    echo "</p>";
    echo "</form>\n";
}

/**
 * elektilo kun OK-butono en propra formulareto.
 *<pre>
 *           __________    ____
 *   Titolo [_________]   | v |
 *          |         |   '---'
 *          |         |
 *          |         |
 *          '---------'
 *</pre>
 * aŭ:
 *<pre>
 *   Titolo valoro 
 *</pre>
 * 
 * @param eostring  $titolo  priskribo de la enhavo de la elektilo.
 * @param urlstring $ago     adreso de retpaĝo, kiu akceptas la sendaĵon
 *                             (por la 'action'-atributo.)
 * @param string $nomo       nomo de la sendenda informo
 * @param array $elekteblecoj array() el elekteblecoj, en formo
 *                   id => teksto
 *             La tekstoj estos montrataj, la ID estos
 *             sendota al $ago.
 * @param string|int $defauxlto    - ID de la elemento, kiu estos antaŭelektita
 * @param string  $rajto   se != "", rajto kiun la uzanto devos havi por
 *                 vidi/uzi la elektilon. Alikaze nur estos
 *                 montrata la titolo kun la valoro
 *                  (= $elekteblecoj[$defauxlto]).
 * @param eostring $butonteksto teksto por la butono - defaŭlto estas iu hoko.
 *
 * @uses elektilo_simpla()
 * @uses send_butono()
 */
function elektilo_kun_butono($titolo, $ago, $nomo, $elekteblecoj, $defauxlto, $rajto = "", $butonteksto = "")
{
    //    echo "<!-- defaŭlto: " . $defauxlto . "-->";
    if ("" == $rajto or rajtas($rajto)) {
        echo "<form class='formulareto' action='" . htmlspecialchars($ago, ENT_QUOTES) . "' method='post'>";
        eoecho("<label>" . $titolo);
        elektilo_simpla($nomo, $elekteblecoj, $defauxlto);
        echo "</label>";
        if (!$butonteksto) {
            $butonteksto = "&radic;";
            // TODO: pli bona hoko.
        }
        send_butono($butonteksto);
        echo "</form>";
    } else {
        eoecho($titolo);
        eoecho($elekteblecoj[$defauxlto]);
    }
}

if (KAMPOELEKTO_IJK) {
    granda_entajpejo("Tujmesag^iloj", 'tujmesagxiloj', $_SESSION['partoprenanto']->datoj['tujmesagxiloj']);
} else {
    entajpejo("Telefakso:", telefakso, $_SESSION["partoprenanto"]->datoj[telefakso], 30, "", "", "(internacie)");
}
echo "<hr/>\n";
entajpejo("UEA-kodo:", "ueakodo", $_SESSION['partoprenanto']->datoj['ueakodo'], 6);
echo "<hr/>\n";
entajpbutono("sendu informmesag^ojn:", 'retposxta_varbado', $_SESSION["partoprenanto"]->datoj['retposxta_varbado'], 'j', 'j', 'en x-kodo', 'defauxlto');
entajpbutono("", 'retposxta_varbado', $_SESSION["partoprenanto"]->datoj['retposxta_varbado'], 'u', 'u', 'en unikodo');
entajpbutono("", 'retposxta_varbado', $_SESSION["partoprenanto"]->datoj['retposxta_varbado'], 'n', 'n', 'tute ne');
echo "<hr/>\n";
entajpbokso("", "nekontrolu", $nekontrolu, "JES", "JES", "Se vi maldeziras datkontroladon pro problemojn, marku c^i tie.");
echo "<br/>\n";
echo "</td><td width=10%></td></tr></table>\n";
echo "<div align=center>\n";
if ($_SESSION["ago"] == "sxangxi") {
    if (strpos($_SESSION['sekvontapagxo'], '?') === false) {
        $aldono = '?';
    } else {
        $aldono = '&';
    }
    ligu($_SESSION["sekvontapagxo"] . $aldono . "partoprenantoidento=" . $_SESSION["partoprenanto"]->datoj[ID], "ne s^ang^u kaj reen&nbsp;");
    send_butono("S^ang^u!");
    //sqlago=forgesu&
} else {
    send_butono("Aligu!");
}
echo "</div>\n";
echo "</form>\n";
HtmlFino();