function forigu_vere()
{
$forigu = $_REQUEST['forigu'];
forigu_el_datumbazo("entajpantoj", $forigu);
// ni forgesas pri cxiu ajn noto, ke gxi estis por tiu cxi entajpanto.
forigu_el_datumbazo("notoj_por_entajpantoj", array("entajpantoID" => $forigu));
eoecho("<p>Vi j^us forigis la entajpanton #" . $forigu . ".</p>");
}
/**
* @param Partopreno partopreno pp-objekto.
* @param array $mangxmendo $_POST['mangxmendo']
* @todo: atentu, kiam iu malplilongigas sian partoprentempon.
*/
function traktu_mangxomendojn($partopreno, $mangxmendo)
{
$mangxolisto = listu_eblajn_mangxojn($partopreno);
foreach ($mangxolisto as $mangxoID) {
$antauxe_mendis = cxuMangxas($partopreno->datoj['ID'], $mangxoID);
$nun_mendas = jesne_al_boolean($mangxmendo[$mangxoID]);
if ($antauxe_mendis and !$nun_mendas) {
forigu_el_datumbazo('mangxmendoj', array('partoprenoID' => $partopreno->datoj['ID'], 'mangxtempoID' => $mangxoID));
} else {
if ($nun_mendas and !$antauxe_mendis) {
aldonu_al_datumbazo('mangxmendoj', array('partoprenoID' => $partopreno->datoj['ID'], 'mangxtempoID' => $mangxoID));
}
}
}
}
/**
* @param array $noto_por listo de la formo id => JES/NE.
*/
function sxangxu_entajpantojn_por_noto($noto_por)
{
$jam_estas = $this->listu_entajpantojn_por_noto();
foreach ($noto_por as $id => $estu) {
$estas = in_array($id, $jam_estas);
echo "<!-- id: " . $id . ", estu: " . $estu . ", estas: " . $jam_estas . "\n -->";
if ($estu == 'JES' and !$estas) {
// aldonu, la noto nun estas (ankaŭ) por li
aldonu_al_datumbazo('notoj_por_entajpantoj', array('notoID' => $this->datoj['ID'], 'entajpantoID' => $id));
} else {
if ($estu == 'NE' and $estas) {
// forigu, la noto ne plu estas por li
forigu_el_datumbazo('notoj_por_entajpantoj', array('notoID' => $this->datoj['ID'], 'entajpantoID' => $id));
} else {
// jam estas en ordo, nenio farenda.
}
}
}
}
/**
* Forigas linion el datumbaztabelo.
*
* @param string $tabelnomo la (abstrakta) nomo de la tabelo
* @param string $session_nomo la nomo de la session-variablo,
* kies identigilo estas la identigilo
* de la forigenda linio.
*/
function forigu_laux_sesio($tabelnomo, $session_nomo)
{
forigu_el_datumbazo($tabelnomo, $_SESSION[$session_nomo]->datoj["ID"]);
}
function foriguSercxon($id)
{
// if (!rajtas(
$sql = datumbazdemando("entajpanto", "sercxoj", "ID = '{$id}'");
$rez = sql_faru($sql);
if (!($linio = mysql_fetch_assoc($rez))) {
eoecho("<p>ne ekzistas serc^o kun ID = '{$id}'</p>");
return;
}
if ($linio['entajpanto'] != $_SESSION['kkren']['entajpanto']) {
eoecho("<p>Vi rajtas forigi nur viajn proprajn serc^ojn, " . "ne tiujn de alia entajpanto.</p>");
return;
}
forigu_el_datumbazo("sercxoj", $id);
}
HtmlKapo();
// echo "<!--\n";
// var_export($rajtolisto);
// echo "-->\n";
if (isset($_REQUEST['forigu'])) {
eoecho("<h1>Forigo de lando</h1>\n");
$sql = datumbazdemando('*', 'landoj', "ID = '{$forigu}'");
$rez = sql_faru($sql);
$linio = mysql_fetch_assoc($rez);
echo "<table>\n";
eoecho("<tr><th>ID</th><td>{$linio['ID']}</td></tr>\n");
eoecho("<tr><th>Nomo</th><td>{$linio['nomo']}</td></tr>\n");
eoecho("<tr><th>Kodo</th><td>{$linio['kodo']}</td></tr>\n");
eoecho("</table>\n");
if ($_POST['vere'] == 'jes') {
forigu_el_datumbazo("landoj", $_REQUEST['forigu']);
eoecho("<p>Vi j^us forigis la landon #" . $_REQUEST['forigu'] . ".</p>");
// ligu("landoj.php", "Reen al la listo");
} else {
$sql = datumbazdemando(array('ID', 'nomo', 'personanomo'), 'partoprenantoj', "lando = '{$forigu}'");
$rez = sql_faru($sql);
$num = mysql_num_rows($rez);
if ($num > 0) {
eoecho("<p>Estas ankorau^ " . $num . " partoprenantoj el tiu lando. Bonvolu unue forigu ilin au^ s^ang^u ilian landanecon, se vi vere volas forigi la supre menciitan landon.</p>");
eoecho("<table>");
while ($linio = mysql_fetch_assoc($rez)) {
echo "<tr><td><a href='partrezultoj.php?partoprenantoidento=" . $linio['ID'] . "'>--></a></td><td>";
eoecho($linio['personanomo'] . "</td><td>" . $linio['nomo'] . "</td></tr>\n");
}
eoecho("</table>");
echo "<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);
eoecho("<p>Vi s^ovis c^iujn partoprenojn de {$de} al ");
ligu("partrezultoj.php?partoprenantoidento={$al}", "#" . $al);
eoecho(", kaj tuj forigis {$de}.</p>");
} else {
eoecho("<p>Vi s^ovis c^iujn partoprenojn de ");
ligu("partrezultoj.php?partoprenantoidento={$de}", "#" . $de);
eoecho(" al ");
ligu("partrezultoj.php?partoprenantoidento={$al}", "#" . $al);
eoecho(".</p>");
}
HtmlFino();
exit;
}
$p_anto = $_SESSION["partoprenanto"];
$priskribo = $p_anto->datoj["personanomo"] . " " . $p_anto->datoj["nomo"] . " (#" . $p_anto->datoj["ID"] . ")";
} else {
if ($_REQUEST['kion'] == 'nenion') {
break;
} else {
if (is_numeric($_REQUEST['kion'])) {
// forigu unuopan partoprenon
$ppeno = new Partopreno($_REQUEST['kion']);
if ($ppeno->datoj['partoprenantoID'] != $_REQUEST['panto']) {
eoecho("<h2>Eraro!</h2>\n");
eoecho("<p>La partopreno #" . $ppeno->datoj['ID'] . " ne apartenas al la partoprenanto #" . $_REQUEST['panto'] . ", sed al #" . $ppeno->datoj['partoprenantoID'] . "!</p>\n");
HtmlFino();
exit;
}
$ppeno->montru_aligxo("sen bla");
eoecho("<p>Forigo de Partopreno #" . $ppeno->datoj['ID'] . "...</p>");
forigu_el_datumbazo("partoprenoj", $ppeno->datoj['ID']);
eoecho("<p>Finita.</p>");
ligu("partrezultoj.php?partoprenantoidento=" . $ppeno->datoj['partoprenantoID'], "Reen");
HtmlFino();
exit;
}
}
}
break;
default:
// faru nenion.
}
sesio_aktualigu_laux_get();
$panto = $_SESSION['partoprenanto'];
$panto->montru_aligxinto("sen bla");
eoecho("<p>Kion vi volas forigi?</p>");
/*
* Administrado de la landoj.
*
*/
//define("DEBUG", TRUE);
require_once "iloj/iloj.php";
session_start();
malfermu_datumaro();
kontrolu_rajton("administri");
HtmlKapo();
// echo "<!--\n";
// var_export($rajtolisto);
// echo "-->\n";
if ($forigu) {
if ($vere == 'jes') {
forigu_el_datumbazo("landoj", $forigu);
eoecho("<p>Vi j^us forigis la landon #" . $forigu . ".</p>");
} else {
eoecho("<h1>Forigo de lando</h1>\n");
$sql = datumbazdemando('*', 'landoj', "ID = '{$forigu}'");
$rez = sql_faru($sql);
$linio = mysql_fetch_assoc($rez);
echo "<table>\n";
eoecho("<tr><th>ID</th><td>{$linio['ID']}</td></tr>\n");
eoecho("<tr><th>Nomo</th><td>{$linio['nomo']}</td></tr>\n");
eoecho("<tr><th>Loka nomo</th><td>{$linio['lokanomo']}</td></tr>\n");
eoecho("<tr><th>Kategorio</th><td>{$linio['kategorio']}</td></tr>\n");
eoecho("</table>\n");
$sql = datumbazdemando(array('ID', 'nomo', 'personanomo'), 'partoprenantoj', "lando = '{$forigu}'");
$rez = sql_faru($sql);
$num = mysql_num_rows($rez);
if ($_REQUEST['sp']) {
$_SESSION['sekvontapagxo'] = $_REQUEST['sp'];
}
sesio_aktualigu_laux_get();
// TODO:? Cxambrotipo nochmal überarbeiten
// [respondo de Martin:] Früher gab es 'u', 'g' und 'n'. Das 'n' für negravas wurde irgendwann rausgenommen. Das wollte ich nochmal überdenken und ggf. anpassen.
if ($_POST['sendu'] == 'forgesu_liton') {
// forigo de lito-partopreno-konekto (nur per POST)
forigu_el_datumbazo('litonoktoj', $_REQUEST['forgesendalito']);
if ($_SESSION['sekvontapagxo']) {
http_redirect($_SESSION['sekvontapagxo'], null, false, 303);
exit;
}
}
if ($_POST['forgesu_liton']) {
forigu_el_datumbazo('litonoktoj', $_POST['forgesu_liton']);
if ($_SESSION['sekvontapagxo']) {
http_redirect($_SESSION['sekvontapagxo'], null, false, 303);
exit;
}
}
if ($_POST['disdonu_rezervitan_liton']) {
sxangxu_datumbazon('litonoktoj', array('rezervtipo' => 'd'), array("ID" => $_POST['disdonu_rezervitan_liton']));
}
// estis: "Faru!"
if ($_POST['sendu'] == "rezervu" or $_POST['sendu'] == 'disdonu') {
$renkontigxodauxro = $_SESSION['renkontigxo']->renkontigxonoktoj();
debug_echo("<!-- rezervu/disdonu liton -->");
// rezervu aux disdonu cxambron por iu persono,
// kiu ne antauxe rezervis gxin.
// kontrolparto
* kaj (se oni denove klakas cxe senpartoprena
* partoprenanto) poste la partoprenanton mem.
*/
require_once 'iloj/iloj.php';
session_start();
malfermu_datumaro();
kontrolu_rajton("vidi");
HtmlKapo();
//kunigu kun la kunlogxanto (vokita el sercxrezultoj.php,
// la kunlogxanto-sercxo).
if ($kune and $partoprenidento) {
sxangxu_datumbazon("partoprenoj", array("kunkiuID" => $kune), array("ID" => $partoprenidento));
}
if ($forgesendalito) {
kontrolu_rajton("cxambrumi");
forigu_el_datumbazo("litonoktoj", $forgesendalito);
}
if ($_REQUEST['partoprenantoidento']) {
$_SESSION["partoprenanto"] = new Partoprenanto($partoprenantoidento);
unset($_SESSION["partopreno"]);
}
if ($_REQUEST['partoprenidento']) {
$_SESSION["partopreno"] = new Partopreno($partoprenidento);
if ($_SESSION['partopreno']->datoj['partoprenantoID'] != $_SESSION['partoprenanto']->datoj['ID']) {
$_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).
/**
* forigas tiun ĉi objekton el la datumbazo.
*
* La objekto poste pluekzistas kiel eksterdatumbaza
* objekto (sen identigilo), kaj oni povas ĝin poste denove
* aldoni.
*
* Se la objekto ne estas en la datumbazo, nenio okazas.
* (Tio ankaŭ estas la kazo por sen-identigilaj objektoj.)
*/
function malaperu_el_datumbazo()
{
if ($this->datoj['ID']) {
forigu_el_datumbazo($this->tabelnomo, $this->datoj['ID']);
$this->datoj['ID'] = 0;
}
}
function forigu_konfiguron($id)
{
forigu_el_datumbazo('renkontigxaj_konfiguroj', $id);
}
HtmlKapo();
$tmplisto = array("aligi", "vidi", "sxangxi" => "s^ang^i", "cxambrumi" => "c^ambrumi", "ekzporti" => "eksporti", "statistikumi", "mono" => "entajpi monon", "estingi", "retumi", "rabati", "inviti", "administri", "akcepti", "teknikumi");
foreach ($tmplisto as $de => $al) {
if (is_int($de)) {
$rajtolisto[$al] = $al;
} else {
$rajtolisto[$de] = $al;
}
}
unset($tmplisto);
// echo "<!--\n";
// var_export($rajtolisto);
// echo "-->\n";
if ($forigu) {
if ($vere) {
forigu_el_datumbazo("entajpantoj", $forigu);
eoecho("<p>Vi j^us forigis la entajpanton #" . $forigu . ".</p>");
} else {
eoecho("<h1>Forigo de entajpanto</h1>\n");
$sql = datumbazdemando('*', 'entajpantoj', "ID = '{$forigu}'");
$rez = sql_faru($sql);
$linio = mysql_fetch_assoc($rez);
echo "<table>\n";
eoecho("<tr><th>ID</th><td>{$linio['ID']}</td></tr>\n");
eoecho("<tr><th>Salutnomo</th><td>{$linio['nomo']}</td></tr>\n");
eoecho("<tr><th>Retadreso</th><td>{$linio['retposxtadreso']}</td>\n");
eoecho("<tr><th>Partoprenanto-ID</th><td>{$linio['partoprenanto_id']}</td>\n");
eoecho("<tr><th>Sendantonomo</th><td>{$linio['sendanto_nomo']}</td>\n");
foreach ($rajtolisto as $rajto => $alias) {
eoecho("<tr><th>{$alias}</th><td>" . ($linio[$rajto] == 'J' ? "[X]" : "[_]") . "</td>\n");
}