}
// 	if ($partoprenanto->datoj['naskigxdato'] < TEJO_AGXO_LIMDATO)
// 	{
//         akceptada_instrukcio("Lau^ nia kalkulo, {$ri} estas " .
//                              "<strong>tro ag^a</strong> por ig^i " .
//                              "TEJO-membro.");
// 	}
ligu_sekvan("TEJO-kotizo klaras.");
akceptado_kesto_fino();
if (!necesas_tejo_traktado()) {
    eoecho("<p>Lau^ la opinio de la programo ne necesas " . "TEJO-traktado por tiu ulo. Vi (kiel h**o) " . "kompreneble tamen rajtas fari tion.</p>");
}
eoecho("<p>Se {$ri} estos membro de TEJO por la jaro " . TEJO_MEMBRO_JARO . ", {$ri} ricevos rabaton" . " de " . TEJO_RABATO . " E^.\n</p>");
eoecho("<h3>Aktuala stato</h3>\n");
if ($partoprenanto->datoj['naskigxdato'] < TEJO_AGXO_LIMDATO) {
    eoecho("<p>Lau^ nia kalkulo, {$ri} estas " . "<strong>tro ag^a</strong> por ig^i " . "TEJO-membro. Do ne eblas ricevi TEJO-rabaton.</p>\n");
}
eoecho("<p>Lau^ la datumbazo, " . $statoteksto . "</p>\n");
eoecho("<h3>Nova stato</h3>\n");
echo "<form action='akceptado-tejo.php' method='post' class='elekto-listo'>";
entajpbutono("<p>", 'ago', 'igxu', $stato, 'igxu', "{$Ri} ig^as TEJO-membro kaj pagos ");
simpla_entajpejo("la kotizon de ", 'kotizo', $partopreno->datoj['tejo_membro_kotizo'], "10", "", " E^ kun la renkontig^a kotizo.</p>");
entajpbutono("<p>", 'ago', 'jam', $stato, 'jam', "{$Ri} jam estas TEJO-membro por " . TEJO_MEMBRO_JARO . " kaj povis pruvi tion, do ricevos rabaton sen pagi" . "  apartan TEJO-kotizon.</p>");
entajpbutono("<p>", 'ago', 'ne', $stato, 'ne', "{$Ri} nek estas TEJO-membro nek volas au^ povas ig^i, kaj rezignas" . " pri la TEJO-rabato.</p>");
entajpbutono("<p>", 'ago', 'pagas', $stato, 'pagas', "{$Ri} nek estas TEJO-membro nek volas au^ povas ig^i, kaj" . " rezignas pri la TEJO-rabato.<br/> {$Ri} ial tamen pagas ");
simpla_entajpejo("", 'krompago', $partopreno->datoj['tejo_membro_kotizo'], "10", "", " E^ kun la renkontig^a kotizo al TEJO/UEA," . " ekzemple por UEA-membreco (kvankam troag^a por TEJO)," . " membreco en kategorio MG au^ membrokotizo por alia " . " persono. Certigu, ke vi notos sur tau^ga papero (ekzemple" . " la alig^ilo), kiom {$ri} pagis por kio.</p>");
echo "<p>";
tenukasxe('partoprenidento', $partopreno->datoj['ID']);
send_butono("S^ang^u");
echo "</p></form>";
HtmlFino();
Esempio n. 2
0
echo CH("antauxpagos-gxis");
$limdatoj = listu_limdatojn(CH("surloke"), $renkontigxo, "2009-01-01");
// trovu la sekvan limdaton, por uzi tiun kiel defauxlto
$nun = date("Y-m-d");
foreach ($limdatoj as $ld) {
    if (strcmp($ld, $nun) > 0) {
        break;
    }
}
// echo "<!-- limdatoj: " . var_export($limdatoj, true) . "-->";
elektilo_simpla('antauxpago_gxis', $limdatoj, $ld, "", 1, 1);
entajpbutono("<br/> ", 'pagmaniero_1', $_POST['pagmaniero_1'], 'peranto', 'peranto', CH("al-peranto"), "", $klaso);
if (is_array($GLOBALS['mankas']) and in_array('pagmaniero_2', $GLOBALS['mankas'])) {
    simpla_entajpejo("", 'pagmaniero_2', "", "", "", "", "", "class='mankas'");
} else {
    simpla_entajpejo("", 'pagmaniero_2');
}
entajpbutono("<br/> ", 'pagmaniero_1', $_POST['pagmaniero_1'], 'ueakonto', 'ueakonto', CH("al-uea-konto"), "", $klaso);
entajpbutono("<br/> ", 'pagmaniero_1', $_POST['pagmaniero_1'], 'organizajxo', 'organizajxo', CH("al-bankkonto-de"), "", $klaso);
/**
 * TODO: kiuj landaj asocioj fakte estas perantoj?
 * La sama listo trovigxas cxe 'kontrolu_elekton', eble
 *  trovu manieron havi gxin nur unufoje.
 */
