/**
* 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!");
}
/**
* montras la seks-tipon de cxambro depende de la bezonoj de
* iu partoprenanto.
* @param string $tipo
* @param Partopreno $partopreno
* @param Partoprenanto $partoprenanto
*/
function montru_cxambrosekson($tipo, $partopreno, $partoprenanto)
{
if ($partopreno and $partoprenanto) {
if (tauxgas($partopreno->datoj['cxambrotipo'], $partoprenanto->datoj['sekso'], $tipo)) {
$koloro = "malaverto";
} else {
if ($tipo == '') {
$koloro = "";
} else {
$koloro = "averto";
}
}
} else {
$koloro = '';
}
echo "<strong class='{$koloro}'>";
switch ($tipo) {
case 'v':
eoecho(" (vira)");
break;
case 'i':
eoecho(" (ina)");
break;
case 'g':
eoecho(" (gea)");
break;
default:
eoecho(" (nedifinita)");
}
echo "</strong>\n";
}
