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>";
}
示例#5
0
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";
}
示例#6
0
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";
}
示例#7
0
/**
 * 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";
}
示例#8
0
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>";
}
示例#9
0
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>";
}
示例#10
0
// // 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 &#99;^-kodigon por la esperantaj supersignoj" . " (&#69;^ 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'] . "&ndash;" . $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 . " &ndash; " . $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";
    // -----------------------------------------------------
}