/**
* montras la bazajn datumojn de iu kotizosistemo.
*
* kun du butonoj, por redakti aux krei novan.
*/
function redaktilo_por_bazaj_datumoj($sistemo)
{
eoecho("<h2>Bazaj datumoj</h2>\n");
echo "<form action='kotizosistemo.php' method='POST'>\n";
eoecho("<table>\n<tr><th>ID</tr><td>" . $sistemo->datoj['ID']);
tenukasxe('id', $sistemo->datoj['ID']);
echo "</td></tr>\n";
$entajpanto = eltrovu_entajpanton($sistemo->datoj['entajpanto']);
eoecho("<tr><th>entajpanto</tr><td>" . $entajpanto . "</td></tr>\n");
tabelentajpejo("nomo", 'nomo', $sistemo->datoj['nomo'], 30);
granda_tabelentajpejo("priskribo", 'priskribo', $sistemo->datoj['priskribo'], 40, 4);
foreach ($GLOBALS['kategoriotipoj'] as $tipo) {
$katsis = $sistemo->donu_kategorisistemon($tipo);
eoecho("<tr><th>" . $katsis->donu_eoklasnomon() . "</th><td>\n");
elektilo_simpla_db(donu_katsisnomon($tipo), donu_katsisnomon($tipo) . "j", "nomo", "ID", $katsis->datoj['ID']);
echo "</td></tr>\n";
}
// // TODO: eble elpensu pli gxeneralan sistemon
// tabelentajpejo("Malfaktoro por parttempaj kotizoj",
// 'parttempdivisoro',
// $sistemo->datoj['parttempdivisoro'],
// 5);
tabela_elektilo_db("Malalig^kondic^o-sistemo", 'malaligxkondicxsistemo', 'malaligxkondicxsistemoj', 'nomo', 'ID', $sistemo->datoj['malaligxkondicxsistemo'], '', "Elektu sistemon por trakti malalig^intojn.");
eoecho("</table>\n<p>");
// TODO: opcioj por kopii ekzistantajn kotizo-valorojn
butono('novaj_kategorioj', "S^ang^u");
butono("kopiu", "Kopiu");
eoecho("(tiam nepre necesas nova nomo)");
echo "</p></form>\n";
echo "<hr/>\n";
// -----------------------------------------------------
}
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";
}
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>";
}
$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();
echo "<pre>";
var_export($_POST);
echo "</pre>";
}
if ($_REQUEST['id']) {
$kondicxsistemo = new Malaligxkondicxsistemo($_REQUEST['id']);
eoecho("<h1>Redaktado de malalig^kondic^sistemo " . $kondicxsistemo->datoj['nomo'] . "</h1>\n");
} else {
eoecho("<h1>Nova malalig^kondic^sistemo</h1>");
}
eoecho("<h2>Bazaj datumoj</h2>");
echo "<form action='malaligxkondicxsistemo.php' method='POST'>\n";
echo "<table>\n";
tabela_kasxilo("ID", "ID", $kondicxsistemo->datoj['ID']);
tabelentajpejo("nomo", 'nomo', $kondicxsistemo->datoj['nomo'], 20);
granda_tabelentajpejo("priskribo", "priskribo", $kondicxsistemo->datoj['priskribo'], 40, 5);
tabela_elektilo_db("alig^kategorisistemo", 'aligxkategorisistemo', 'aligxkategorisistemoj', 'nomo', 'ID', $kondicxsistemo->datoj['aligxkategorisistemo']);
echo "</table>\n";
echo "<p>";
if (!$_REQUEST['id']) {
butono("kreu", "Kreu");
echo "</p>\n</form>\n";
} else {
butono("sxangxu", "S^ang^u");
butono("kopiu", "Kopiu");
eoecho("(tiam donu novan nomon!)");
echo "</p>\n</form>\n";
echo "<hr/>\n";
eoecho("<h2>Kondic^oj por la unuopaj malalig^periodoj</h2>");
echo "<form action='malaligxkondicxsistemo.php' method='POST'>\n";
tenukasxe("ID", $kondicxsistemo->datoj['ID']);
// // 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();
}
// TODO
if ($_REQUEST['id']) {
$malaligxkondicxotipo = new Malaligxkondicxotipo($_REQUEST['id']);
eoecho("<h1>Redakto de malalig^kondic^otipo <em>" . $malaligxkondicxotipo->datoj['nomo'] . "</em></h1>");
} 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>";
/**
* 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";
}
if ($linio['retposxtadreso']) {
$adresolisto[] = $linio['retposxtadreso'];
}
if ($linio['sendanto_nomo']) {
$sendantolisto[] = $linio['sendanto_nomo'];
}
$sendantolisto = array_combine($sendantolisto, $sendantolisto);
$adresolisto = array_combine($adresolisto, $adresolisto);
echo "<table>";
tabela_kasxilo("ppanto-ID", 'ID', $_SESSION['partoprenanto']->datoj['ID']);
tabela_elektilo("Sendanto-nomo", 'de_nomo', $sendantolisto);
tabela_elektilo("Sendanto-adreso", "de_adreso", $adresolisto);
tabela_kasxilo("Al-Nomo", 'alkiu', $alkiu);
tabela_kasxilo("Al-Retadreso", 'retposxto', $_SESSION['partoprenanto']->datoj['retposxto']);
tabelentajpejo("Temo", 'temo', $temo, 57);
granda_tabelentajpejo("Enhavo", 'teksto', $teksto, 57, 20);
echo "</table>";
echo "<p>";
entajpbokso("", "prilaborata", "", "j", "j", "prilaborita<BR>", '', 'ne');
// tenukasxe("elektata", $elektata);
butono("not+send", "Notu kaj sendu!");
butono("sendu", "Nur sendu!");
butono("notu", "Nur notu!");
ligu("partrezultoj.php", "Reen");
echo "</p>";
echo "</form>";
break;
case 'sendu':
sendu_gxin();
montru_gxin();
break;
/**
* kreas formularerojn por krei novan kategorion en tiu sistemo.
*
* adaptenda en subklasoj.
*/
function kreu_kategorikreilon()
{
tabelentajpejo("nomo", "nomo", "", 20);
granda_tabelentajpejo("priskribo", "priskribo", "", 40, 4);
}
echo "</pre>";
// TODO
}
// TODO
eoecho("<h1>Redaktado de kostosistemo</h1>\n");
eoecho("<h2>Bazaj datumoj</h2>\n");
$sistemo = new Kostosistemo($_REQUEST['id']);
echo "<form action='kostosistemo.php' method='POST'>\n";
// TODO: priskribo + nomo
eoecho("<table>\n<tr><th>ID</tr><td>" . $sistemo->datoj['ID']);
tenukasxe('id', $sistemo->datoj['ID']);
echo "</td></tr>\n";
$entajpanto = eltrovu_entajpanton($sistemo->datoj['entajpanto']);
eoecho("<tr><th>entajpanto</tr><td>" . $entajpanto . "</td></tr>\n");
tabelentajpejo("nomo", 'nomo', $sistemo->datoj['nomo'], 30);
granda_tabelentajpejo("priskribo", 'priskribo', $sistemo->datoj['priskribo'], 40, 4);
eoecho("</table>\n<p>");
// TODO: opcioj por kopii ekzistantajn kosto-valorojn
butono('sxangxu_baze', "S^ang^u");
butono("kopiu", "Kopiu");
eoecho("(tiam nepre necesas nova nomo)");
echo "</p></form>\n";
echo "<hr/>\n";
// --------------------------------------------------------
eoecho("<h2>Personkostoj</h2>");
if (rajtas("teknikumi")) {
function formatu_personkostotipon($tipo)
{
return donu_ligon("personkostotipo.php?id=" . $tipo->datoj['ID'], $tipo->datoj['nomo']);
}
} else {
break;
default:
darf_nicht_sein("sendu: " . $_REQUEST['sendu']);
}
// TODO
if ($_REQUEST['id']) {
$personkostotipo = new Personkostotipo($_REQUEST['id']);
eoecho("<h1>Redakto de personkostotipo <em>" . $personkostotipo->datoj['nomo'] . "</em></h1>");
} else {
eoecho("<h1>Kreado de nova personkostotipo</h1>");
}
echo "<form action='personkostotipo.php' method='POST'>\n";
echo "<table>\n";
tabela_kasxilo("ID", "ID", $personkostotipo->datoj['ID']);
tabelentajpejo("nomo", "nomo", $personkostotipo->datoj['nomo'], 20);
granda_tabelentajpejo("priskribo", "priskribo", $personkostotipo->datoj['priskribo'], 40, 4);
tabela_kondicxoelektilo("Elektu la g^ustan kondic^on por la kromkosto. " . "(Se vi bezonas alian kondic^on, necesas programi" . " kaj aldoni g^in en konfiguroj/kondicxoj.php.)", $personkostotipo->datoj['kondicxo']);
tabela_elektilo("uzebla", "uzebla", array('j' => 'jes', 'n' => 'ne'), $personkostotipo->datoj['uzebla'], "C^u montri en la g^enerala listo?");
tabela_elektilo("lau^nokte", 'lauxnokte', array('j' => 'lau^ nokto', 'n' => 'nur unufoje'), $personkostotipo->datoj['lauxnokte'], "C^u lau^nokta personkosto, 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");
HtmlFino();
if ($aktuala_invitpeto) {
eoecho("<h1>S^ang^u invitpeto-datojn</h1>");
} else {
eoecho("<h1>Nova invitpeto</h1>");
}
echo "<form method='POST' action='invitpeto.php'>\n";
eoecho("<p>Ni redaktas invitpeton por la alig^o #" . $_SESSION['partopreno']->datoj['ID'] . " de " . $_SESSION['partoprenanto']->tuta_nomo() . " (#" . $_SESSION['partoprenanto']->datoj['ID'] . ") al la " . $partopreno_renkontigxo->datoj['mallongigo'] . ".</p>");
echo "<table>\n";
eoecho("<tr><th colspan='2'><h2>Informoj lau^ pasporto</h2></td></tr>");
tabelentajpejo("Pasportnumero", 'pasportnumero', $aktuala_invitpeto->datoj['pasportnumero'], 30);
tabelentajpejo("Familia nomo", 'pasporta_familia_nomo', $aktuala_invitpeto->datoj['pasporta_familia_nomo'], 30);
tabelentajpejo("Persona(j) nomo(j)", 'pasporta_persona_nomo', $aktuala_invitpeto->datoj['pasporta_persona_nomo'], 30);
granda_tabelentajpejo("Adreso", 'pasporta_adreso', $aktuala_invitpeto->datoj['pasporta_adreso'], 50, 5);
eoecho("<tr><th colspan='2'><h2>Kien sendi la invitilon?</h2></td></tr>");
tabelentajpejo("Faksnumero por sendi la invitilon", 'senda_faksnumero', $aktuala_invitpeto->datoj['senda_faksnumero'], 30);
granda_tabelentajpejo("Adreso", 'senda_adreso', $aktuala_invitpeto->datoj['senda_adreso'], 50, 5);
eoecho("<tr><th colspan='2'><h2>Internaj informoj</h2></td></tr>");
eoecho("<tr><th>Partopreno-ID</th><td>#" . $_SESSION['partopreno']->datoj['ID'] . "</td></tr>");
eoecho("<tr><th>C^u sendi invitleteron?</th><td>");
entajpbutono("Decidu poste", 'invitletero_sendenda', $aktuala_invitpeto->datoj['invitletero_sendenda'], '?', '?', "|", "kutima");
entajpbutono("Jes", 'invitletero_sendenda', $aktuala_invitpeto->datoj['invitletero_sendenda'], 'j', 'j', "|");
entajpbutono("Ne", 'invitletero_sendenda', $aktuala_invitpeto->datoj['invitletero_sendenda'], 'n', 'n', "");
eoecho("</td></tr>");
tabelentajpejo("Sendodato de Invitletero", 'invitletero_sendodato', $aktuala_invitpeto->datoj['invitletero_sendodato'], 11);
echo "</table>";
echo "<p>";
tenukasxe('ID', $_SESSION['partopreno']->datoj['ID']);
if ($aktuala_invitpeto) {
butono('Sxangxu', "S^ang^u");
} else {
butono("Kreu", "Kreu");
