/**
* @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);
}
function montru_kondicxoredaktilon($kondicxo)
{
eoecho("<h2>" . ($kondicxo->datoj['ID'] ? "S^ang^o" : "Kreo") . " de kondic^o</h2>\n");
echo "<form action='kondicxo.php' method='POST'>\n";
echo "<table>\n";
tabela_kasxilo("ID", 'ID', $kondicxo->datoj['ID']);
tabelentajpejo("Nomo", 'nomo', $kondicxo->datoj['nomo'], 30);
$panto = $kondicxo->datoj['entajpanto'];
tabela_kasxilo("Entajpanto", "entajpanto", $panto, $panto ? eltrovu_entajpanton($panto) : "-");
granda_tabelentajpejo("Priskribo", "priskribo", $kondicxo->datoj['priskribo'], 60, 4);
granda_tabelentajpejo("Kondic^okodo", "kondicxoteksto", $kondicxo->datoj['kondicxoteksto'], 60, 4);
granda_tabelentajpejo("J^avaskripta formo", "jxavaskripta_formo", $kondicxo->datoj['jxavaskripta_formo'], 60, 4);
echo "</table>\n<p>";
if ($kondicxo->datoj['ID']) {
butono('sxangxu', "S^ang^u");
} else {
butono('kreu', "Kreu");
}
echo "</form>\n";
}
/**
* @param asciistring $ordigo la nomo de la kampo, laux kiu estu
* ordigita la listo.
*/
function kreu_la_longan_liston($ordigo)
{
eoecho("<h2>Listo de partoprenantoj kaj eblaj membroj</h2>\n");
echo "<form action='tejomembroj.php' method='POST'>\n";
tenukasxe("ordigo", $ordigo);
echo "<table id='tejomembreco'>\n";
echo "<tr><th>";
metu_ordigoligon("p-enoID", 'ID', $ordigo);
echo "</th><th>";
metu_ordigoligon("UEA-kodo", 'ueakodo', $ordigo);
echo "</th><th>";
metu_ordigoligon("persona nomo", 'personanomo', $ordigo);
echo "</th><th>";
metu_ordigoligon("familia nomo", 'nomo', $ordigo);
echo "</th><th>";
metu_ordigoligon("urbo", 'urbo', $ordigo);
echo "</th><th>";
metu_ordigoligon("lando", 'landonomo', $ordigo);
echo "</th><th>";
metu_ordigoligon("membro lau^dire", 'tejo_membro_laudire', $ordigo);
if ($GLOBALS['rajtas_sxangxi']) {
echo "</th><th colspan='4'>";
} else {
echo "</th><th>";
}
metu_ordigoligon("membro lau^ kontrolo", 'tejo_membro_kontrolita', $ordigo);
echo "</th></tr>";
$sql = datumbazdemando(array('pa.nomo', 'pa.personanomo', 'pa.sekso', 'pa.ueakodo', 'pa.urbo', 'pn.ID', 'pn.tejo_membro_laudire', 'pn.tejo_membro_kontrolita', 'pn.partoprenantoID', 'l.nomo' => "landonomo"), array('landoj' => 'l', 'partoprenoj' => 'pn', 'partoprenantoj' => 'pa'), array('l.ID = pa.lando', 'pa.ID = pn.partoprenantoID', "pn.alvenstato != 'm'"), "", array("order" => $ordigo));
$rez = sql_faru($sql);
while ($linio = mysql_fetch_assoc($rez)) {
echo "<!-- linio: {$linio['ID']} -->";
metu_tejomembro_tabellinion($linio);
}
echo "</table>\n<p>";
if ($GLOBALS['rajtas_sxangxi']) {
butono("sxangxu", "S^ang^u");
}
echo "</p>\n</form>\n";
}
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>";
}
function montru_reguloformularon($regulo)
{
if ($regulo->datoj['ID']) {
eoecho("<h1>Redakto de " . $regulo->regulovorto . " <em>" . $regulo->datoj['nomo'] . "</em></h1>");
} else {
eoecho("<h1>Kreado de nova " . $regulo->regulovorto . "</h1>");
}
echo "<form action='regulo.php?tipo=" . $regulo->tipo . "' method='POST'>\n";
echo "<table>\n";
tabela_kasxilo("ID", "ID", $regulo->datoj['ID']);
tabelentajpejo("nomo", "nomo", $regulo->datoj['nomo'], 20);
tabelentajpejo("Mallongigo", "mallongigo", $regulo->datoj['mallongigo'], 10);
granda_tabelentajpejo("Priskribo", "priskribo", $regulo->datoj['priskribo'], 40, 4);
tabela_kondicxoelektilo("Elektu c^i tie la g^ustan kondic^on por tiu " . "krompagotipo. (Se vi bezonas aliajn, aldonu per " . donu_ligon("kondicxo.php", "la kondic^oredaktilo") . ".)", $regulo->datoj['kondicxo']);
tabela_elektilo("uzebla", "uzebla", array('j' => 'jes', 'n' => 'ne'), $regulo->datoj['uzebla'], "C^u montri en la g^enerala listo?");
tabela_elektilo("lau^nokte", 'lauxnokte', array('j' => 'lau^ nokto', 'n' => 'nur unufoje'), $regulo->datoj['lauxnokte'], "C^u lau^nokta krompago, c^u unufoja?");
echo "</table>\n<p>";
if ($regulo->datoj['ID']) {
butono('sxangxu', "S^ang^u");
} else {
butono('kreu', "Kreu");
}
echo "</p>\n</form>";
}
<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();
granda_tabelentajpejo("priskribo", "priskribo", $katsistemo->datoj['priskribo'], 40, 5);
echo "</table>\n";
echo "<p>";
if (!$_REQUEST['id']) {
butono("kreu", "Kreu");
echo "</p>\n</form>\n";
HtmlFino();
exit;
}
butono("sxangxu", "S^ang^u");
butono("kopiu", "Kopiu");
eoecho("(tiam donu novan nomon!)");
echo "</p>\n</form>\n";
echo "<hr />\n";
eoecho("<h2>" . donu_eokatnomon($tipo) . "j en <em>" . $katsistemo->datoj['nomo'] . "</em></h2>\n");
echo "<form action='kategorisistemo.php?tipo=" . $tipo . "&id=" . $_REQUEST['id'] . "' method='POST'>\n";
$katsistemo->listu_kategoriojn('redaktebla');
echo "<p>";
butono("katSxangxu", "S^ang^u kategoriojn");
echo "</p>\n</form>\n";
echo "<hr />\n";
eoecho("<h2> Nova " . donu_eokatnomon($tipo) . " en <em>" . $katsistemo->datoj['nomo'] . "</em></h2>\n");
echo "<form action='kategorisistemo.php?tipo=" . $tipo . "&id=" . $_REQUEST['id'] . "' method='POST'>\n";
echo "<table>\n";
$katsistemo->kreu_kategorikreilon();
echo "</table>\n<p>";
butono("katNova", "Nova kategorio");
echo "</p>\n</form>\n";
echo "<hr />\n<p>";
ligu("kategorisistemoj.php", "Reen al la listo");
HtmlFino();
// // var_export($valoroj);
// echo "-->\n";
if ($_POST['sendu'] == 'konservu') {
konservuSercxon($_POST['nomo'], $_POST['priskribo'], base64_decode($_POST['sercxo']), $_POST['ID']);
}
if ($_POST['sendu'] == 'sxangxu') {
sxangxu_datumbazon("sercxoj", array("nomo" => $_REQUEST['nomo'], "priskribo" => $_REQUEST['priskribo']), array("ID" => $_REQUEST['ID']));
}
if ($_REQUEST['sendu'] == 'redaktu') {
eoecho("<h3>Redaktu serc^on #" . $_REQUEST['id'] . "</h3>");
echo "<form action='sercxoj.php' method='post'>\n<p>";
$sql = datumbazdemando(array("s.ID" => "ID", "s.nomo" => "nomo", "s.priskribo" => "priskribo"), array("sercxoj" => "s"), array("s.ID = '" . $_REQUEST['id'] . "'"));
$linio = mysql_fetch_assoc(sql_faru($sql));
eoecho("Bonvolu entajpi nomon kaj priskribon por via serc^o." . " Eblas uzi la c^-kodigon por la esperantaj supersignoj" . " (E^ por E^).</p>\n");
echo "<table>";
tabela_kasxilo('ID', 'ID', $linio['ID']);
tabelentajpejo("Nomo:", 'nomo', $linio['nomo']);
granda_tabelentajpejo("Priskribo:", 'priskribo', $linio['priskribo'], '60', '6');
echo "</table><p>";
butono("sxangxu", "S^ang^u");
ligu("gxenerala_sercxo.php?antauxa_sercxo=" . $linio['ID'], "Ne s^ang^u, montru serc^on");
ligu("gxenerala_sercxo.php?antauxa_sercxo=" . $linio['ID'] . "&sendu=sercxu", "Ne s^ang^u, tuj serc^u");
ligu("partsercxo.php", "Reen al <em>serc^i partoprenantojn</em>");
ligu("sercxoj.php", "Reen al la listo");
echo "</p>\n</form>";
HtmlFino();
return;
}
sercxoElektilo();
ligu("gxenerala_sercxo.php", "Nova Serc^o");
HtmlFino();
sercxtabellinio("ID", 'litonoktoj', 'ID', $valoroj, "litonoktoid");
sercxtabellinio("Lito-numero", 'litonoktoj', 'litonumero', $valoroj);
sercxtabellinio("Nokto de", 'litonoktoj', 'nokto_de', $valoroj);
sercxtabellinio("Nokto g^is", 'litonoktoj', 'nokto_gxis', $valoroj);
sercxelektolinio("Rezervtipo", 'litonoktoj', 'rezervtipo', $valoroj, array('d' => 'disdonitaj', 'r' => 'rezervitaj'));
// ---------------------------
sercxtabelkapo("C^ambroj", "cxambroj", $valoroj);
sercxtabellinio("ID", 'cxambroj', 'ID', $valoroj, "cxambroid", "cambro-detaloj.php?cxambronumero=XXXXX", "c^ambro-ID");
sercxtabellinio("Nomo", 'cxambroj', 'nomo', $valoroj, "cxambronomo");
sercxtabellinio("Etag^o", 'cxambroj', 'etagxo', $valoroj);
sercxtabellinio("Lito-nombro", 'cxambroj', 'litonombro', $valoroj);
sercxelektolinio("Tipo", 'cxambroj', 'tipo', $valoroj, array('' => 'ne elektis', 'g' => 'gea', 'i' => 'ina', 'v' => 'vira'), "cxambrotipo");
sercxelektolinio("Dulita", 'cxambroj', 'dulita', $valoroj, array('J' => 'Jes', 'N' => 'Ne', 'U' => 'unulita'));
sercxtabellinio("Rimarkoj", 'cxambroj', 'rimarkoj', $valoroj, "cxambrorimarkoj");
eoecho("</table>\n");
eoecho("<p>Tipo de rezulto: ");
entajpbutono('', 'tipo', $_REQUEST['tipo'], 'HtmlTabelo', 'HtmlTabelo', "en tabelo | ", 'kutima');
entajpbutono('', 'tipo', $_REQUEST['tipo'], 'HTMLcsvDiv', 'HTMLcsvDiv', 'CSV por kopii | ');
/*entajpbutono('', 'tipo', $_REQUEST['tipo'], 'Latin1CSV', 'Latin1CSV',
'CSV por els^uti (Latin-1) | '); */
entajpbutono('', 'tipo', $_REQUEST['tipo'], 'UTF8csv', 'UTF8csv', 'CSV por els^uti (UTF-8)');
// TODO: cxu nur montri por teknikistoj?
entajpbutono('', 'tipo', $_REQUEST['tipo'], 'puraCSV', 'puraCSV', 'CSV por els^uti (interna formato)');
echo "</p>";
echo "<p>";
butono('sercxu', "Serc^u");
butono('dauxrigu', "Konservu");
entajpejo("Titolo: ", 'sercxo_titolo', $valoroj['sercxo_titolo'], 20);
echo "</p>";
echo "</form>\n";
HtmlFino();
} else {
eoecho("<h1>Kreado de nova malalig^kondic^otipo</h1>");
}
echo "<form action='malaligxkondicxotipo.php' method='POST'>\n";
echo "<table>\n";
tabela_kasxilo("ID", "ID", $malaligxkondicxotipo->datoj['ID']);
tabelentajpejo("nomo", "nomo", $malaligxkondicxotipo->datoj['nomo'], 20);
/*tabelentajpejo("nomo_lokalingve", "nomo_lokalingve",
$malaligxkondicxotipo->datoj['nomo_lokalingve'], 20); */
tabelentajpejo("mallongigo", "mallongigo", $malaligxkondicxotipo->datoj['mallongigo'], 10);
granda_tabelentajpejo("priskribo", "priskribo", $malaligxkondicxotipo->datoj['priskribo'], 40, 4);
tabela_ma_kondicxoelektilo("<span style='display:inline-block; vertical-align:text-top; max-width:70ex;'> Elektu c^i tie la g^ustan funkcion por la" . " kotizokalkulado por tiu" . " malalig^kondic^otipo. (Se vi bezonas alian" . " funkcion, necesas programi kaj aldoni g^in en" . " <code>konfiguroj/ma-kondicxoj.php</code>.)</span>", $malaligxkondicxotipo->datoj['funkcio']);
tabelentajpejo("parametro", "parametro", (string) $malaligxkondicxotipo->datoj['parametro'], 10, "Kelkaj funkcioj bezonas specialan parametron. Se vi" . " ne scias, lasu malplena.");
tabela_elektilo("uzebla", "uzebla", array('j' => 'jes', 'n' => 'ne'), $malaligxkondicxotipo->datoj['uzebla'], "C^u montri en la g^enerala listo?");
/*tabela_elektilo("lau^nokte", 'lauxnokte', array('j' => 'lau^ nokto',
'n' => 'nur unufoje'),
$malaligxkondicxotipo->datoj['lauxnokte'],
"C^u lau^nokta krompago, c^u unufoja?");*/
echo "</table>\n<p>";
if ($_REQUEST['id']) {
butono('sxangxu', "S^ang^u");
} else {
butono('kreu', "Kreu");
}
echo "</p>\n</form>";
echo "<hr/>\n<p>";
ligu("kotizosistemoj.php", "C^iuj kotizosistemoj");
ligu("kategorisistemoj.php#kromtipoj", "C^iuj kategoriosistemoj");
ligu("kotizoj.php", "c^io rilate al kotizoj");
echo "</p>";
HtmlFino();
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();
echo "<table>";
$sql = datumbazdemando(array('nokto_de', 'nokto_gxis', 'rezervtipo', 'cx.nomo' => 'cxambronomo'), array('litonoktoj', 'cxambroj' => 'cx'), array("cxambro = cx.id"), array('partopreno'), array('order' => 'nokto_de, nokto_gxis'));
$rez = sql_faru($sql);
$mialisto = array();
while ($linio = mysql_fetch_assoc($rez)) {
$mialisto[] = formatu_litonokton($linio);
}
tabela_kasxilo("Unua partopreno:", 'ppID', $_SESSION['partopreno']->datoj['ID'], donu_ligon("partrezultoj.php?partoprenidento=" . $_SESSION['partopreno']->datoj['ID'], "#" . $_SESSION['partopreno']->datoj['ID']) . " (" . $_SESSION['partoprenanto']->tuta_nomo() . ", " . implode(", ", $mialisto) . ") ");
$cxam_sql = datumbazdemando(array("pn.ID" => 'partoprenoID', "p.nomo", "personanomo", "nokto_de", "nokto_gxis", "rezervtipo", 'cx.nomo' => 'cxambronomo'), array("litonoktoj" => "l", "partoprenoj" => "pn", "partoprenantoj" => "p", 'cxambroj' => 'cx'), array("l.partopreno = pn.ID", "pn.partoprenantoID = p.ID", "l.cxambro = cx.ID"), "renkontigxoID", array("order" => "personanomo, nomo"));
$rez = sql_faru($cxam_sql);
$templisto = array();
while ($linio = mysql_fetch_assoc($rez)) {
// ni devas uzi iun prefikson por la sxlosiloj
// por ke tabela_elektilo ne pensu, ke ili estas
// nur simplaj array-indeksoj (= forjxetendaj).
$sx = '#' . $linio['partoprenoID'];
if (isset($templisto[$sx])) {
$templisto[$sx]['cxambroj'][] = formatu_litonokton($linio);
} else {
$templisto[$sx] = array('bazaj' => $sx . " – " . $linio['personanomo'] . " " . $linio['nomo'], 'cxambroj' => array(formatu_litonokton($linio)));
}
}
$listo = array();
foreach ($templisto as $sx => $val) {
$listo[$sx] = $val['bazaj'] . " (" . implode(", ", $val['cxambroj']) . ")";
}
tabela_elektilo("Dua partopreno:", 'al', $listo, "", "", min(10, count($listo)));
echo "</table>\n<p>";
butono("sxangxu", "Inters^ang^u!");
echo "</p>\n</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>";
}
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 c^-kodigon por la esperantaj supersignoj" . " (E^ por E^).</p>\n<p>\n");
echo "<input type='hidden' name='sercxo' value='{$kodita}'>\n";
echo "Nomo: <input name='nomo' type='text' /> <br/>\n";
echo "Priskribo: <textarea name='priskribo' rows='5' cols='50'></textarea>\n";
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";
if ($_POST['sendu'] == 'konservu') {
konservuSercxon($_POST['nomo'], $_POST['priskribo'], base64_decode($_POST['sercxo']), $_POST['ID']);
}
} else {
// pagenda
eoecho("<h4>Pago en " . $listero['valutoteksto'] . "</h4>");
if ($listero['valuto'] == CXEFA_VALUTO) {
if ($listero['pagenda'] == $listero['vere_pagenda']) {
eoecho("<p>Lau^ la supra kalkulo, restas pagenda <strong>" . $listero['pagenda'] . " " . $listero['valuto'] . "</strong></p>");
} else {
eoecho("<p>Lau^ la supra kalkulo, restas pagenda " . $listero['pagenda'] . " " . $listero['valuto'] . "</p>");
eoecho("<p>Sed por simpligi, ni nur volas <strong>" . $listero['vere_pagenda'] . " " . $listero['valuto'] . "</strong>.</p>");
}
} else {
// ne-cxefa valuto
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, restas pagenda <strong>" . $listero['vere_pagenda'] . " " . $listero['valuto'] . "</strong></p>");
} else {
eoecho("Lau^ tio, restas pagenda " . $listero['pagenda'] . " " . $listero['valuto'] . ".</p>");
eoecho("<p>Sed por simpligi, ni nur volas <strong>" . $listero['vere_pagenda'] . " " . $listero['valuto'] . "</strong>.</p>");
}
}
// ne-cxefa valuto
simpla_entajpejo("<p>{$Ri} pagas: ", 'pago', "", 10, "", $listero['valuto'] . ". ");
butono('pagas', "Enmetu pagon");
echo "</p>";
}
// pagenda
echo "</form>\n";
}
echo "</div>\n";
}
HtmlFino();
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>");
entajpejo("", "rimarkoj", "", 30);
eoecho("</td></tr>");
echo "</table>\n";
if ($redakto) {
butono("kreu", "Kreu novan (kun alia ID)");
butono("sxangxu", "S^ang^u ekzistantan");
} else {
butono("kreu", "Kreu");
}
echo "</form>\n";
eoecho("<p>Finita.</p>");
ligu("partrezultoj.php?partoprenantoidento=" . $ppeno->datoj['partoprenantoID'], "Reen");
HtmlFino();
exit;
}
}
}
break;
default:
// faru nenion.
}
sesio_aktualigu_laux_get();
$panto = $_SESSION['partoprenanto'];
$panto->montru_aligxinto("sen bla");
eoecho("<p>Kion vi volas forigi?</p>");
echo "<form action='partoprenforigo.php?panto=" . $panto->datoj['ID'] . "' method='POST'>\n";
entajpbutono("<ul>\n<li>", 'kion', "", "partoprenanto", "partoprenanto", "La partoprenanton #" . $panto->datoj['ID'] . " (" . $panto->tuta_nomo() . ") kun c^iuj " . $panto->personapronomo . "aj partoprenoj kaj la sekvaj notoj:");
listu_notojn($panto->datoj['ID']);
echo "</li>\n";
$sql = datumbazdemando(array("pp.ID" => "enoID", "r.ID" => "rID", "r.mallongigo", "pp.de", "pp.gxis"), array("partoprenoj" => "pp", "renkontigxo" => "r"), array("pp.renkontigxoID = r.ID", "pp.partoprenantoID = '" . $panto->datoj['ID'] . "'"), "", array("order" => "pp.ID"));
$rez = sql_faru($sql);
while ($linio = mysql_fetch_assoc($rez)) {
entajpbutono("<li>", 'kion', "", $linio['enoID'], $linio['enoID'], "La partoprenon " . donu_ligon("partrezultoj.php?partoprenidento=" . $linio['enoID'], "#" . $linio['enoID'] . " en " . $linio['mallongigo']) . " (" . $linio['de'] . "—" . $linio['gxis'] . ") </li>\n");
}
entajpbutono("<li>", 'kion', "", "nenion", "nenion", "Mi nenion volas forigi nun.</li>\n</ul>\n", "kutima");
eoecho("<p>Atentu, ne eblos restarigi iam forigitajn datumojn!</p>\n<p>");
butono('forigu', "Forigu!");
// TODO: eble uzu $_SESSION['sekvontapagxo'] ?
ligu("partrezultoj.php?partoprenantoidento=" . $anto->datoj['ID'], "Reen");
echo "</p>\n</form>\n";
HtmlFino();
// --------------------------------------------------------
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();
function redaktilo_por_regulaj_pseuxdopagoj($sistemo, $tipo)
{
eoecho("<h2 id='regulaj_" . $tipo . "j'>Regulaj " . $tipo . "j</h2>\n");
echo "<form action='kotizosistemo.php?id=" . $sistemo->datoj['ID'] . "&tipo=" . $tipo . "' method='POST'>\n";
echo "<table class='pseuxdopagoj'>\n";
eoecho(" <tr><th>ID</th><th>tipo</th><th>kvanto</th><th>valuto</th>" . "<th>priskribo</th></tr>\n");
$regulolisto = listu_cxiujn_regulojn($tipo);
$neuzitaj = array();
foreach ($regulolisto as $regulo) {
$pseuxdopago = $regulo->donu_regulan_pseuxdopagon($sistemo);
if ($pseuxdopago) {
eoecho("<tr><td>" . $pseuxdopago->datoj['ID'] . "</td><td>" . $regulo->formatu_nomon());
simpla_entajpejo("</td><td>", $tipo . '[' . $pseuxdopago->datoj['ID'] . '][kvanto]', $pseuxdopago->datoj['kvanto'], 6);
echo "</td><td>";
simpla_elektolisto_el_konfiguroj($tipo . '[' . $pseuxdopago->datoj['ID'] . '][valuto]', 'valuto', $pseuxdopago->datoj['valuto']);
eoecho("</td><td>" . $regulo->datoj['priskribo'] . "</td></tr>\n");
} else {
$neuzitaj[] = $regulo;
}
}
// foreach
echo "</table>\n<p>";
butono("sxangxu_pagojn", "S^ang^u " . $tipo . "jn");
echo "</p>\n</form>";
if (count($neuzitaj)) {
eoecho("<h3 id='regulaj_" . $tipo . "j'>Nova " . $tipo . "</h3>\n");
echo "<form action='kotizosistemo.php?id=" . $sistemo->datoj['ID'] . "&tipo=" . $tipo . "' method='POST'>\n";
echo "<table>\n";
eoecho("<tr><th>regulo</th></tr>\n");
foreach ($neuzitaj as $regulo) {
tabel_entajpbutono('', 'regulo', "", $regulo->datoj['ID'], $regulo->formatu_nomon() . " – " . $regulo->datoj['priskribo'], "", true);
}
tabelentajpejo("kvanto", 'kvanto', "", 6);
tabela_elektolisto_el_konfiguroj("valuto", 'valuto', 'valuto', "");
echo "</table>\n<p>";
butono("nova_pago", "Aldonu!");
rajtligu('regulo.php?tipo=' . $tipo, "Nova " . $tipo . "regulo", '', 'teknikumi');
echo "<p></form>\n";
}
// if
}
echo "<p>\n";
$demando = datumbazdemando(array("p.ID", "nomo", "personanomo", "retposxto", "sekso", "pn.agxo"), array("partoprenantoj" => "p", "partoprenoj" => "pn"), array("pn.partoprenantoID = p.ID", "retposxto <> ''", "alvenstato = 'a'"), "renkontigxoID", array("limit" => "{$komenco}, {$nombro}", "order" => "pn.ID ASC"));
eoecho("Demando: [<code>" . $demando . "</code>]<br/>\n");
eoecho("dato: " . date("Y-m-d H:i:s") . "<br/>\n");
$rezulto = sql_faru($demando);
$i = $komenco;
while ($row = mysql_fetch_array($rezulto, MYSQL_BOTH)) {
eoecho($i . " " . $row['personanomo'] . " " . $row['nomo'] . "<br/>\n");
$i++;
$to_name = eotransformado($row['personanomo'] . " " . $row['nomo'], "x-metodo");
// $to_address = teknika_administranto_retadreso;
$to_address = $row['retposxto'];
if ($_POST['vere'] == 'jes') {
sendu_adresaron($row, $to_name, $to_address, $bcc);
}
flush();
usleep(200);
}
eoecho("Fino.<br/>\n");
eoecho("dato: " . date("Y-m-d H:i:s") . "</p>\n");
}
echo "<h2>Sendado de adresaroj</h2>";
echo "<form action='sendu_adresaron_gxenerale.php' method='POST'>\n<table>";
tabelentajpejo("Nombro en unu pas^o:", 'nombro', $_POST['nombro'], 10, "", "", 1);
tabelentajpejo("Komencu c^e:", 'komenco', $i, 10, "", "", 0);
tabel_entajpbutono("", "vere", $_POST['vere'], 'jes', "vere sendu");
tabel_entajpbutono("", "vere", $_POST['vere'], 'ne', "nur listigu ricevontojn", "kutima");
echo "</table>\n<p>";
butono("sendu", "Sendu");
echo "</p></form>";
HtmlFino();
/**
* montras redaktilon por pseuxropago-objekto.
*
* @param Pseuxdopago $objekto
*/
function montru_pagoredaktilon($objekto)
{
echo "<!-- montru_pagoredaktilon(" . var_export($objekto, true) . ")-->";
$tipo = $objekto->klaso;
$partopreno = new Partopreno($objekto->datoj['partoprenoID']);
$partoprenanto = new Partoprenanto($partoprenanto->datoj['partoprenantoID']);
$ppRenk = new Renkontigxo($partopreno->datoj['renkontigxoID']);
echo "<form action='pago-detaloj.php?klaso=" . $tipo . "' method='POST'>\n";
if ($objekto->datoj['ID']) {
eoecho("<h2>Redakto de " . $GLOBALS['pd_titoloj'][$tipo] . " #" . $objekto->datoj['ID'] . "</h2>\n");
} else {
eoecho("<h2>Kreo de nova " . $GLOBALS['pd_titoloj'][$tipo] . "</h2>\n");
}
echo "<table>\n";
tabela_kasxilo("ID", 'ID', $objekto->datoj['ID']);
tabela_kasxilo("partopreno-ID", 'partoprenoID', $objekto->datoj['partoprenoID']);
tabelentajpejo("alvenodato", 'dato', $objekto->datoj['dato'], 11, " (jaro-monato-tago)", "", date("Y-m-d"));
if ($GLOBALS['pd_valuto_elektebla'][$tipo]) {
tabela_elektolisto_el_konfiguroj("valuto", 'valuto', 'valuto', $objekto->datoj['valuto'], $ppRenk);
$postkvanto = "";
} else {
// TODO: uzu la tekston
tabela_kasxilo("valuto", 'valuto', $objekto->datoj['valuto']);
$postkvanto = $objekto->datoj['valuto'];
}
tabelentajpejo("kvanto", 'kvanto', $objekto->datoj['kvanto'], 7, $postkvanto);
$panto = new Entajpanto($objekto->datoj['entajpantoID']);
tabela_montrilo('entajpanto', $panto->datoj['nomo']);
tabela_elektolisto_el_konfiguroj($GLOBALS['td_tiponomo'][$tipo], "tipo", $tipo . "tipo", $objekto->datoj['tipo'], $ppRenk);
echo "</table>\n";
echo "<p>";
if ($objekto->datoj['ID']) {
butono("sxangxu", "S^ang^u!");
ligu("partrezultoj.php", "Reen");
} else {
butono("kreu", "Enmetu!");
ligu("partrezultoj.php", "Reen");
}
echo "</p>\n";
echo "</form>\n";
}
function montru_sxangxoformularon($konfiguro)
{
if ($konfiguro->datoj['ID']) {
eoecho("<h2>Konfiguro-s^ang^o</h2>");
} else {
eoecho("<h2>Nova konfiguro</h2>");
}
echo "<form action='renkontigxaj_konfiguroj.php' method='POST'>\n";
echo "<table>\n";
tabela_kasxilo("renkontig^o-ID", "renkontigxoID", $konfiguro->datoj['renkontigxoID']);
tabela_kasxilo("ID", 'ID', $konfiguro->datoj['ID']);
$elektoj = array();
foreach ($GLOBALS['konfiguraj_tipoj'] as $tipo => $titolo) {
$elektoj[$tipo] = $titolo[1];
}
tabela_elektilo("tipo", 'tipo', $elektoj, $konfiguro->datoj['tipo']);
tabelentajpejo("interna nomo", 'interna', $konfiguro->datoj['interna'], 20);
tabelentajpejo("grupo", 'grupo', $konfiguro->datoj['grupo'], 5);
tabelentajpejo("teksto", 'teksto', $konfiguro->datoj['teksto'], 50);
tabelentajpejo("rimarko", 'aldona_komento', $konfiguro->datoj['aldona_komento'], 50);
echo "</table>\n";
echo "<p>";
if ($konfiguro->datoj['ID']) {
butono('sxangxu', "S^ang^u");
butono("kreu", "Kreu (kun nova ID)");
} else {
butono('kreu', "Kreu");
}
ligu("renkontigxaj_konfiguroj.php", "Reen al la listo");
echo "</p>";
}
eoecho($parta_kotizosumo);
}
eoecho("<h2>En unuopaj tabeloj</h2>\n");
echo "<div class='tabeloj-apudaj'>\n";
$kotizosistemo->metu_kotizotabelon('partoprenantonombra_cxelo', $cxiuj_datumoj, "Partoprenantonombroj");
$kotizosistemo->metu_kotizotabelon('simpla_kotizocxelo', $cxiuj_datumoj, "Kotizoj");
$kotizosistemo->metu_kotizotabelon('partkotiza_cxelo', $cxiuj_datumoj, "Sumoj de (eble parttempaj) kotizoj");
echo "</div>\n";
eoecho("<h2>Sumoj</h2>\n");
echo "<table>\n";
eoecho("<tr><th>Partoprenantonombro:</th><td>" . $ppnombro . "</td></tr>\n");
// eoecho("<tr><th>Sumo de bazaj kotizoj:</th><td>" . $baza_kotizosumo .
// "</td></tr>\n");
eoecho("<tr><th>Sumo de partaj kotizoj:</th><td>" . $parta_kotizosumo . "</td></tr>\n");
// TODO: kostoj
echo "</table>\n";
echo "<hr/>\n";
eoecho("<h2>Nova kalkulado</h2>");
}
echo "<form action='enspezokalkulado.php' method='POST'>\n";
eoecho("<p>Jen eblas elprovi kotizosistemojn, kalkulante la enspezojn" . " (kaj estonte ankau^ la elspezojn) por c^iu unuopa" . " kotizo-kategorio.</p>");
eoecho("<table>\n");
tabela_elektilo_db("Kotizosistemo", 'kotizosistemo', "kotizosistemoj");
tabela_elektilo_db("Kostosistemo", 'kostosistemo', "kostosistemoj");
tabela_elektilo_db("Renkontig^o", 'renkID', "renkontigxo");
eoecho("</table>");
echo "<p>";
butono("kalkulu", "Kalkulu");
echo "</p>";
echo "</form>";
HtmlFino();
tabelentajpejo("Invitletero-retadreso", "invitleteroretadreso", $renk['invitleteroretadreso'], 30);
tabelentajpejo("Tema respondulo", 'temarespondulo', $renk['temarespondulo'], 20, "");
tabelentajpejo("Tema retadreso", "temaretadreso", $renk['temaretadreso'], 30);
tabelentajpejo("Distra respondulo", "distrarespondulo", $renk['distrarespondulo'], 20, "");
tabelentajpejo("Distra retadreso", "distraretadreso", $renk['distraretadreso'], 30);
tabelentajpejo("Vespera respondulo", "vesperarespondulo", $renk['vesperarespondulo'], 20, "");
tabelentajpejo("Vespera retadreso", "vesperaretadreso", $renk['vesperaretadreso'], 30);
tabelentajpejo("Muzika respondulo", "muzikarespondulo", $renk['muzikarespondulo'], 20, "");
tabelentajpejo("Muzika retadreso", "muzikaretadreso", $renk['muzikaretadreso'], 30);
tabelentajpejo("Nokta respondulo", "noktarespondulo", $renk['noktarespondulo'], 20, "");
tabelentajpejo("Nokta retadreso", "noktaretadreso", $renk['noktaretadreso'], 30);
tabelentajpejo("Novula/Junula respondulo", "novularespondulo", $renk['novularespondulo'], 20, "");
tabelentajpejo("Novula retadreso", "novularetadreso", $renk['novularetadreso'], 30);
eoecho("\n </table>\n");
butono("sxangxu", "S^ang^u tiun renkontig^on");
butono("kreu", "Kreu novan renkontig^on");
eoecho("\n</form>\n\n <hr/>\n\n <h3 id='tekstoj'>Tekstoj</h3>\n <p>\n La <em>tekstoj</em> estas uzataj ekzemple por\n havi retmesag^tekst(er)ojn kaj similajn aferojn, kiuj varias\n lau^ renkontig^o,\n ne en la programo sed en la datumbazo.\n </p>");
$sql = datumbazdemando(array('count(*)' => 'nombro'), 'tekstoj', "renkontigxoID = '{$renk['ID']}'");
$rez = sql_faru($sql);
$linio = mysql_fetch_assoc($rez);
eoecho("\n<p>\n Nuntempe ekzistas " . $linio['nombro'] . " tekstoj por la aktuala\n renkontig^o.\n</p> <p>");
ligu("tekstoj.php", "Vidu la liston (kaj eble redaktu kelkajn)");
echo "<br/>";
ligu("nova_teksto.php", "Aldonu novan tekston");
echo "</p><p>";
ligu("administrado.php", "Reen al la administrado-pag^o.");
echo "</p>";
HtmlFino();
echo "<!--";
var_export($_SESSION);
echo "-->";
// 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>";
ligu("partoprenanto.php?ago=sxangxi", "S^ang^u personajn datumojn");
echo "</td><td>";
ligu("partopreno.php?ago=sxangxi", "S^ang^u partoprenajn datumojn");
echo "</td></tr></table>\n<p>";
// por uzo de partoprenanto.php kaj partopreno.php
// (respektive partoprenkontrolo.php kaj aligxatkontrolo.php)
$_SESSION['sekvontapagxo'] = 'akceptado-datoj.php';
echo "<tr><td colspan='4'>";
ligu("nova_teksto.php", "kreu novan tekston");
echo "</td></tr>\n";
eoecho("<tr><th>mesag^o-ID</th><td/><th>Valoro</th>" . "<th>Priskribo</th></tr>\n");
$sql = datumbazdemando(array('id', 'mesagxoID', 'teksto'), 'tekstoj', "renkontigxoID = '{$renk['ID']}'");
$rez = sql_faru($sql);
while ($linio = mysql_fetch_assoc($rez)) {
eoecho("\n <tr><th>" . $linio['mesagxoID'] . "</th>\n <td><input type='checkbox' name='redaktu[" . $linio['id'] . "]' value='true' /><br/>");
ligu('nova_teksto.php?id=' . $linio['id'], "red.");
$priskribo = donu_tekstpriskribon($linio['mesagxoID']);
$GLOBALS['tekstpriskriboj'][""][$priskribo['mesagxoID']]['uzata'] = true;
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");
break;
case 'sendu':
sendu_gxin();
montru_gxin();
break;
case 'notu':
faru_noton_el_gxi();
montru_gxin();
break;
case 'not+send':
sendu_gxin();
faru_noton_el_gxi();
montru_gxin();
break;
default:
echo "<form method='post' action='sendumesagxon.php'>\n";
$alkiu = $_SESSION["partoprenanto"]->tuta_nomo();
eoecho("<p>Kiun mesag^on vi volas sendi al {$alkiu}?</p>");
echo "<p>";
elektilo_simpla_db("sxablonoID", "retposxto");
butono("elektu", "Elektu!");
echo "</p>";
echo "</form>";
break;
}
// switch
?>
</body>
</html>
$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();
/**
* 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";
}