$pago->datoj[dato] = date("Y-m-d");
}
entajpejo("<BR>alvenodato:", dato, $pago->datoj[dato], 11, "", "", " (jaro-monato-tago)");
if (!$pago->datoj[dato] and !kontrolu_daton($pago->datoj[dato])) {
erareldono("La dato kion vi entajpis ne ekzistas au^ estis malg^uste");
}
entajpejo("sumo:", kvanto, $pago->datoj[kvanto], 5, "", "", " E^");
montru_elekto_liston("antauxpaguloj", $pago->datoj['tipo'], 'tipo', 'antau^pago al ');
/* entajpbutono("<BR><BR><BLOCKQUOTE>",tipo,$pago->datoj[tipo],"GEJ",GEJ,"antau^pago per GEJ-konto<BR>","");
entajpbutono("",'tipo',$pago->datoj['tipo'],"BerO",'BerO',"antau^pago al BerO-kaso<BR>");
entajpbutono("",'tipo',$pago->datoj['tipo'],"UEA",'UEA',"antau^pago per UEA-konto<BR>");
entajpbutono("",'tipo',$pago->datoj['tipo'],"JEFO",'JEFO',"antau^pago al JEFO<br/>");
entajpbutono("",'tipo',$pago->datoj['tipo'],"HEJ",'HEJ',"antau^pago al HEJ<br/>");
entajpbutono("",'tipo',$pago->datoj['tipo'],"IEJ",'IEJ',"antau^pago al IEJ<br/>");
entajpbutono("",'tipo',$pago->datoj['tipo'],"Martin",'Martin',"antau^pago al Martin<BR>");
entajpbutono("",'tipo',$pago->datoj['tipo'],"Julia",'Julia',"antau^pago al Julia<BR>");
entajpbutono("",'tipo',$pago->datoj['tipo'], "Andreas", "Andreas",
"antau^pago al Andreas<br/>");
entajpbutono("",'tipo',$pago->datoj['tipo'],"alia",'alia',"alia antau^pago (faru noton!)<BR/><BR/>");
entajpbutono("",'tipo',$pago->datoj['tipo'],"surlokpago",'surlokpago',"surloka pago<BR>","kutima");
entajpbutono("",'tipo',$pago->datoj['tipo'],"donaco",'donaco',"doncao<BR>");
entajpbutono("",'tipo',$pago->datoj['tipo'],"repago",'repago',"repago</BLOCKQUOTE>");
echo "<BR><BR>";
*/
tenukasxe('parto', "kontroli");
send_butono("Enmetu!");
ligu("partrezultoj.php", "reen", "");
echo "</form>";
HtmlFino();
$_SESSION["pago"] = $pago;
$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 "</FORM>\n";
eoecho("<h2>Aliaj gravaj aferoj</h2>");
rajtligu("landoj.php", "rigardu kaj eble s^ang^u la landoliston", "", "administri");
eoecho("<br/>");
eoecho("<p>Elprintu partoprenstatistikon:<br/>\n");
rajtligu("demandoj.php", "partopren statistikojn", "", "administri");
echo "(das ist leider zur Zeit etwas kaputt) <br/>";
rajtligu("finkalkulado.php", "IS - Abrechnung", "", "administri");
echo "<br/>";
rajtligu("cxambrostatistiko.php", "montru la c^ambrostatistikon kaj la mang^statistikon", "", "administri");
echo "</p>";
if (rajtas("teknikumi")) {
eoecho("<h2>Nur por teh^nikistoj</h2>\n<p>");
rajtligu("entajpantoj.php", "rigardu kaj eble s^ang^u la entajpantoliston", "", "teknikumi");
eoecho("<br/>");
echo "<li>Kolektu la pagon de:";
entajpejo("", kvanto, $nenio, 5, "", "", " E^ (Se mankas mono nepre prenu garantiaj^on!)");
echo "</li>";
/************** cxambromontrado kaj -disdono ************/
if ($_SESSION["partopreno"]->datoj[domotipo] == 'J') {
$row = mysql_fetch_array(eltrovu_cxambrojn($_SESSION["partopreno"]->datoj[ID]), MYSQL_NUM);
echo "<li>";
montru_cxambron($row[0], $_SESSION["renkontigxo"], $partoprenanto, $_SESSION["partopreno"], "malgranda");
eoecho("<br />Notu la c^ambronumero sur {$ri}a bros^uro</li>");
} else {
eoecho("<li>Notu 'M' kiel c^ambronumero sur {$ri}a bros^uro</li>");
}
/******** Disdono de diversajxoj *************/
eoecho("<li>Eldonu la broschuron.</li>");
if ($_SESSION["partopreno"]->datoj[domotipo] == 'J' or $_SESSION["partopreno"]->datoj[kunmangxas] == 'J') {
eoecho("<li>Eldonu la mang^kuponon.</li>");
}
eoecho("<li>Eldonu la noms^ildon.</li>");
if ($_SESSION["partopreno"]->datoj[komencanto] == 'J') {
eoecho("<li>Donu 'kiel funkcias IS'.</li>");
} else {
if (!jampartoprenis($partoprenanto, $_SESSION["renkontigxo"])) {
eoecho("<li>C^u estas via unua IS? (Se jes, donu <em>Kiel funkcias IS</em>)</li>");
}
}
eoecho("</ul>");
/********** Jen la akceptbutono *************/
send_butono("Akceptu!");
ligu("partrezultoj.php", "reen", "");
echo "</form>";
HtmlFino();
send_butono("Serc^u!");
echo "</FORM>\n<br><hr/>";
eoecho("<h3 id='specialaj'>Specialaj serc^oj</h3>\n");
eoecho("<h4>Pagoj kaj rabatoj:</h4>\n<p>");
ligu("sercxrezultoj.php?elekto=antauxpagoj", "—> c^iu antau^pago");
ligu("sercxrezultoj.php?elekto=rabatoj", "—> c^iu (individua) rabato");
ligu("sercxrezultoj.php?elekto=krompagoj", "—> c^iu (individua) krompago");
eoecho("</p><h4>Listu Notojn:</h4>\n<p>");
foreach ($GLOBALS['notomontrotipoj'] as $tipo => $informoj) {
ligu('sercxrezultoj.php?elekto=laborontajnotoj&montro=' . $tipo, "–> " . $informoj['teksto']);
}
echo "</p>\n<form action='sercxrezultoj.php'>\n";
eoecho("<p>rigardu notojn por/pri/de: ");
tenukasxe('elekto', 'notoj_de_entajpanto');
elektilo_simpla_db('entajpantoid', 'entajpantoj');
send_butono("Rigardu");
echo "</p>\n</form>\n<p>";
ligu("sercxrezultoj.php?elekto=rimarkoj", "–> vidi la rimarkojn de la partoprenantoj");
eoecho("<p>\n<h4>Diversaj^ojn:</h4>\n");
ligu("tejomembroj.php", "Kontrolo de TEJO-membrecoj");
echo "<br/>";
//ligu("sercxrezultoj.php?elekto=kotizokomparo",
// "Komparo de nova kaj malnova kotizokalkulado");
//echo "<br/>";
rajtligu("sercxrezultoj.php?elekto=kunlogxantoj", "–> c^iu,kiu deziras kunlog^adon", "", 'cxambrumi', 'ne');
eoecho("<BR>c^iu junulargasto por la c^ambrodisdonado: ");
ligu("sercxrezultoj.php?elekto=cxambrodisdonado&nur=antauxpago", "kun antau^pago");
ligu("sercxrezultoj.php?elekto=cxambrodisdonado&nur=cxiuj", "c^iuj");
echo "<BR>";
ligu("sercxrezultoj.php?elekto=skribuagxon", "kalkulu kaj skribu la ag^ojn de la partoprenantoj");
echo "<BR>";
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 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";
}
$rez = sql_faru($sql);
if (mysql_num_rows($rez) > 0) {
eoecho("<p>Entajpantoj:</p>");
eoecho("<table>\n<tr><th>ID</th><th>Nomo</th><th>Retpos^tadreso</th></tr>\n");
while ($linio = mysql_fetch_assoc($rez)) {
eoecho("<tr><td>{$linio['ID']}</td><td>{$linio['nomo']}</td><td>{$linio['retposxtadreso']}</td></tr>\n");
}
echo "</table>";
}
echo "</td></tr>";
echo "</table>\n";
echo "<form action='transferi.php' method='GET'>\n";
tenukasxe("de", $de->datoj["ID"]);
tenukasxe("al", $al->datoj["ID"]);
eoecho("<p><input type='checkbox' name='forigu' value='jes' />Tuj forigu la maldekstran personon!</p>");
send_butono("faru");
echo "</form>";
HtmlFino();
exit;
}
if ($sendu == "faru" && $de && $al) {
if ($de == $al) {
eoecho("Vi ne povas s^ovi de iu persono al la sama persono!");
HtmlFino();
exit;
}
sxangxu_datumbazon("partoprenoj", array("partoprenantoID" => $al), array("partoprenantoID" => $de));
sxangxu_datumbazon("notoj", array("partoprenantoID" => $al), array("partoprenantoID" => $de));
sxangxu_datumbazon("entajpantoj", array("partoprenanto_id" => $al), array("partoprenanto_id" => $de));
if ($forigu == "jes") {
forigu_el_datumbazo("partoprenantoj", $de);
}
// 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();
require_once 'iloj/iloj.php';
require_once 'iloj/iloj_cxambroj.php';
session_start();
malfermu_datumaro();
if (!rajtas("cxambrumi")) {
ne_rajtas();
}
if ($sendu == "Nun!") {
$ppID = $_SESSION["partopreno"]->datoj["ID"];
eoecho("S^ang^o de #{$ppID} al #{$al} farita");
// sql_faru("update litonoktoj set partopreno='XXXXX' where partopreno='".$_SESSION["partopreno"]->datoj[ID]."'");
// sql_faru("update litonoktoj set partopreno='".$_SESSION["partopreno"]->datoj[ID]."' where partopreno='$al'");
// sql_faru("update litonoktoj set partopreno='".$al."' where partopreno='XXXXX'");
// intersxangxu la cxambrojn ...
sxangxu_datumbazon("litonoktoj", array("partopreno" => "XXXXX"), array("partopreno" => $ppID));
sxangxu_datumbazon("litonoktoj", array("partopreno" => $ppID), array("partopreno" => $al));
sxangxu_datumbazon("litonoktoj", array("partopreno" => $al), array("partopreno" => "XXXXX"));
}
HtmlKapo();
// $cxam_sql = "select p.ID,pn.ID,nomo,personanomo,l.ID,partopreno,nokto_de,nokto_gxis,rezervtipo from litonoktoj as l,partoprenoj as pn, partoprenantoj as p where l.partopreno=pn.ID and pn.partoprenantoID=p.ID and renkontigxoID='".$_SESSION["renkontigxo"]->datoj[ID]."' order by personanomo,nomo";
$cxam_sql = datumbazdemando(array("p.ID", "pn.ID", "nomo,personanomo", "l.ID", "partopreno,nokto_de", "nokto_gxis", "rezervtipo"), array("litonoktoj" => "l", "partoprenoj" => "pn", "partoprenantoj" => "p"), array("l.partopreno = pn.ID", "pn.partoprenantoID = p.ID"), "renkontigxoID", array("order" => "personanomo, nomo"));
$cxam_rezulto = sql_faru($cxam_sql);
echo "<form action=\"cxambro_sxangxo.php\" method=\"post\">";
eoecho($_SESSION["partoprenanto"]->datoj[personanomo] . " " . $_SESSION["partoprenanto"]->datoj[nomo] . " volas s^ang^i kun: ");
echo "<select name=\"al\" size=\"5\">\n";
while ($row = mysql_fetch_array($cxam_rezulto, MYSQL_BOTH)) {
eoecho("<option value = \"" . $row[1] . "\">" . $row[personanomo] . " " . $row[nomo] . " (" . $row[nokto_de] . "-" . $row[nokto_gxis] . "/" . $row[rezervtipo] . ")");
}
echo " </select>";
send_butono("Nun!");
HtmlFino();
//
// $string = 'abcfoobarfoo';
// $offset = 3; // entspricht dem ersten "f"
// echo preg_match( '~foo~A', $string, $data, 0, $offset ); // 1
// echo preg_match( '~bar~A', $string, $data, 0, $offset ); // 0
// echo preg_match( '~abc~A', $string, $data, 0, $offset ); // 0
//
// ///
sesio_aktualigu_laux_get();
if ($_POST['teksta_kondicxo']) {
$teksto = stripslashes($_POST['teksta_kondicxo']);
$analizilo = new sintaksa_kondicxo_analizilo($teksto);
// echo "<pre>";
// var_export($analizilo);
// echo "</pre>";
$kondicxo = $analizilo->analizu_kondicxon();
echo "<!--";
var_export($kondicxo);
echo "-->";
if (isset($_SESSION['partopreno'])) {
eoecho("<p>Rezulto kun " . $_SESSION['partoprenanto']->tuta_nomo() . " (#" . $_SESSION['partoprenanto']->datoj['ID'] . ") en " . $partopreno_renkontigxo->datoj['mallongigo'] . " (#" . $_SESSION['partopreno']->datoj['ID'] . "):</p>");
echo "<p>" . (kontrolu_kondicxon($kondicxo, $_SESSION['partoprenanto'], $_SESSION['partopreno'], $partopreno_renkontigxo) ? "true" : "false") . "</p>\n";
}
}
eoecho("<h2>Elprovo de kondic^oj</h2>\n");
echo "<form action='kondicxotesto.php' method='POST'>\n<p>";
granda_entajpejo("Kondic^o:<br/>", 'teksta_kondicxo', $teksto, 60, 10);
echo "</p>\n<p>";
send_butono("elprovu");
echo "</p></form>";
HtmlFino();
/**
* Montras cxiujn cxambrojn lauxetagxe.
*
* $deziratatipo - aux 'u' (unuseksa) aux 'g' (gea)
* $sekso - aux 'vira' aux 'malina'.
*
* La parametroj estas uzata por kolorigi la
* cxambrojn laux tauxgeco.
*
*/
function montru_laux_etagxoj($deziratatipo = '', $sekso = '')
{
$klaso = array("para", "malpara");
$zaehler = 0;
$etagxoj = 0;
$cxam_sql = datumbazdemando(array("ID", "nomo", "litonombro", "etagxo", "rimarkoj", "tipo"), "cxambroj", "", "renkontigxo", array("order" => "etagxo, nomo"));
$cxam_rezulto = sql_faru($cxam_sql);
$etagxoj_per_linio = 3;
echo '<table border="0" valign="top" width="60%">' . "\n<tr>\n";
$et = '#';
// nomo de la aktuala etagxo
while ($row = mysql_fetch_array($cxam_rezulto, MYSQL_ASSOC)) {
$listo[$row[nomo]] = $row[ID];
if ($row[etagxo] != $et) {
if ($et != '#') {
echo "</table></td>\n";
}
// sed antauxe finu la malnovan etagxon (kiu havas subtabelon).
$zaehler = 0;
$et = $row[etagxo];
$etagxoj++;
if ($etagxoj > $etagxoj_per_linio) {
echo "</tr><tr>\n";
// post kelkaj subtabeloj ni komencu novan linion
$etagxoj = 1;
}
eoecho("<td nowrap>\n" . "<table border=1 width=100%>\n" . '<tr><td nowrap="nowrap" colspan="2"><b>Etag^o');
ligu("cxambroj.php?etagxo=" . $row[etagxo], $row[etagxo]);
echo "</td></tr>\n";
}
if (tauxgas($deziratatipo, $sekso, $row[tipo])) {
$koloro = " tauxga";
} else {
if ($row[tipo] == '' or $deziratatipo == '') {
$koloro = "";
} else {
$koloro = " maltauxga";
}
}
eoecho("<tr class='" . $klaso[$zaehler % 2] . $koloro . "'>\n" . " <td align=center>" . "<a href='cxambroj.php?cxambronombro=" . $row[ID] . "'>" . $row[nomo] . "</a></td>\n" . " <td width=40>litoj: " . $row[litonombro]);
rajtligu("kreu_cxambron.php?id=" . $row[ID], "(red.)", "", "teknikumi", "ne");
echo "</td><td><strong>";
if ($row[tipo] == "v") {
echo " (vira)";
} else {
if ($row[tipo] == "i") {
echo " (ina)";
} else {
if ($row[tipo] == "g") {
echo " (gea)";
} else {
echo " (nedifinita)";
}
}
}
eoecho("</strong></td></tr>\n" . '<tr class="' . $klaso[$zaehler % 2] . '"><td colspan="3">' . $row[rimarkoj]);
echo "</td></tr>\n";
$zaehler++;
}
echo "</table></td>\n";
// finu la lastan subtabelon
echo "</tr></table>\n";
// finu la cxeftabelon
//sxangxu cxambrojn
reset($listo);
echo "<form action=\"cxambroj.php?cxambronombro={$cxambro}\" method=\"post\">\n";
eoecho("S^ang^u de c^ambro:\n");
echo "<select name=\"de\" size=1>\n";
while (list($k, $v) = each($listo)) {
eoecho(" <option value = \"{$v}\">{$k}</option>\n");
}
echo "</select>\n";
eoecho("al:\n");
reset($listo);
echo "<select name=\"al\" size=1>\n";
while (list($k, $v) = each($listo)) {
eoecho(" <option value = \"{$v}\">{$k}</option>\n");
}
echo "</select>\n";
send_butono("Nun!");
}
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);
echo "</td></tr><tr><td>";
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";
}
/**
* elektilo kun OK-butono en propra formulareto.
*<pre>
* __________ ____
* Titolo [_________] | v |
* | | '---'
* | |
* | |
* '---------'
*</pre>
* aŭ:
*<pre>
* Titolo valoro
*</pre>
*
* @param eostring $titolo priskribo de la enhavo de la elektilo.
* @param urlstring $ago adreso de retpaĝo, kiu akceptas la sendaĵon
* (por la 'action'-atributo.)
* @param string $nomo nomo de la sendenda informo
* @param array $elekteblecoj array() el elekteblecoj, en formo
* id => teksto
* La tekstoj estos montrataj, la ID estos
* sendota al $ago.
* @param string|int $defauxlto - ID de la elemento, kiu estos antaŭelektita
* @param string $rajto se != "", rajto kiun la uzanto devos havi por
* vidi/uzi la elektilon. Alikaze nur estos
* montrata la titolo kun la valoro
* (= $elekteblecoj[$defauxlto]).
* @param eostring $butonteksto teksto por la butono - defaŭlto estas iu hoko.
*
* @uses elektilo_simpla()
* @uses send_butono()
*/
function elektilo_kun_butono($titolo, $ago, $nomo, $elekteblecoj, $defauxlto, $rajto = "", $butonteksto = "")
{
// echo "<!-- defaŭlto: " . $defauxlto . "-->";
if ("" == $rajto or rajtas($rajto)) {
echo "<form class='formulareto' action='" . htmlspecialchars($ago, ENT_QUOTES) . "' method='post'>";
eoecho("<label>" . $titolo);
elektilo_simpla($nomo, $elekteblecoj, $defauxlto);
echo "</label>";
if (!$butonteksto) {
$butonteksto = "√";
// TODO: pli bona hoko.
}
send_butono($butonteksto);
echo "</form>";
} else {
eoecho($titolo);
eoecho($elekteblecoj[$defauxlto]);
}
}
if (KAMPOELEKTO_IJK) {
granda_entajpejo("Tujmesag^iloj", 'tujmesagxiloj', $_SESSION['partoprenanto']->datoj['tujmesagxiloj']);
} else {
entajpejo("Telefakso:", telefakso, $_SESSION["partoprenanto"]->datoj[telefakso], 30, "", "", "(internacie)");
}
echo "<hr/>\n";
entajpejo("UEA-kodo:", "ueakodo", $_SESSION['partoprenanto']->datoj['ueakodo'], 6);
echo "<hr/>\n";
entajpbutono("sendu informmesag^ojn:", 'retposxta_varbado', $_SESSION["partoprenanto"]->datoj['retposxta_varbado'], 'j', 'j', 'en x-kodo', 'defauxlto');
entajpbutono("", 'retposxta_varbado', $_SESSION["partoprenanto"]->datoj['retposxta_varbado'], 'u', 'u', 'en unikodo');
entajpbutono("", 'retposxta_varbado', $_SESSION["partoprenanto"]->datoj['retposxta_varbado'], 'n', 'n', 'tute ne');
echo "<hr/>\n";
entajpbokso("", "nekontrolu", $nekontrolu, "JES", "JES", "Se vi maldeziras datkontroladon pro problemojn, marku c^i tie.");
echo "<br/>\n";
echo "</td><td width=10%></td></tr></table>\n";
echo "<div align=center>\n";
if ($_SESSION["ago"] == "sxangxi") {
if (strpos($_SESSION['sekvontapagxo'], '?') === false) {
$aldono = '?';
} else {
$aldono = '&';
}
ligu($_SESSION["sekvontapagxo"] . $aldono . "partoprenantoidento=" . $_SESSION["partoprenanto"]->datoj[ID], "ne s^ang^u kaj reen ");
send_butono("S^ang^u!");
//sqlago=forgesu&
} else {
send_butono("Aligu!");
}
echo "</div>\n";
echo "</form>\n";
HtmlFino();
* kodigon.
*
* Kiam oni entajpis, la retumilo sendas la informojn
* al index.php, kiu siavice kontrolas la kodvortojn
* kaj komencas la PHP-sesion.
*/
require_once 'iloj/iloj.php';
session_start();
malfermu_datumaro();
HtmlKapo();
echo "<div style='text-align:center'>";
echo "<P class='granda'>\n";
if ($_GET['malgxusta']) {
erareldono("Bedau^rinde via kombino de uzantnomo kaj pasvorto ne tau^gas por la datumbazo");
eoecho("Se vi supozas, ke estu tiel, plendu c^e " . teknika_administranto . " (" . teknika_administranto_retadreso . "). <br />");
}
eoecho("Vi j^us atingis la pag^on por la " . renkontigxo_nomo . "-administrado. \n<BR>\n");
echo "La uzado estas permesata nur al " . organizantoj_nomo . "anoj, do bonvolu identigi vin. (Jen la persona uzantonomo kaj pasvorto.) \n<BR>\n<BR>\n";
echo "<form action='index.php' target='_top' method='POST'>\n";
entajpejo("Via alig^nomo: ", "lakodnomo", $_SESSION["kodnomo"], 10);
entajpejo("Via kodvorto: ", "lakodvorto", "", 10, "", "", "", "j");
echo "<BR>\n";
entajpbutono("Enkodo: ", "laenkodo", $_SESSION["enkodo"], "utf-8", "utf-8", "unikodo", "");
entajpbutono("", "laenkodo", $_SESSION["enkodo"], "x-metodo", "x-metodo", "x-kodo<BR>", "kutima");
eoecho("Bonvolu elekti la enkodmanieron por a supersignoj. \n<BR>\n");
eoecho("(Se vi povas legi la menuon, elektu unikodo, se mankas leteroj prenu la x-kodon.)\n<BR>\n<BR>\n");
// Elektilo por la renkontigxo
montru_renkontigxoelektilon(DEFAUXLTA_RENKONTIGXO);
send_butono("Preta");
echo "<div>";
HtmlFino();
$sql = datumbazdemando('*', 'landoj', "ID = '" . $_REQUEST['redaktu'] . "'");
$rez = sql_faru($sql);
$linio = mysql_fetch_assoc($rez);
eoecho("<p>ID: {$linio['ID']}\n");
}
tenukasxe("ID", $linio['ID']);
echo "<br/>\n<table>";
tabelentajpejo("esperantlingva nomo:", "nomo", $linio['nomo'], 20);
tabelentajpejo("ISO-3166-1-kodo:", 'kodo', $linio['kodo'], 3);
echo "</table><br/>\n";
eoecho(" ... en la datumbazon.</p>");
// echo "<br/>\n";
if ($_REQUEST['redaktu'] != 'nova') {
send_butono("S^ang^u");
} else {
send_butono("Aldonu");
}
entajpbokso("<p>(", "redaktu", "", "jes", $linio['ID'], "Pluredaktu tiun c^i landon.)", "", "sen kasxa");
ligu("landoj.php", "Reen al la listo");
if ($redaktu != "nova") {
ligu("landoj.php?forigu={$redaktu}", "Forigu tiun c^i landon!");
}
echo "</p>";
echo "</form>\n";
HtmlFino();
return;
}
// montru tabelon de cxiuj landoj
$sql = datumbazdemando(array("ID", "nomo", "kodo"), "landoj");
sercxu($sql, array("nomo", "asc"), array(array('ID', 'ID', 'XXXXX', 'z', 'landoj.php?redaktu=XXXXX', -1), array("kodo", 'kodo', "XXXXX", 'c', '', ''), array('nomo', 'nomo', 'XXXXX', 'l', '', '')), array(), "landoj", array(), 0, "Jen listo de c^iuj landoj.", 0, 0);
ligu("landoj.php?redaktu=nova", "Aldonu novan landon");
echo ">{$dateloop}\n";
$dateloop = sekvandaton($dateloop);
} while ($dateloop != $renkontigxo->datoj[gxis]);
?>
</select>
<?php
eoecho("g^is:");
?>
<select name="gxis" size="1">
<?php
$dateloop = $renkontigxo->datoj[de];
do {
$dateloop = sekvandaton($dateloop);
echo "<option";
if ($gxis == $dateloop or !$gxis and $dateloop == $renkontigxo->datoj[gxis]) {
echo " selected ";
}
echo ">{$dateloop}\n";
} while ($dateloop != $renkontigxo->datoj[gxis]);
echo "</select> <BR>\n";
entajpbokso("", "invitilo", $invitilo[0], "J", "JES", "bezonas invitilon");
// TODO: ripari "dulita"
entajpbokso("<BR>", "dulita", $dulita[0], "J", "JES", "dulitan c^ambron //c^i - tie ne funkcias");
entajpbokso("<BR>", "ekskursbileto", $ekskursbileto[0], "J", "JES", "ekskursbileto");
//entajpbokso("<BR>","studento",$studento[0],"J","JES"," estas studento kun internacia legetimilo"); // im Moment nicht berücksichtigt.
entajpbutono("<BR>" . deviga_membreco_nomo . '-membro: ', GEJmembro, $GEJmembro[0], "J", JES, jes, kutima);
entajpbutono("", GEJmembro, $GEJmembro[0], "N", NE, "ne<BR>");
entajpbutono("", domotipo, $domotipo[0], "J", JunularGastejo, " seminariejo<BR>", kutima);
entajpbutono("", domotipo, $domotipo[0], "M", MemZorganto, " memzorganto en amaslog^ejo<BR><BR>");
send_butono("Faru!");
HtmlFino();
if ($_REQUEST['sendu'] == 'Elektu' && $_REQUEST['invitpetoID']) {
// ni uzas la saman identifikilon por la invitpetoj
// kiel por la partoprenoj, cxar estas 1-1-rilato.
$partoprenoID = $_REQUEST['invitpetoID'];
if ($partoprenoID) {
$_SESSION['partopreno'] = new Partopreno($partoprenoID);
} else {
erareldono("La invitpeto-identifikilo #" . $_REQUEST['invitpetoID'] . " ne ekzistas.");
}
}
if (!$_SESSION['partopreno']) {
// ne okazu
erareldono("Forgesig^is la partopreno. Bonvolu unue elekti partoprenon..");
echo "<form method='GET' action='invitpeto.php'>\n";
entajpejo("Por specialaj uzoj, vi povas entajpi c^i tie la partopreno-identifikilon:", 'invitpetoID');
send_butono("Elektu");
echo "</form>";
HtmlFino();
exit;
}
if ($_SESSION['partoprenanto']->datoj['ID'] != $_SESSION['partopreno']->datoj['partoprenantoID']) {
$_SESSION['partoprenanto'] = new Partoprenanto($_SESSION['partopreno']->datoj['partoprenantoID']);
}
/*
* ni difinas $partopreno_renkontigxo por uzi anstataux
* $_SESSION['renkontigxo'], cxar gxi ja povus esti io alia
* (se oni rigardas malnovan partoprenon, ekzemple).
*/
if ($_SESSION['partopreno']->datoj['renkontigxoID'] != $_SESSION['renkontigxo']->datoj['ID']) {
$partopreno_renkontigxo = new Renkontigxo($_SESSION['partopreno']->datoj['renkontigxoID']);
} else {