$pagmaniertradukoj = array('cxej' => CH('konto-CxEJ'), 'gej' => CH('konto-GEJ'), 'pej' => CH('konto-PEJ'), 'hej' => CH('konto-HEJ'), 'iej' => CH('konto-IEJ'), 'jefo' => CH('konto-JEFO'));
elektilo_simpla('pagmaniero_3', $pagmaniertradukoj, "");
// entajpbutono("<br/> ", 'pagmaniero_1', $_POST['pagmaniero_1'],
//             'paypal', 'paypal', CH("per-paypal"), "", $klaso);
entajpbutono("<br/> ", 'pagmaniero_1', $_POST['pagmaniero_1'], 'ne-scias', 'ne-scias', CH("al-ne-scias"), "", $klaso);
/*
aliĝilo_tabelelektilo('pagmaniero',
function entajpa_kotizocxelo($kotizosistemo, $kategorioj)
{
    $kotizo = $kotizosistemo->eltrovu_bazan_kotizon($kategorioj);
    $nomo = "kotizo[" . enkodu_kategoriojn($kategorioj) . "]";
    simpla_entajpejo("", $nomo, $kotizo, 7);
}
/**
 * Montras la formularon kun diversaj opcioj gravaj
 * por administrantoj.
 */
function montru_administradan_formularon()
{
    eoecho("<h2>Grava Administrado</h2>");
    eoecho("<form action='administrado.php' method='post'>\n");
    eoecho("<p>Printu:<BR>");
    entajpbutono("", 'kio', valoro($_POST['kio']), "n", 'n', "noms^ildojn", "kutima");
    entajpbutono("(", "nkkren", valoro($_POST['nkkren']), "cxiuj", "cxiuj", "c^iuj", "kutima");
    entajpbutono("|", "nkkren", valoro($_POST['nkkren']), "nur", "nur", "nur " . organizantoj_nomo);
    entajpbutono("|", "nkkren", valoro($_POST['nkkren']), "sen", "sen", "sen " . organizantoj_nomo . " )");
    //  entajpejo("(Nur por: ", "kiuj", $_POST['kiuj'], "", "", "", ")");
    echo "<br/>";
    entajpbutono("", 'kio', valoro($_POST['kio']), 's', 's', "specialajn noms^ildojn");
    entajpbutono("<br/>", 'kio', valoro($_POST['kio']), "m", 'm', "mang^kuponojn");
    entajpbutono("(", 'tipo', valoro($_POST['tipo']), "N", 'N', 'viande', "kutima");
    entajpbutono("", 'tipo', valoro($_POST['tipo']), "A", 'A', 'vegane');
    entajpbutono("", 'tipo', valoro($_POST['tipo']), "J", 'J', "vegetare)");
    entajpbutono("<br/>", 'kio', valoro($_POST['kio']), "k", 'k', 'konfirmilojn');
    entajpbutono("<br/>", 'kio', valoro($_POST['kio']), "a", 'a', 'akceptofoliojn');
    entajpbutono("</p><p>Por ", 'nombro', valoro($_POST['nombro']), 1, 1, " 1 pag^o", "kutima");
    entajpbutono(" ", 'nombro', valoro($_POST['nombro']), 5, 5, " 5 pag^oj");
    entajpbutono(" ", 'nombro', valoro($_POST['nombro']), 20, 20, " 20 pag^oj");
    entajpbutono(" ", 'nombro', valoro($_POST['nombro']), 999, 999, " c^iuj");
    entajpbutono(" ", 'nombro', valoro($_POST['nombro']), 'speciale', 'speciale', "tiom: ");
    simpla_entajpejo("", 'nombro_speciale', valoro($_POST['nombro_speciale']), 4, "", "(nur por akceptofolioj)");
    simpla_entajpejo(", ekde ", 'ekde', valoro($_POST['ekde']) + valoro($_POST['nombro_speciale'], 0), 4);
    entajpbokso("<p>", 'savu', valoro($_POST['savu'], "N"), "J", "J", "Savu ke vi premis/sendis en la partoprendatumoj");
    entajpbokso("<BR>", 'sen', valoro($_POST['sen']), "s", "s", "malplenaj folioj</p>");
    entajpbutono("<p>", 'kio', valoro($_POST['kio']), "adres", 'adres', "elprintu adresaron ");
    entajpbokso("(", 'bunta', valoro($_POST['bunta']), 'JES', 'JES', "buntan,", "kutima");
    entajpbokso(" ", 'granda', valoro($_POST['granda']), 'JES', 'JES', "grandan (por korekti))");
    entajpbutono("<p>", 'kio', valoro($_POST['kio']), "gepatra_permeso", "gepatra_permeso", "kreu malplenajn gepatrajn permesilojn<br/>");
    /*
    
    $dosiernomo = '../../../phplibraro/tmp/' .traduku_tabelnomon('partoprenantoj') . '.sql.gz';
    if (file_exists($dosiernomo))
    	{
    	  $dato = "de " . date("Y-m-d H:i", filemtime($dosiernomo) .".");
    	}
    else
    	{
    	  $dato = "ne trovebla ($dosiernomo)!";
    	}
    
    entajpbutono ("<p>","kio",$kio, "backup","backup",
    				"Kreu sekurkopion de la datumbazo. (La lasta estas $dato)</p>");
    
    $dosiernomo = '../../../phplibraro/tmp/projekto-'. $tabelnomprefikso . '.sql.gz';
    if (file_exists($dosiernomo))
    	{
    	  $dato = "de " . date("Y-m-d H:i", filemtime($dosiernomo) .".");
    	}
    else
    	{
    	  $dato = "ne trovebla ($dosiernomo)!";
    	}
    
    
    entajpbutono ("<p>","kio",$kio, "backup_is","backup_is",
    				"Kreu sekurkopion de la datumbazo (nur IS). (La lasta estas $dato)</p>");
    
    if (rajtas('teknikumi'))
    	{
    	  entajpbutono("<p>", "kio", $kio, "backup_programo", "backup_programo",
    				   "Kreu sekurkopion de la programo.</p>");
    	}
    */
    send_butono('Faru!');
    echo "</p></form>\n";
}
    $ago = $partopreno->datoj['surloka_membrokotizo'];
}
eoecho("<li>Lau^ la aktuala enhavo de la datumbazo, {$ri} <em>" . $partopreno->membrokotizo() . "</em>.</li>");
eoecho("<li><h3>Kion ni faru?</h3>");
/* n */
entajpbutono("<p>", 'ago', 'n', $ago, 'n', "{$Ri} ne estas membro kaj ne devas esti. " . ($estas_eksterlandano ? "<strong>(Elektu tiun por eksterlandano!)</strong>" : "") . "</p>");
/* a */
entajpbutono("<p>", 'ago', 'a', $ago, 'a', "{$Ri} estas membro, kaj jam pagis kotizon por " . deviga_membreco_jaro . " (au^ ne devas pagi, au^ donis" . " enkasigrajtigon).</p>");
/* j */
entajpbutono("<p>", 'ago', 'j', $ago, 'j', "{$Ri} jam estas membro kaj nun pagas la kotizon de ");
simpla_entajpejo("", 'kotizo-j', $partopreno->datoj['membrokotizo'], "10", "", "", " E^ kun la renkontig^a kotizo.</p>");
/* i */
entajpbutono("<p>", 'ago', 'i', $ago, 'i', "{$Ri} ig^as nova membro kaj pagas la kotizon de ");
simpla_entajpejo("", 'kotizo-i', $partopreno->datoj['membrokotizo'], "10", "", "", " E^ kun la renkontig^a kotizo.</p>");
/* h */
entajpbutono("<p>", 'ago', 'h', $ago, 'h', "{$Ri} ig^is nova membro, sed ne devas pagi nun " . "(ekzemple pro enkasigrajtigo).");
/* k */
entajpbutono("<p>", 'ago', 'k', $ago, 'k', "{$Ri} devus ig^i (au^ resti) membro, sed" . " ne ne volas kaj preferas pagi");
simpla_entajpejo(" la krompagon de ", 'kotizo-k', $partopreno->datoj['membrokotizo'], "10", "", "", " E^ kun la renkontig^a kotizo.</p>");
/* ? */
entajpbutono("<p>", 'ago', '@@@', $ago, '?', "Res^altu la datumbazeron al <em>ne jam traktita</em>" . " &ndash; ni pripensos poste kaj tiam dau^rigos la" . " akceptadon.");
echo "</li></ul>\n<p>";
tenukasxe('partoprenidento', $partopreno->datoj['ID']);
send_butono("S^ang^u");
if (necesas_lokaasocio_traktado()) {
    eoecho("Necesas s^ang^i la aktualan staton antau^" . " pluiri al la sekva pas^o. ");
} else {
    ligu_sekvan();
}
echo "</p>\n</form>\n";
HtmlFino();
/**
 * Kreas unu tabellinion.
 * @param array $datoj unu datumbaz-respondo-linio.
 */
