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";
}
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>";
}
/**
* @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";
}
function montru_gxin()
{
echo "<table>";
tabela_kasxilo("Sendanto-nomo", '', $_POST['de_nomo']);
tabela_kasxilo("Sendanto-adreso", '', $_POST["de_adreso"]);
tabela_kasxilo("ppanto-ID", '', $_POST['ID']);
tabela_kasxilo("Nomo", '', $_POST['alkiu']);
tabela_kasxilo("Retadreso", '', $_POST['retadreso']);
tabela_kasxilo("Temo", '', $_POST['temo']);
tabela_kasxilo("Enhavo", '', $_POST['teksto']);
tabela_kasxilo("Prilaborita", '', $_POST['prilaborata']);
echo "</table>";
}
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'] . " — " . "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";
}
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";
}
/**
* 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";
}
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>";
}
// // 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();
// $katsistemo = donu_katsistemon(0, $tipo);
eoecho("<h1>Nova " . donu_eokatsisnomon($tipo) . "</h1>\n");
}
eoecho("<h2>Bazaj datumoj</h2>\n");
echo "<form action='kategorisistemo.php?tipo=" . $tipo . "' method='POST'>\n";
echo "<table>\n";
tabela_kasxilo("ID", "ID", $katsistemo->datoj['ID']);
tabelentajpejo("nomo", 'nomo', $katsistemo->datoj['nomo'], 20);
if ($_REQUEST['id']) {
$entajpanto = $katsistemo->datoj['entajpanto'];
$ent_nomo = eltrovu_entajpanton($entajpanto);
} else {
$entajpanto = $_SESSION['kkren']['entajpanto'];
$ent_nomo = $_SESSION['kkren']['entajpantonomo'];
}
tabela_kasxilo("Posedanto", "entajpanto", $entajpanto, $ent_nomo);
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");
$tipo->skribu();
$_REQUEST['id'] = $tipo->datoj['ID'];
break;
default:
darf_nicht_sein("sendu: " . $_REQUEST['sendu']);
}
// 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");
/**
* 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";
}
eoecho(" farita.</p>");
}
function formatu_litonokton($linio)
{
return "c^. " . $linio['cxambronomo'] . "/" . $linio['nokto_de'] . "–" . $linio['nokto_gxis'] . "/" . $linio['rezervtipo'];
}
eoecho("<h2>Inters^ang^o de la c^ambroj de du partoprenantoj</h2>");
echo "<form action='cxambro_sxangxo.php' method='post'>";
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();
$tipo->skribu();
$_REQUEST['id'] = $tipo->datoj['ID'];
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");
break;
default:
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>");
/**
* montras redaktilon por la parttempajxoj.
*/
function redaktilo_por_parttempsistemoj($sistemo)
{
eoecho("<h2>Traktado de parttempuloj</h2>");
echo "<form action='kotizosistemo.php?id=" . $sistemo->datoj['ID'] . "' method='POST'>\n";
$sql = datumbazdemando('ID', 'parttempkotizosistemoj', array('baza_kotizosistemo' => $sistemo->datoj['ID']), "", array("order" => "por_noktoj ASC"));
$rez = sql_faru($sql);
echo "<table>\n";
eoecho("<tr><th>ID</th><th>noktoj</th><th>faktoro</th><th>kot.-sistemo</th><th>kondic^o</th></tr>\n");
while ($linio = mysql_fetch_assoc($rez)) {
$id = $linio['ID'];
$partsistemo = new Parttempkotizosistemo($id);
echo "<tr><td>" . $id . "</td><td>";
simpla_entajpejo("", 'parttempa[' . $id . '][por_noktoj]', $partsistemo->datoj['por_noktoj'], 4);
echo "</td><td>";
simpla_entajpejo("", 'parttempa[' . $id . '][faktoro]', $partsistemo->datoj['faktoro'], 4);
echo "</td><td>";
elektilo_simpla_db('parttempa[' . $id . '][sub_kotizosistemo]', 'kotizosistemoj', 'nomo', 'ID', $partsistemo->datoj['sub_kotizosistemo']);
echo "</td><td>";
simpla_kondicxoelektilo('parttempa[' . $id . '][kondicxo]', $partsistemo->datoj['kondicxo']);
echo "</td></tr>\n";
}
// while
echo "</table>";
butono("sxangxu_parttempsistemojn", "S^ang^u");
echo "</form>\n";
eoecho("<h3>Nova parttempsistemo</h3>");
echo "<form action='kotizosistemo.php?id=" . $sistemo->datoj['ID'] . "' method='POST'>\n";
echo "<table>";
tabela_kasxilo("en sistemo", 'baza_kotizosistemo', $sistemo->datoj['ID']);
tabelentajpejo("noktoj", 'por_noktoj', "", 4, "tiom da noktoj oni rajtas resti en tiu tarifo");
tabelentajpejo("faktoro", 'faktoro', "1", 6, "ni obligas la kotizojn de la elektita sistemo" . " per tiu faktoro.");
tabela_elektilo_db("uzata kotizosistemo", 'sub_kotizosistemo', 'kotizosistemoj', "nomo", "ID", "", "", "la kotizoj de tiu sistemo estos uzataj.");
tabela_kondicxoelektilo("Tiu kondic^o aldone devas esti plenumita", 7);
echo "</table>";
butono("nova_parttempsistemo", "Nova");
echo "</form>\n";
// TODO
echo "<hr/>\n";
// -----------------------------------------------------
}