/**
* Montras por unu deziro A->B la detalojn
* de A kaj B, kaj la statuson.
*/
function montru_kunlogxdezirdetalojn($deziro)
{
$dezirant_eno = new Partopreno($deziro->datoj['partoprenoID']);
$deziranto = new Partoprenanto($dezirant_eno->datoj['partoprenantoID']);
$dezirat_eno = new Partopreno($deziro->datoj['kunKiuID']);
$dezirato = new Partoprenanto($dezirat_eno->datoj['partoprenantoID']);
eoecho("<h2>Kunlog^deziraj detaloj</h2>");
eoecho("<table>\n" . "<tr><th /><th>deziranto</th><th>dezirato</th></tr>\n");
kampoj("ID", array(donu_ligon("partrezultoj.php?partoprenidento=" . $dezirant_eno->datoj['ID'], $dezirant_eno->datoj['ID']), donu_ligon("partrezultoj.php?partoprenidento=" . $dezirat_eno->datoj['ID'], $dezirat_eno->datoj['ID'])));
kampoj("nomo", array($deziranto->tuta_nomo(), $dezirato->tuta_nomo()));
kampoj("domotipo", array($dezirant_eno->domotipo(), $dezirat_eno->domotipo()));
kampoj("ag^o", array($dezirant_eno->datoj['agxo'], $dezirat_eno->datoj['agxo']));
// testas, cxu seksoj kaj deziritaj cxambrotipoj harmonias.
if ($deziranto->sekso != $dezirato->sekso and $dezirant_eno->datoj['cxambrotipo'] == 'u' and $dezirat_eno->datoj['cxambrotipo'] == 'u') {
kampoj("sekso", array($deziranto->sekso => "averto", $dezirato->sekso => "averto"));
kampoj("c^ambrotipo:", array($dezirant_eno->cxambrotipo() => "averto", $dezirat_eno->cxambrotipo() => "averto"));
} else {
if ($deziranto->sekso != $dezirato->sekso and $dezirant_eno->datoj['cxambrotipo'] == 'u') {
kampoj("sekso", array($deziranto->sekso, $dezirato->sekso => "averto"));
kampoj("c^ambrotipo:", array($dezirant_eno->cxambrotipo() => "averto", $dezirat_eno->cxambrotipo()));
} else {
if ($deziranto->sekso != $dezirato->sekso and $dezirat_eno->datoj['cxambrotipo'] == 'u') {
kampoj("sekso", array($deziranto->sekso => "averto", $dezirato->sekso));
kampoj("c^ambrotipo:", array($dezirant_eno->cxambrotipo(), $dezirat_eno->cxambrotipo() => "averto"));
} else {
kampoj("sekso", array($deziranto->sekso, $dezirato->sekso));
kampoj("c^ambrotipo:", array($dezirant_eno->cxambrotipo(), $dezirat_eno->cxambrotipo()));
}
}
}
// se unu volas dulitan cxambron, tiam la alia ankaux volu.
if ($dezirant_eno->datoj['dulita'] != $dezirat_eno->datoj['dulita']) {
kampoj("dulita", array(jes_ne($dezirant_eno->datoj['dulita']) => "averto", jes_ne($dezirat_eno->datoj['dulita']) => "averto"));
} else {
kampoj("dulita c^.?", array(jes_ne($dezirant_eno->datoj['dulita']), jes_ne($dezirat_eno->datoj['dulita'])));
}
eoecho("</table>\n");
$sql = datumbazdemando(array("ID"), "kunlogxdeziroj", array("partoprenoID = '" . $deziro->datoj['kunKiuID'] . "'", "kunKiuID = '" . $deziro->datoj['partoprenoID'] . "'"));
$rez = sql_faru($sql);
if ($linio = mysql_fetch_assoc($rez)) {
$alia_deziro = new Kunlogxdeziro($linio['ID']);
eoecho("<p>Estas ankau^ ");
ligu("kunlogxado.php?kunlogxID=" . $linio['ID'], "kunlog^deziro en la inversa direkto");
eoecho(", kies stato nun estas <em>" . $alia_deziro->stato() . "</em>");
} else {
eoecho("<p>Sed " . $dezirato->tuta_nomo() . " ne indikis, ke " . $dezirato->personapronomo . " volas log^i kun " . $deziranto->tuta_nomo() . ".</p>\n");
}
eoecho("<p>Aktuala stato de la kunlog^deziro: <em>" . $deziro->stato() . "</em>.</p>\n");
echo "<form action='kunlogxado.php' method='POST'>\n";
tenukasxe("kunlogxID", $deziro->datoj['ID']);
butono("forvisxhu", "Forvis^u", "ago");
butono("ne_eblas", "Ne eblas", "ago");
butono("eblas", "Eblas", "ago");
echo "</form>\n";
eoecho("<p>C^iuj kunlog^deziroj de " . $deziranto->tuta_nomo() . ":</p>");
montru_kunlogxdezirojn($dezirant_eno);
}
$_SESSION['partoprenanto'] = new Partoprenanto($_SESSION['partopreno']->datoj['partoprenantoID']);
}
if ($_SESSION['partopreno']) {
switch ($_REQUEST['ago']) {
case 'kunigu':
aldonu_al_datumbazo("kunlogxdeziroj", array("partoprenoID" => $_REQUEST['partoprenoID'], "kunKiuID" => $_REQUEST['kunkiuID'], "stato" => '?'));
eoecho("<p>Aldonis la kunlog^deziron de #" . $_REQUEST['partoprenoID'] . " kun #" . $_REQUEST['kunkiuID'] . " al la datumbazo.");
break;
case 'sercxu':
$ri = $_SESSION['partoprenanto']->personapronomo;
$Ri = ucfirst($ri);
eoecho("<h2>Kunlog^deziroj de " . $_SESSION['partoprenanto']->tuta_nomo() . " (#" . $_SESSION['partopreno']->datoj['ID'] . ")</h2>");
eoecho("<p>{$Ri} volas log^i kun:</p>");
$nemontru = montru_kunlogxdezirojn($_SESSION['partopreno']);
eoecho("<p>La jenaj aliaj personoj volas log^i kun {$ri}:</p>");
montru_kunlogxdezirojn_inversajn($_SESSION['partopreno']);
if ($_SESSION['partopreno']->datoj['kunkiu']) {
eoecho("<p>{$Ri} indikis en la alig^ilo, ke {$ri} volas log^i kun <em>" . $_SESSION['partopreno']->datoj['kunkiu'] . "</em>. Tio povus" . " esti unu el la sekvaj personoj:</p>");
sercxu_eblajn_kunlogxantojn($_SESSION['partopreno'], $_SESSION['partoprenanto']->tuta_nomo(), $nemontru);
} else {
eoecho("<p>{$Ri} ne indikis en {$ri}a alig^ilo iujn kunlog^dezirojn.</p>");
}
// montru_kunlogxdezirojn_ambauxdirekte($_SESSION['partopreno']);
break;
case 'montru':
eoecho("<p>Kunlog^deziroj de " . $_SESSION['partoprenanto']->tuta_nomo() . " (#" . $_SESSION['partopreno']->datoj['ID'] . "):</p>");
montru_kunlogxdezirojn($_SESSION['partopreno']);
break;
}
}
HtmlFino();