function metu_tejomembro_tabellinion($datoj)
{
    echo "  <tr>\n";
    $id = $datoj['ID'];
    $antoID = $datoj['partoprenantoID'];
    echo "<td>" . donu_ligon("partrezultoj.php?partoprenidento=" . $id, $id) . "</td><td>";
    if ($GLOBALS['rajtas_sxangxi']) {
        tenukasxe('malnovaUEAkodo[' . $antoID . ']', $datoj['ueakodo']);
        simpla_entajpejo("", 'novaUEAkodo[' . $antoID . ']', $datoj['ueakodo'], 7);
    } else {
        echo $datoj['ueakodo'];
    }
    eoecho("</td><td>" . $datoj['personanomo'] . "</td><td>" . $datoj['nomo'] . "</td><td>" . $datoj['urbo'] . "</td><td>" . $datoj['landonomo'] . "</td><td>");
    // TODO: formatado diversa, alikaze nur jes_ne(...).
    if (jesne_al_boolean($datoj['tejo_membro_laudire'])) {
        echo "jes";
    } else {
        echo "ne";
    }
    echo "</td><td>";
    if ($GLOBALS['rajtas_sxangxi']) {
        tenukasxe("malnovaKontrolita[" . $id . "]", $datoj['tejo_membro_kontrolita']);
        simpla_entajpbutono('novaKontrolita[' . $id . ']', $datoj['tejo_membro_kontrolita'], 'j');
        eoecho("<abbr title='estas membro'>jes</abbr>");
        echo "</td><td>";
        simpla_entajpbutono('novaKontrolita[' . $id . ']', $datoj['tejo_membro_kontrolita'], '?');
        eoecho("<abbr title='ne kontrolita'>?</abbr>");
        echo "</td><td>";
        simpla_entajpbutono('novaKontrolita[' . $id . ']', $datoj['tejo_membro_kontrolita'], 'n');
        eoecho("<abbr title='ne estas membro'>ne</abbr>");
        echo "</td><td>";
        simpla_entajpbutono('novaKontrolita[' . $id . ']', $datoj['tejo_membro_kontrolita'], 'i');
        eoecho("<abbr title='ig^as surloke (nur metu tion dum akceptado!'>ig^as</abbr>");
    } else {
        switch ($datoj['tejo_membro_kontrolita']) {
            case 'j':
                echo "jam antau^e";
                break;
            case 'n':
                echo "ne membras";
                break;
            case 'i':
                echo "ig^as surloke";
                break;
            case '?':
                echo "ne kontrolita";
                break;
        }
    }
    echo "</td>\n";
    echo "  </tr>\n";
}
    case 'j?':
        eoecho("{$ri} asertis esti membro de TEJO por " . TEJO_MEMBRO_JARO . ", kaj kontrolo ne jam okazis.");
        $stato = 'igxu';
        break;
    case 'ji':
    case 'ni':
        eoecho("<p>{$ri} decidis ig^i surloke membro de TEJO por " . TEJO_MEMBRO_JARO . " kaj pagis au^ pagos la kotizon de " . $partopreno->datoj['tejo_membro_kotizo'] . " E^.");
        $stato = 'igxu';
        break;
    case 'nn':
    case 'n?':
        eoecho("{$ri} ne estas TEJO-membro por " . TEJO_MEMBRO_JARO . ".");
        $stato = 'ne';
    default:
        darf_nicht_sein("illegaler Zustand von <code>tejo_membro_laudire</code> (" . $partopreno->datoj['tejo_membro_laudire'] . ") oder <code>tejo_membro_kontrolita</code (" . $partopreno->datoj['tejo_membro_kontrolita'] . ").");
}
eoecho(" Kion ni faru?</p>");
entajpbutono("<p>", 'ago', 'igxu', $stato, 'igxu', "{$Ri} ig^as TEJO-membro kaj pagas ");
simpla_entajpejo("la kotizon de ", 'kotizo', $partopreno->datoj['tejo_membro_kotizo'], "10", "", "", " E^ kun la renkontig^a kotizo.</p>");
entajpbutono("<p>", 'ago', 'jam', $stato, 'jam', "{$Ri} jam estas TEJO-membro por " . TEJO_MEMBRO_JARO . " kaj povis pruvi tion, do ricevos rabaton sen pagi" . "  apartan TEJO-kotizon.</p>");
entajpbutono("<p>", 'ago', 'ne', $stato, 'ne', "{$Ri} nek estas TEJO-membro nek volas au^ povas ig^i, kaj rezignas" . " pri la TEJO-rabato.</p>");
echo "</li></ul><p>";
tenukasxe('partoprenidento', $partopreno->datoj['ID']);
send_butono("S^ang^u");
if (necesas_lokaasocio_traktado()) {
    ligu("akceptado-lokaasocio.php", "TEJO-kotizo klaras, plu al <em>membreco c^e " . deviga_membreco_nomo . "</em>.");
} else {
    ligu("akceptado-cxambro.php", "TEJO-kotizo klaras, plu al <em>cxambroj</em>.");
}
echo "</p></form>";
HtmlFino();
Esempio n. 8
0
// define("DEBUG", true);
require_once 'iloj/iloj.php';
session_start();
HtmlKapo("maldekstren");
malfermu_datumaro();
if (rajtas('vidi')) {
    // rapida salto al la detaloj-pagxo (aux akcepto-pagxo) laux PP-ID
    ?>
<form method="post" id="entajpu" name="entajpu"
      action="route.php" target="anzeige"
		style="float:left; text-align: center; display: block; margin: 2pt; border: outset thin; padding:1pt;">
	<p style='margin: 1pt; font-size: small;'>partopreno-ID:</p>
	<p style='margin: 1pt;'>
        <?php 
    tenukasxe('elekto', 'Montru!');
    simpla_entajpejo("", 'partoprenidento', '', 5);
    ?>
	</p>
</form>
<?php 
}
// TODO?: später kürzer, via session;
echo "<div style='text-align:right;margin:3pt;'>";
if (isset($_SESSION['kkren'])) {
    eoecho("Saluton, kara");
    ligu('uzanto.php', $_SESSION["kkren"]["entajpantonomo"]);
    eoecho(",\n");
} else {
    eoecho("Saluton, kara nekonatulo, ");
    ligu("komenci.php", "bonvolu ensaluti!");
}
eoecho("<p>Se {$ri} estas membro de TEJO por la jaro " . TEJO_MEMBRO_JARO . ", {$ri} ricevas rabaton" . " de " . $uea_rabato . " CZK.\n</p>");
eoecho("<h3>Aktuala stato</h3>\n");
/*
if ($partoprenanto->datoj['naskigxdato'] < TEJO_AGXO_LIMDATO)
	{
        
        eoecho("<p>Lau^ nia kalkulo, {$ri} estas " .
               "<strong>tro ag^a</strong> por ig^i " .
               "TEJO-membro. Do ne eblas ricevi TEJO-rabaton.</p>\n");
	}
*/
eoecho("<p>Lau^ la datumbazo, " . $statoteksto . "</p>\n");
eoecho("<h3>Nova stato</h3>\n");
echo "<form action='akceptado-uea.php' method='post' class='elekto-listo'>";
entajpbutono("<p>", 'ago', 'igxu', $stato, 'igxu', "{$Ri} ig^as UEA-membro kaj pagos la UEA-kotizon kun la" . " renkontig^a kotizo.");
simpla_entajpejo("<br/>Kotizo: ", 'kotizo', $uea_krompago->datoj['kvanto'], 10);
$valuto = $uea_krompago->datoj['valuto'] or $valuto = 'EUR';
simpla_elektolisto_el_konfiguroj('kotizo_valuto', 'valuto', $valuto);
entajpbutono("<p>", 'ago', 'jam', $stato, 'jam', "{$Ri} jam estas UEA-membro por " . TEJO_MEMBRO_JARO . " kaj povis pruvi tion, do ricevos rabaton sen pagi" . "  apartan UEA-kotizon.</p>");
entajpbutono("<p>", 'ago', 'ne', $stato, 'ne', "{$Ri} nek estas UEA-membro nek volas au^ povas ig^i, kaj " . "rezignas pri la UEA-rabato.</p>");
/*
entajpbutono("<p>", 'ago', 'pagas', $stato, 'pagas',
             "{$Ri} nek estas UEA-membro nek volas au^ povas ig^i, kaj".
             " rezignas pri la UEA-rabato.<br/> {$Ri} ial tamen pagas ");
simpla_entajpejo("", 'krompago', $partopreno->datoj['tejo_membro_kotizo'],
                 "10", "", " E^ kun la renkontig^a kotizo al TEJO/UEA," .
                 " ekzemple por UEA-membreco (kvankam troag^a por TEJO)," .
                 " membreco en kategorio MG au^ membrokotizo por alia " .
                 " persono. Certigu, ke vi notos sur tau^ga papero (ekzemple".
                 " la alig^ilo), kiom $ri pagis por kio.</p>");
*/
        } 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'] . "&nbsp;" . $listero['valuto'] . "</strong></p>");
                } else {
                    eoecho("<p>Lau^ la supra kalkulo, restas pagenda " . $listero['pagenda'] . "&nbsp;" . $listero['valuto'] . "</p>");
                    eoecho("<p>Sed por simpligi, ni nur volas <strong>" . $listero['vere_pagenda'] . "&nbsp;" . $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'] . "&nbsp;" . $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'] . "&nbsp;" . $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();
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
}
if ($partoprenanto->datoj['posxtkodo'] == "") {
    akceptada_instrukcio("Enmetu la pos^tkodon en la g^ustan kampon kaj " . "konservu.");
}
if ($partopreno->datoj['studento'] == '?') {
    akceptada_instrukcio("C^u {$ri} estas studento kaj havas pruvilon pri tio? " . "Metu la respondon suben.");
}
ligu_sekvan("Ne (plu) estas korektendaj s^ang^oj.");
akceptado_kesto_fino();
//   eoecho("<li><p>C^u {$ri} s^ang^is personajn au^ partoprenajn datumojn sur" .
// 			" la akceptofolio? </p>\n");
echo "<table>";
eoecho("<tr><th>Personaj datumoj</th><th>Partoprenaj datumoj</th></tr>\n");
echo "<tr><td>";
if ($partoprenanto->datoj['posxtkodo'] == "") {
    echo "<form action='akceptado-datoj.php?partoprenidento=" . $partopreno->datoj['ID'] . "' method='POST'>\n";
    simpla_entajpejo("Pos^tkodo", 'posxtkodo', '', 10, '', " ");
    send_butono("konservu");
    echo "</form>\n";
}
echo "</td><td>";
if ($partopreno->datoj['studento'] == '?') {
    echo "<form action='akceptado-datoj.php?partoprenidento=" . $partopreno->datoj['ID'] . "' method='POST'>\n";
    butono('j', "studento", 'studento');
    butono('n', "ne Studento", 'studento');
    echo "</form>\n";
}
echo "</td></tr>\n";
echo "<tr><td>";
$partoprenanto->montru_aligxinto(true);
echo "</td><td>";
$partopreno->montru_aligxo(true);
 function kreu_tabellinion($versio)
 {
     parent::kreu_tabellinion($versio);
     switch ($versio) {
         case 'simpla':
             echo "<td>" . $this->datoj['limagxo'] . "</td>";
             break;
         case 'redaktebla':
             simpla_entajpejo("<td>", 'kategorio[' . $this->datoj['ID'] . '][limagxo]', $this->datoj['limagxo'], 5, "", "</td>");
             break;
     }
 }
    }
    echo "</table><p>";
    butono("nova_personkosto", "Aldonu!");
    echo "</p></form>\n";
}
echo "<hr/>\n";
// --------------------------------------------------------
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";