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";
}
/**
* 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";
}