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();
entajpbutono("<br/>", kio, $kio, "k", k, 'konfirmilojn');
entajpbutono("<br/>", kio, $kio, "a", a, 'akceptofoliojn');
entajpbutono("</p><p>Por ", numero, $numero, 1, 1, " 1 pag^o", "kutima");
entajpbutono(" ", numero, $numero, 5, 5, " 5 pag^oj");
entajpbutono(" ", numero, $numero, 20, 20, " 20 pag^oj");
entajpbutono(" ", numero, $numero, 999, 999, " c^iuj");
entajpbutono("</p><p>", kio, $kio, "sendu", sendu, "Sendu retajn konfirmilojn.");
//TODO:? jau, auch dies kann man aus der DB ziehen.
// [respondo de Martin:] Fällt mir im Moment nicht ein. Soll womöglich bedeuten, daß der Button nur erscheint, wenn der betreffende auch reta ausgewählt wurde.
entajpbokso("<BR>", eksendu, $eksendu, P, P, "Vere eksendu ilin al la partoprenantoj. (Alikaze al " . funkciuladreso("admin") . ")");
eoecho("<br/>Atentu: Tiu c^i funkcio (amasa sendado da retmesag^oj) ankorau^ ne estas bone testita - Martin ne uzis g^in la lastaj jaroj. -- Pau^lo</p>");
entajpbokso("<p>", savu, $savu, J, J, "Savu ke vi premis/sendis en la partoprendatumoj");
entajpbokso("<BR>", sen, $sen, s, s, "malplenaj folioj</p>");
entajpbutono("<p>", 'kio', $kio, "adres", adres, "elprintu adresaron ");
entajpbokso("(", 'bunta', $bunta, 'JES', 'JES', "buntan,", "kutima");
entajpbokso(" ", 'granda', $granda, 'JES', 'JES', "grandan (por korekti))");
entajpbutono("<p>", 'kio', $kio, "gepatra_permeso", "gepatra_permeso", "elprintu malplenan gepatran permesilon");
entajpbutono("(", 'perm_tipo', $perm_tipo, "ina", "ina", "ina (filino) ");
entajpbutono("|", 'perm_tipo', $perm_tipo, "vira", "vira", "vira (filo) )</p>");
$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})!";
/**
* Kombino de {@link entajpbokso()} kaj {@link entajpejo()}.
*
*<pre>
* [_] teksto [________] postteksto
*</pre>
*
* @param string $boxnomo
* @param string $boxio
* @param string $boxvaloro
* @param string $teksto
* @param string $postteksto
* @param string $ejnomo
* @param string $ejio
* @param int $grandeco longeco de la kampo.
* @param string $manko erareldono, uzata se $boxio == $boxkomparo (= hoko)
* sed $ejio = "" (= nenio entajpita).
* @todo daŭrigi dokumentadon.
* @uses entajpbokso()
* @uses entajpejo()
*/
function entajpboksokajejo($boxnomo, $boxio, $boxkomparo, $boxvaloro, $teksto, $postteksto, $ejnomo, $ejio, $grandeco, $manko)
{
if ($ejio) {
$boxio = "JES";
}
entajpbokso("", $boxnomo, $boxio, $boxkomparo, $boxvaloro);
eoecho($teksto);
entajpejo("", $ejnomo, $ejio, $grandeco, "", "", $postteksto);
if ($boxio == $boxkomparo and $ejio == "") {
erareldono($manko);
}
}
entajpbutono("<td>", konf1a, $konf1a, '<>', '<>', jes);
entajpbutono("<td>", konf1a, $konf1a, '=', '=', ne);
entajpbutono("<td>", konf1a, $konf1a, a, ambaux, "egalas", "kutima");
echo "<tr><td><b>2akonfirmilo sendata:</b>";
entajpbutono("<td>", konf2a, $konf2a, '<>', '<>', jes);
entajpbutono("<td>", konf2a, $konf2a, '=', '=', ne);
entajpbutono("<td>", konf2a, $konf2a, a, ambaux, "egalas", "kutima");
echo "<tr><td><b>kontribuoj:</b>";
entajpbokso("<td>", tema, $tema, J, J, "teme");
entajpbokso("<td>", distra, $distra, J, J, "distre");
entajpbokso("<td>", vespera, $vespera, J, J, "vespere");
if (KAMPOELEKTO_IJK) {
entajpbokso("<td>", 'helpo', $helpo, 'J', 'J', "helpo");
entajpbokso("<td>", 'lingva_festivalo', $lingva_festivalo, 'J', 'J', "lingva festivalo");
} else {
entajpbokso("<td>", muzika, $muzika, J, J, "muzike");
}
echo "</table>";
eoecho("<BR><b>Montri kiel:</b><BR>");
?>
<input type="radio" name="csv" value="0" checked> tabulo<br>
<input type="radio" name="csv" value="1"> csv<br>
<input type="radio" name="csv" value="2"> csv por preni
<?php
eoecho("<BR>");
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");
}
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");
entajpbokso("<BR>", "dulita", $dulita[0], "J", "JES", " dulitan c^ambron");
entajpbokso("<BR>", "studento", $studento[0], "J", "JES", " estas studento/senlaborulo");
entajpbutono("<BR>GEJ-membro: ", GEJmembro, $GEJmembro[0], "J", JES, jes, kutima);
entajpbutono("", GEJmembro, $GEJmembro[0], "N", NE, "ne<BR>");
entajpbutono("", domotipo, $domotipo[0], "J", JunularGastejo, " dormas en la seminariejo<BR>", kutima);
entajpbutono("", domotipo, $domotipo[0], "M", MemZorganto, " memzorganto en amaslog^ejo<BR><BR>");
send_butono("Faru!");
echo "</form></div>";
HtmlFino();
if ($linio['sendanto_nomo']) {
$sendantolisto[] = $linio['sendanto_nomo'];
}
$sendantolisto = array_combine($sendantolisto, $sendantolisto);
$adresolisto = array_combine($adresolisto, $adresolisto);
echo "<table>";
tabela_kasxilo("ppanto-ID", 'ID', $_SESSION['partoprenanto']->datoj['ID']);
tabela_elektilo("Sendanto-nomo", 'de_nomo', $sendantolisto);
tabela_elektilo("Sendanto-adreso", "de_adreso", $adresolisto);
tabela_kasxilo("Al-Nomo", 'alkiu', $alkiu);
tabela_kasxilo("Al-Retadreso", 'retposxto', $_SESSION['partoprenanto']->datoj['retposxto']);
tabelentajpejo("Temo", 'temo', $temo, 57);
granda_tabelentajpejo("Enhavo", 'teksto', $teksto, 57, 20);
echo "</table>";
echo "<p>";
entajpbokso("", "prilaborata", "", "j", "j", "prilaborita<BR>", '', 'ne');
// tenukasxe("elektata", $elektata);
butono("not+send", "Notu kaj sendu!");
butono("sendu", "Nur sendu!");
butono("notu", "Nur notu!");
ligu("partrezultoj.php", "Reen");
echo "</p>";
echo "</form>";
break;
case 'sendu':
sendu_gxin();
montru_gxin();
break;
case 'notu':
faru_noton_el_gxi();
montru_gxin();
entajpbutono("<td>", 'konf1a', $konf1a, '<>', '<>', 'jes');
entajpbutono("<td>", 'konf1a', $konf1a, '=', '=', 'ne');
entajpbutono("<td>", 'konf1a', $konf1a, 'a', 'ambaux', "egalas", "kutima");
echo "<tr><td><b>2akonfirmilo sendata:</b>";
entajpbutono("<td>", 'konf2a', $konf2a, '<>', '<>', 'jes');
entajpbutono("<td>", 'konf2a', $konf2a, '=', '=', 'ne');
entajpbutono("<td>", 'konf2a', $konf2a, 'a', 'ambaux', "egalas", "kutima");
echo "<tr><td><b>kontribuoj:</b>";
entajpbokso("<td>", 'tema', $tema, 'J', 'J', "teme");
entajpbokso("<td>", 'distra', $distra, 'J', 'J', "distre");
entajpbokso("<td>", 'vespera', $vespera, 'J', 'J', "vespere");
if (KAMPOELEKTO_IJK) {
entajpbokso("<td>", 'helpo', $helpo, 'J', 'J', "helpo");
entajpbokso("<td>", 'lingva_festivalo', $lingva_festivalo, 'J', 'J', "lingva festivalo");
} else {
entajpbokso("<td>", 'muzika', $muzika, 'J', 'J', "muzike");
}
echo "</table>";
eoecho("<BR><b>Montri kiel:</b><BR>");
?>
<input type="radio" name="csv" value="0" checked> tabulo<br>
<input type="radio" name="csv" value="1"> csv<br>
<input type="radio" name="csv" value="2"> csv por preni
<?php
eoecho("<BR>");
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");
$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");
// TODO: rajtoj?
echo "<p>Redaktu la landokategoriojn en sistemo: ";
/**
* 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";
}
erareldono("La malalig^dato estas antau^ la alig^dato.");
}
echo "<BR>";
if (rajtas("administri")) {
entajpejo("<br> 1a konfirmilo sendata:", '1akonfirmilosendata', $_SESSION["partopreno"]->datoj['1akonfirmilosendata'], 11, "", "", " (jaro-monato-tago)");
entajpejo("<br> 2a konfirmilo sendata:", '2akonfirmilosendata', $_SESSION["partopreno"]->datoj['2akonfirmilosendata'], 11, "", "", " (jaro-monato-tago)");
}
if ($_SESSION["partopreno"]->datoj[ID]) {
echo "partopreno-ID: " . $_SESSION["partopreno"]->datoj[ID] . " <BR>\n";
}
// muss noch ge䮤ert werden
echo "<p align=center>\n";
entajpbokso("", "nekontrolup", $nekontrolup, "JES", "JES", "Se vi maldeziras datkontroladon pro problemojn, marku c^i tie.<BR>");
echo "<hr/><p><b>Por A- kaj B-Landanoj: </b>\n";
eoecho("Precipe mi konscias, ke mia alig^o validas nur ekde la " . "alveno de mia antau^pago c^e GEJ.</p>");
entajpbokso("", "konsento", $konsento[0], "J", "JES", "Mi legis kaj agnoskas la suprajn kondic^ojn.<br/>", "J");
if ($_SESSION["ago"] == "sxangxi") {
if ($_SESSION['sekvontapagxo']) {
ligu($_SESSION['sekvontapagxo'], "ne s^ang^u kaj pluen");
} else {
ligu("partrezultoj.php?partoprenantoidento=" . $_SESSION["partoprenanto"]->datoj[ID] . "&partoprenidento=" . $_SESSION["partopreno"]->datoj[ID], "ne s^ang^u kaj reen");
}
tenukasxe("ago", $_SESSION["ago"]);
//sqlago=forgesu&
send_butono("S^ang^u!");
} else {
send_butono("Aligu!");
}
echo "</p>";
echo "</TD><TD width=20%></TD></TR></TABLE>\n";
echo "</form>\n";
echo "<hr/>";
entajpejo("Telefono:", telefono, $_SESSION["partoprenanto"]->datoj[telefono], 30, "", "", "(internacie)");
entajpejo("Retpos^to:", retposxto, $_SESSION["partoprenanto"]->datoj[retposxto], 40);
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!");
}
/**
* Montras la aktualan staton de cxambro.
* $grandeco: - se ne donita aux "malgranda", montras nur
* - se "granda", ...
* verda se estas tauxga
* rugxa se ne tauxgas (pro sekso)
*/
function montru_cxambron($cxambro, $renkontigxo, $partoprenanto, $partopreno, $grandeco = "malgranda")
{
$cxam_sql = datumbazdemando(array("litonombro", "nomo", "tipo", "etagxo", "dulita", "rimarkoj"), "cxambroj", "ID = '{$cxambro}'");
$cxam_rezulto = sql_faru($cxam_sql);
$row = mysql_fetch_array($cxam_rezulto, MYSQL_BOTH);
if (tauxgas($partopreno->datoj[cxambrotipo], $partoprenanto->datoj[sekso], $row[tipo])) {
$koloro = "green";
} else {
if ($row[tipo] == '') {
$koloro = "black";
} else {
$koloro = "red";
}
}
if ($grandeco == "granda") {
ligu("cxambroj.php?etagxo=" . $row[etagxo], "Etag^o " . $row[etagxo]);
echo " |";
}
ligu("cxambroj.php?cxambronombro={$cxambro}", "C^ambro: {$row['nomo']}");
echo "<font color={$koloro}><strong>";
if ($row[tipo] == "v") {
echo " (vira)";
} else {
if ($row[tipo] == "i") {
echo " (ina)";
} else {
if ($row[tipo] == "g") {
echo " (gea)";
} else {
echo " (nedifinita)";
}
}
}
echo "</strong></font>\n";
rajtligu("kreu_cxambron.php?id={$cxambro}", $grandeco == 'granda' ? "redaktu bazajn informojn" : "red.", "", "teknikumi", "ne");
if ($grandeco == "granda") {
//sxangxi la cxambrotipon
echo "<form action='cxambroj.php?cxambronombro={$cxambro}' method='post'>";
entajpbutono("(", "tipo", $row[tipo], "g", "g", 'gea');
entajpbutono("", "tipo", $row[tipo], "v", "v", 'vira');
entajpbutono("", "tipo", $row[tipo], "i", "i", 'ina)');
entajpbokso("[", dulita, $row[dulita], J, J, "dulita c^ambro]");
entajpejo("<BR>Rimarkoj:", "rimarkoj", $row[rimarkoj], 20);
send_butono("Ek!");
echo "</form>";
}
$renkontigxdauxro = kalkulu_tagojn($renkontigxo->datoj[de], $renkontigxo->datoj[gxis]);
$partoprentagoj = kalkulu_tagojn($partopreno->datoj[de], $partopreno->datoj[gxis]);
if ($partoprenanto->datoj[ID] and $grandeco == "granda") {
echo "<form ACTION='cxambroj.php?cxambronombro={$cxambro}' METHOD='POST'>\n";
}
echo "<Table border><TR><TD>Nokto: ";
if ($grandeco == "granda") {
$manko = eltrovu_litojn($partopreno->datoj[ID]);
$ar = JMTdisigo($renkontigxo->datoj[de]);
$tago = $ar[tago];
for ($noktoj = 1; $noktoj <= $renkontigxdauxro; $noktoj++) {
$ar = JMTdisigo(sekvandaton($renkontigxo->datoj[de], $noktoj));
$sektago = $ar[tago];
echo "<TD align=\"center\"> {$tago} / {$sektago}";
$tago = $sektago;
}
echo "<TD><TD align=\"center\">tuta tempo";
} else {
for ($noktoj = 1; $noktoj <= $renkontigxdauxro; $noktoj++) {
echo "<TD>{$noktoj}</noktoj>";
}
}
for ($litoj = 1; $litoj <= $row[litonombro]; $litoj++) {
echo "<TR valign = center>\n<TD nowrap>Lito: " . $litoj;
$uzata = false;
for ($noktoj = 1; $noktoj <= $renkontigxdauxro; $noktoj++) {
$r = cxambro_uzata($cxambro, $noktoj, $litoj);
$diferenco = $r[nokto_gxis] - $noktoj;
echo "<TD align = center ";
if ($diferenco > 0) {
$noktoj += $diferenco++;
//TODO:? hehe [respondo de Martin:] Das ist einfach nur eine geniale Funktion.
echo "colspan = {$diferenco} ";
}
if ($r[rezervtipo] == "d") {
echo " bgcolor=green> ";
$uzata = true;
} else {
if ($r[rezervtipo] == "r") {
echo " bgcolor=yellow> ";
$uzata = true;
} else {
if ($partoprenanto and $grandeco == "granda" and sekvandaton($renkontigxo->datoj[de], $noktoj - 1) >= $partopreno->datoj[de] and sekvandaton($renkontigxo->datoj[de], $noktoj) <= $partopreno->datoj[gxis] and $manko[$noktoj] != "1") {
echo "";
entajpbokso(">", "nokto[{$noktoj}]", "falseoderso", "", "{$litoj}", "", "", "ne");
} else {
echo " bgcolor=white>--";
}
}
}
echo "<A href = \"partrezultoj.php?partoprenidento={$r['3']}&partoprenantoidento={$r['0']}\" onClick=\"doSelect({$r['0']});\">";
if (($grandeco == "granda" or $diferenco > 3) and $r[partoprenantoID]) {
$loka_partoprenanto = new Partoprenanto($r[partoprenantoID]);
$teksto = $loka_partoprenanto->datoj[personanomo] . " " . $loka_partoprenanto->datoj[nomo] . " (" . eltrovu_landon($loka_partoprenanto->datoj[lando]) . " / " . $loka_partoprenanto->datoj[sekso] . "/" . $loka_partopreno->datoj[agxo] . ")";
if ($grandeco == "granda") {
eoecho($teksto . "<BR> ");
} else {
eoecho($teksto);
}
//eoecho (/*substr*/($teksto,0,$diferenco*3));
}
if ($diferenco > 3 and !$r[partoprenantoID] or $grandeco == "granda") {
switch ($r[rezervtipo]) {
case "d":
echo "disdonita";
break;
case "r":
echo "rezervita";
break;
}
} else {
if ($diferenco < 4) {
echo $r[rezervtipo];
}
}
echo "</A>";
}
if ($partoprenanto and $grandeco == "granda") {
echo "<TD> <TD align=center>";
if ($uzata == false and $partoprentagoj == $renkontigxdauxro and $manko[sumo] == 0) {
entajpbokso("", "tute", "falseoderso", "", "{$litoj}", "", "", "ne");
}
}
}
echo "</Table>";
if ($partoprenanto->datoj[ID] and $grandeco == "granda") {
echo "<select name=\"tipo\" size=1>\n";
echo "<option selected>rezervi\n";
echo "<option>disdoni\n";
echo "</select><BR>\n";
send_butono("Faru!");
echo "</FORM>";
}
if ($grandeco != "granda") {
eoecho($row[rimarkoj]);
}
}
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";
}
if (kalkulu_tagojn($_SESSION["partopreno"]->datoj["aligxdato"], $_SESSION["partopreno"]->datoj["malaligxdato"]) < 0) {
erareldono("La malalig^dato estas antau^ la alig^dato.");
}
echo "<BR>";
if (rajtas("administri")) {
entajpejo("<br> 1a konfirmilo sendata:", '1akonfirmilosendata', $_SESSION["partopreno"]->datoj['1akonfirmilosendata'], 11, "", "", " (jaro-monato-tago)");
entajpejo("<br> 2a konfirmilo sendata:", '2akonfirmilosendata', $_SESSION["partopreno"]->datoj['2akonfirmilosendata'], 11, "", "", " (jaro-monato-tago)");
}
if ($_SESSION["partopreno"]->datoj['ID']) {
echo "partopreno-ID: " . $_SESSION["partopreno"]->datoj['ID'] . " <BR>\n";
}
echo "<p align=center>\n";
entajpbokso("", "nekontrolup", valoro($_REQUEST['nekontrolup']), "JES", "JES", "Se vi maldeziras datkontroladon pro problemojn, marku c^i tie.<BR>");
echo "<hr/><p><b>Por A- kaj B-Landanoj: </b>\n";
eoecho("Precipe mi konscias, ke mia alig^o validas nur ekde la " . "alveno de mia antau^pago c^e GEJ.</p>");
entajpbokso("", "konsento", valoro($_REQUEST['konsento']), "J", "J", "Mi legis kaj agnoskas la suprajn kondic^ojn.<br/>", "J");
if ($_SESSION["ago"] == "sxangxi") {
if ($_SESSION['sekvontapagxo']) {
ligu($_SESSION['sekvontapagxo'], "ne s^ang^u kaj pluen");
} else {
ligu("partrezultoj.php?partoprenantoidento=" . $_SESSION["partoprenanto"]->datoj['ID'] . "&partoprenidento=" . $_SESSION["partopreno"]->datoj['ID'], "ne s^ang^u kaj reen");
}
tenukasxe("ago", $_SESSION["ago"]);
//sqlago=forgesu&
send_butono("S^ang^u!");
} else {
send_butono("Aligu!");
}
echo "</p>";
echo "</TD><TD width=20%></TD></TR></TABLE>\n";
echo "</form>\n";
entajpejo("Retpos^ta adreso:", "retposxtadreso", $linio['retposxtadreso'], 20);
entajpejo("Retpos^tsenda nomo:", "sendanto_nomo", $linio['sendanto_nomo'], 30);
entajpbokso("", "pasvortsxangxo", "", "jes", "jes");
entajpejo("Nova pasvorto: ", "kodvorto", "", 20, "", "", "", "j");
// entajpboksokajejo("pasvortsxangxo", "", "jes", "jes",
// "Nova pasvorto: ", '', 'kodvorto', '', 20, 'Mankas pasvorto.');
// echo("<br/>\n");
entajpejo("Partoprenanto-ID: ", "partoprenanto_id", $linio['partoprenanto_id'], 6);
eoecho("</p>\n<p>Li/s^i havu la rajton ...");
foreach ($rajtolisto as $rajto => $alias) {
echo "<br/>\n";
entajpbokso("", $rajto, $linio[$rajto], 'J', 'J', $alias);
}
echo "<br/>\n";
eoecho(" ... 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");
if ($redaktu != "nova") {
ligu("entajpantoj.php?forigu={$redaktu}", "Forigu tiun c^i entajpanton!");
}
echo "</p>";
echo "</form>\n";
HtmlFino();
return;
}
// montru tabelon de cxiuj entajpantoj
$sql = datumbazdemando(array_merge(array("ID", "nomo", "retposxtadreso", "partoprenanto_id", 'sendanto_nomo'), array_keys($rajtolisto)), "entajpantoj");
$kruco = array('J' => "<strong>X</strong>", 'N' => " _ ");
$anstatauxoj = array_fill(4, 13, $kruco);
/**
* Montras la aktualan staton de ĉambro.
* $grandeco: - se ne donita aŭ "malgranda", montras nur
* - se "granda", ...
* verda se estas taŭga
* ruĝa se ne taŭgas (pro sekso)
*
* @todo transformu en pli bone uzeblan funkcio(j)n
*/
function montru_cxambron($cxambroID, $renkontigxo, $partoprenanto, $partopreno, $grandeco = "malgranda", $reenligo = "")
{
$cxambro = new Cxambro($cxambroID);
$row = $cxambro->datoj;
if ($grandeco == "granda") {
ligu("cxambroj.php?etagxo=" . $row['etagxo'], "Etag^o " . $row['etagxo']);
echo " |";
}
ligu("cxambro-detaloj.php?cxambronumero=" . $cxambroID, "C^ambro: " . $row['nomo']);
montru_cxambrosekson($row['tipo'], $partopreno, $partoprenanto);
rajtligu("kreu_cxambron.php?id={$cxambroID}", $grandeco == 'granda' ? "redaktu bazajn informojn" : "red.", "", "teknikumi", "ne");
if ($grandeco == "granda") {
//formularo por sxangxi la cxambrotipon
formularo_por_bazaj_cxambroinformoj($cxambro);
}
$renkontigxdauxro = $renkontigxo->renkontigxonoktoj();
$partoprentagoj = is_object($partopreno) ? $partopreno->partoprennoktoj() : 0;
echo "<form action='cxambroago.php' method='POST'>\n";
tenukasxe("cxambronumero", $cxambroID);
if (!$reenligo) {
if ($_SERVER['REQUEST_METHOD'] == "GET") {
$reenligo = $_SERVER['PHP_SELF'];
if ($_SERVER['QUERY_STRING']) {
$reenligo .= "?" . $_SERVER['QUERY_STRING'];
}
}
}
if ($reenligo) {
tenukasxe("reiru", $reenligo);
}
echo "<table class='cxambrolisto-{$grandeco}'><tr><th>Nokto:</th>";
if ($grandeco == "granda") {
$manko = eltrovu_litojn($partopreno->datoj['ID']);
$ar = JMTdisigo($renkontigxo->datoj['de']);
$tago = $ar['tago'];
$estis_elektebleco = false;
// cxu estis ebla elekti liton por nokto?
for ($noktoj = 1; $noktoj <= $renkontigxdauxro; $noktoj++) {
$ar = JMTdisigo(sekvandaton($renkontigxo->datoj['de'], $noktoj));
$sektago = $ar['tago'];
echo "<th align='center'> {$tago} / {$sektago} </th>";
$tago = $sektago;
}
if ($partoprenanto) {
// ebleco mendi tutan tempon
echo "<td/><th>tuta tempo</th>";
}
echo "</th>";
} else {
// simpla noktolisto
for ($noktoj = 1; $noktoj <= $renkontigxdauxro; $noktoj++) {
echo "<th>{$noktoj}</th>";
}
}
echo "</tr>";
for ($litoj = 1; $litoj <= $row['litonombro']; $litoj++) {
echo "<tr >\n<th class='litonomo'>Lito: " . $litoj . "</th>";
$uzata = false;
for ($noktoj = 1; $noktoj <= $renkontigxdauxro; $noktoj++) {
// detaloj pri la rezervado
$r = cxambro_uzata($cxambroID, $noktoj, $litoj);
if ($r) {
$uzata = true;
$noktoj += metu_partoprenant_litan_keston($r, $noktoj, $partopreno->datoj['ID'], $grandeco);
} else {
if ($partoprenanto and $grandeco == "granda" and sekvandaton($renkontigxo->datoj['de'], $noktoj - 1) >= $partopreno->datoj['de'] and sekvandaton($renkontigxo->datoj['de'], $noktoj) <= $partopreno->datoj['gxis'] and $manko[$noktoj] != "1") {
// ebligu mendi tiun liton por tiu nokto
echo "<td class='elektebla'>";
entajpbokso("", "nokto[{$noktoj}]", "falseoderso", "", "{$litoj}", "", "", "ne");
echo "</td>";
$estis_elektebleco = true;
} else {
echo "<td class='malplena'>--</td>";
}
}
// else
}
// for (noktoj)
if ($partoprenanto and $grandeco == "granda") {
// mendi cxiujn noktojn?
echo "<td> </td><td class='elektebla'>";
if ($uzata == false and $partoprentagoj == $renkontigxdauxro and $manko['sumo'] == 0) {
entajpbokso("", "tute", "falseoderso", "", "{$litoj}", "", "", "ne");
}
echo "</td>";
}
echo "</tr>";
}
// for (litoj)
echo "</table>";
if ($partoprenanto->datoj['ID'] and $grandeco == "granda") {
if ($estis_elektebleco) {
// butono por rezervi
butono('rezervu', "Rezervu elektitajn litojn");
// butono por disdoni - TODO: aux cxu nur surloke?
butono('disdonu', "Disdonu elektitajn litojn");
}
// echo "<select name='tipo' size='1'>\n";
// echo "<option selected>rezervi\n";
// echo "<option>disdoni\n";
// echo "</select><BR>\n";
// send_butono("Faru!");
}
echo "</form>";
if ($grandeco != "granda") {
eoecho($row[rimarkoj]);
}
}
