/**
* @param Mangxtempo $mangxtempo
*/
function montru_mangxredaktilon($mangxtempo)
{
echo "<form action='mangxredakto.php' method='POST'>\n<table>";
$linio = $mangxtempo->datoj;
if (!$linio['renkontigxoID']) {
$linio['renkontigxoID'] = $_SESSION['renkontigxo']->datoj['ID'];
}
tabela_kasxilo("ID", 'ID', $linio['ID']);
tabela_kasxilo("renkontig^o-ID", 'renkontigxoID', $linio['renkontigxoID']);
// TODO: pli bona dato-entajpilo (ekzemple simile al komenco-/findatoj)
tabelentajpejo("Dato", 'dato', $linio['dato'], 20);
// echo( "<!-- mangxotipoj: " . var_export($GLOBALS['mangxotipoj'], true) . "-->");
if ($linio['mangxotipo']) {
$tipoj = $GLOBALS['mangxotipoj'];
} else {
$tipoj = array_merge(array('-' => ""), $GLOBALS['mangxotipoj']);
}
// echo( "<!-- tipoj: " . var_export($tipoj, true) . "-->");
tabela_elektilo("mang^otipo", 'mangxotipo', $tipoj, $linio['mangxotipo']);
// tabelentajpejo("Prezo", 'prezo', $linio['prezo'], 10);
tabelentajpejo("Komento", 'komento', $linio['komento'], 20);
echo "</table>\n<p>\n";
if ($linio['ID']) {
butono("sxangxu", "S^ang^u");
butono("kreu", "Kreu novan");
} else {
butono("kreu", "Kreu");
}
ligu("mangxredakto.php", "Reen al la listo");
// butono + reen
echo "</p>\n</form>\n";
}
/**
* 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);
}
/**
* donas erarmesaĝon, ke la uzanto ne rajtas fari ion,
* kaj finas la skripton.
*
* @param string $ago kiun rajton oni bezonus.
* @todo prenu la nomon, kie plendi el la konfiguro.
* @todo ĉu iel taŭge fini la HTML-strukturon?
*/
function ne_rajtas($ago = "?")
{
eoecho("Malg^usta kodvorto au^ nomo ne ekzistas, au^ eble vi ne rajtas uzi tiu c^i pag^on ({$ago})<BR>");
eoecho("Se vi pensas, ke vi devus rajti, kaj ke vi donis la g^ustan kodvorton, plendu c^e Pau^lo.");
// TODO: Pauxlo -> el konfiguro
ligu("index.php", "<-- reen al la komenca pag^o", "_top");
// TODO: exit() finas la tutan skripton, sen zorgi, ke la HTML estas ie en la mezo ...
// Eble iom helpus voki htmlFino().
exit;
}
/**
* HTML-a kapo por la serĉ-paĝo, inkluzive de elektilo por jam
* ekzistantaj serĉoj.
*/
function sercxKapo()
{
HtmlKapo();
eoecho("<h2>G^enerala Serc^o</h2>\n");
kasxeblaSercxoElektilo();
ligu("partsercxo.php", "Reen al la partoprenantoserc^o");
ligu("gxenerala_sercxo.php", "nova serc^o");
if ($_REQUEST['antauxa_sercxo']) {
trovuSercxon($_REQUEST['antauxa_sercxo'], $GLOBALS['valoroj'], true);
}
}
/**
* metas ligon al la listo kun nova ordigo de la linioj.
* (Se la nova ordigo estus la sama kiel la malnova, montras
* nur la titolon, sen ligo.)
* @param eostring $titolo la montrota teksto por la ligo.
* @param sqlstring $novakampo la nomo de la kampo, kiu
* estu la nova cxefa ordigo.
* @param sqlstring $ordigo la gxisnuna ordigo
*/
function metu_ordigoligon($titolo, $novakampo, $ordigo)
{
$malnovaj_ordigoj = explode(",", $ordigo);
if ($novakampo != $malnovaj_ordigoj[0]) {
array_unshift($malnovaj_ordigoj, $novakampo);
$novaj_ordigoj = array_values(array_unique($malnovaj_ordigoj));
ligu("tejomembroj.php?ordigo=" . implode(",", $novaj_ordigoj), $titolo);
} else {
eoecho($titolo);
}
}
/**
* Finas la programon kun kelkaj debug-informoj.
*
* Ĉi tiu funkcio ekzistas nur por
* trovi cimojn en la programo.
* Tiun ĉi funkcion oni nur voku je lokoj
* en la programo, kiujn oni normale ne atingu.
*
* Ĝi printas la vok-ĉenon, kaj finas
* la programon.
*
* @todo trovu taŭgan esperantan nomon.
* @param mixed $klarigo se donita (= ne false), ĝi
* ankaŭ estos aldonita al la eldonoj.
*/
function darf_nicht_sein($klarigo = "")
{
eoecho("<p>Tiu kazo ne rajtus okazi, vers^ajne estas eraro en la programo." . " Bonvolu informi ");
ligu('mailto:' . teknika_administranto_retadreso, teknika_administranto);
eoecho(" pri tio, kun kopio de la subaj datoj.</p>");
echo '<div align="left" style="border-top: solid thin; border-bottom: solid thin;"><pre>';
if ($klarigo) {
if (is_string($klarigo)) {
echo $klarigo;
} else {
eoecho("Aldona informo:");
var_export($klarigo);
}
echo "<hr />";
}
var_export(debug_backtrace());
print "</pre></div>";
exit;
}
function redaktilo_por_kurzo($kurzo)
{
if ($kurzo->datoj['ID']) {
eoecho("<h2>Redakto de kurzo</h2>");
} else {
eoecho("<h2>Nova kurzo</h2>");
}
echo "<form action='kurzoj.php' method='POST'>\n";
echo "<table>\n";
tabela_kasxilo("ID", 'ID', $kurzo->datoj['ID']);
tabela_elektolisto_el_konfiguroj("valuto", 'valuto', 'valuto', $kurzo->datoj['valuto'], $ppRenk);
tabelentajpejo("dato", 'dato', $kurzo->datoj['dato'], 10);
tabelentajpejo("kurzo", 'kurzo', $kurzo->datoj['kurzo'], 10);
echo "</table>\n";
echo "<p>\n";
if ($kurzo->datoj['ID']) {
butono('sxangxu', "S^ang^u!");
} else {
butono('kreu', "Enmetu!");
}
ligu("kurzoj.php", "Reen");
echo "</p>\n";
echo "</form>";
}
eoecho("</td><td><p style='white-space: pre; white-space: pre-wrap'>" . $linio['teksto'] . "</pre>\n </td><td>" . $priskribo['priskribo'] . "\n </td>\n </tr>");
}
echo "</table>";
butono('redaktu', "Redaktu la markitajn tekstojn");
butono('redaktu_cxiujn', "Redaktu c^iujn tekstojn");
ligu("renkontigxo.php", "Reen al la renkontig^o");
ligu("administrado.php", "Reen al la grava administrado");
echo "</form>\n";
$restantaj = array();
foreach ($GLOBALS['tekstpriskriboj'][""] as $priskribo) {
if (!$priskribo['uzata'] and $priskribo['mesagxoID']) {
$restantaj[] = $priskribo;
}
}
if (count($restantaj)) {
eoecho("<p>Pri la sekvaj tekstoj ekzistas priskriboj, sed ili mankas " . " por la aktuala renkontig^o:</p>");
eoecho("<table>\n" . "<tr><th>mesag^o-ID</th><th>Priskribo</th></tr>\n");
foreach ($restantaj as $priskribo) {
echo "<tr><td><strong>" . $priskribo['mesagxoID'] . "</strong><br/>";
ligu("nova_teksto.php?mesagxoID=" . $priskribo['mesagxoID'], "kreu");
eoecho("</td><td>" . $priskribo['priskribo'] . "</td></th>\n");
}
eoecho("</table>\n");
}
}
HtmlFino();
if (DEBUG) {
echo "<!--SESSION: ";
var_export($_SESSION);
echo "-->";
}
/**
* alligas iun paĝon/dosieron kun aldona hazarda numero, por
* eviti uzon de retumila stokejo.
* La dosiero ĉiam malfermiĝu en nova fenestro/kadro
* (<samp>target='_blank'</samp>), ĉar PDF-dosiero en
* retumila subkadro estas iom malfacile uzebla.
*
* @todo esploru la Opera-problemon pri tio
*
* @param urlstring $kien la URL por alligi. Ni aldonas <samp>'?rand=</samp>
* kaj hazardan numeron.
* @param eostring $nomo la teksto de la ligo.
*
*/
function hazard_ligu($kien, $nomo)
{
ligu($kien . "?rand=" . rand(1000, 9999), $nomo, "_blank");
}
echo "</p>\n</form>\n";
} else {
butono("sxangxu", "S^ang^u");
butono("kopiu", "Kopiu");
eoecho("(tiam donu novan nomon!)");
echo "</p>\n</form>\n";
echo "<hr/>\n";
eoecho("<h2>Kondic^oj por la unuopaj malalig^periodoj</h2>");
echo "<form action='malaligxkondicxsistemo.php' method='POST'>\n";
tenukasxe("ID", $kondicxsistemo->datoj['ID']);
$sql = datumbazdemando(array("ID", "nomo", "limdato"), "aligxkategorioj", array("sistemoID = '" . $kondicxsistemo->datoj['aligxkategorisistemo'] . "'"), "", array("order" => "limdato DESC"));
$rez = sql_faru($sql);
echo "<table>\n";
eoecho("<tr><th>ID</th><th>nomo</th><th>limdato</th>" . "<th>kondic^o</th></tr>\n");
while ($linio = mysql_fetch_assoc($rez)) {
$sql = datumbazdemando("kondicxtipo", "malaligxkondicxoj", array("sistemo = '" . $kondicxsistemo->datoj['ID'] . "'", "aligxkategorio = '" . $linio['ID'] . "'"));
$lin2 = mysql_fetch_assoc(sql_faru($sql));
eoecho("<tr><td>" . $linio['ID'] . "</td><td>" . $linio['nomo'] . "</td><td>" . $linio['limdato'] . "</td><td>");
elektilo_simpla_db("kondicxtipo[{$linio['ID']}]", "malaligxkondicxotipoj", "nomo", "ID", $lin2['kondicxtipo'], "uzebla = 'j'");
echo "</td></tr>\n";
}
echo "</table>\n<p>";
butono("sxangxuKond", "S^ang^u kondic^ojn");
echo "</p></form>";
}
echo "<hr/>\n<p>";
ligu("kotizosistemoj.php", "C^iuj kotizosistemoj");
ligu("kategorisistemoj.php#malaligxsistemoj", "C^iuj kategoriosistemoj");
ligu("kotizoj.php", "c^io rilate al kotizoj");
echo "</p>";
HtmlFino();
eoecho($klarigo . "<br />(ordigitaj lau^ nombro)\n");
// $sql = "Select l.nomo, count(*) as c ";
// $sql .= "from landoj as l, partoprenoj as p, partoprenantoj as e ";
// $sql .= "where p.partoprenantoID = e.id and e.lando=l.id and alvenstato='v' and renkontigxoID=".$_SESSION["renkontigxo"]->datoj[ID];
// $sql .= " group by lando order by c DESC";
$sql = datumbazdemando(array("l.nomo", "count(*)" => "c"), array("landoj" => "l", "partoprenoj" => "p", "partoprenantoj" => "e"), array("p.partoprenantoID = e.ID", "e.lando = l.id", "p.alvenstato = '{$alvenstato}'"), "p.renkontigxoID", array("group" => "lando", "order" => "c DESC"));
sql_farukajmontru($sql);
// "select count(*) as c from partoprenoj as p, partoprenantoj as e where p.partoprenantoID=e.id and alvenstato='v' and renkontigxoID=".$_SESSION["renkontigxo"]->datoj[ID]
echo "</TD><TD align=center>\n";
eoecho($klarigo . "<br />(ordigita lau^ nomo)\n");
// $sql = "Select l.nomo, count(*) as c ";
// $sql .= "from landoj as l, partoprenoj as p, partoprenantoj as e ";
// $sql .= "where p.partoprenantoID = e.id and e.lando=l.id and alvenstato='v' and renkontigxoID=".$_SESSION["renkontigxo"]->datoj[ID];
// $sql .= " group by e.lando order by l.nomo ASC";
$sql = datumbazdemando(array("l.nomo", "count(*)" => "c"), array("landoj" => "l", "partoprenoj" => "p", "partoprenantoj" => "e"), array("p.partoprenantoID = e.ID", "e.lando = l.id", "alvenstato = '{$alvenstato}'"), "renkontigxoID", array("group" => "e.lando", "order" => "l.nomo ASC"));
sql_farukajmontru($sql);
echo "</TD><TD align=center>\n";
echo "</TD></TR><tr><td colspan='2' align='center'>";
// TODO: uzu tabelon sen "nombro:" - aux enmetu la sumo-kalkuladon tuj
// en la supran tabelon.
sql_farukajmontru(datumbazdemando(array("'Sumo:'", "count(*)" => "c"), array("partoprenoj" => "p", "partoprenantoj" => "e"), array("p.partoprenantoID = e.id", "alvenstato = '{$alvenstato}'"), "renkontigxoID"));
echo "</TD></TR><tr><td colspan='2' align='center'>";
foreach ($GLOBALS['alvenstatonomoj'] as $id => $nomo) {
if ($id == $alvenstato) {
eoecho(" <strong>" . $nomo . "</strong>");
} else {
ligu("statistikoj.php?alvenstato=" . $id, $nomo);
}
}
echo "</td></tr></TABLE>\n";
HtmlFino();
/**
* funkcios preskaux same kiel sercxu() (el iloj_html), sed kun nova implementado.
*
* Diferencoj:
*
* $sumoj - por cxiu sum-linio ekzistas array (en $sumoj). En cxiu linio-array
* estas po element-array por kolono, kun tri elementoj:
* [0] - La teksto de la kampo. Se vi uzas XX, tie aperos la rezulto
* de la sumado.
* [1] - La speco de la sumado. eblecoj:
* A - simple nur kalkulu, kiom da linioj estas.
* J - kalkulu, kiom ofte aperas 'J' en la koncerna kampo
* E - kalkulu, kiom ofte enestas io en la koncerna kampo
* N - adiciu la numerojn en la koncerna kampo.
* [3] - arangxo ('l', 'r', 'z' - vidu cxe $kolumoj - [3].)
* $identifikilo - estas uzata por la ligoj por reordigi, tiel cxe pluraj
* tabeloj en la sama pagxo la gxusta estos montrita.
* $extra - ['Spaltenrechnung'] ne plu funkcias.
*
*/
function sercxu_nova($sql, $ordigo, $kolumnoj, $sumoj, $identifikilo, $extra, $csv, $antauxteksto, $almenuo, $proprakapo = "jes")
{
if ($csv < 2 and $proprakapo == 'jes') {
HtmlKapo();
eoecho("<p>{$antauxteksto}</p>");
} else {
if ($csv >= '2') {
header("Content-Type: application/octet-stream");
//csv als Download anbieten
header("Content-Disposition: attachment; filename='csv_export.txt'");
}
}
$eigenlink = "sercxrezultoj.php?elekto=memligo&id={$identifikilo}";
$_SESSION["memligo"][$identifikilo]["sql"] = $sql;
$_SESSION["memligo"][$identifikilo]["antauxteksto"] = $antauxteksto;
$_SESSION["memligo"][$identifikilo]["kolumnoj"] = $kolumnoj;
$_SESSION["memligo"][$identifikilo]["sumoj"] = $sumoj;
$_SESSION["memligo"][$identifikilo]["aldone"] = $extra;
$_SESSION['memligo'][$identifikilo]["almenuo"] = $almenuo;
$klaso = array("para", "malpara");
$arangxo = array("r" => "dekstren", "d" => "dekstren", "l" => "maldekstren", "m" => "maldekstren", "z" => "centren", "c" => "centren");
$inversa = array("asc" => "desc", "desc" => "asc");
if ($csv == 0) {
echo "<table>\n";
echo "<tr class='titolo'>";
}
$i = 0;
while (isset($kolumnoj[$i])) {
if ($csv == 0) {
echo "<th class='" . $arangxo[$kolumnoj[$i][3]] . "'>";
if ($ordigo[0] == $kolumnoj[$i][0]) {
ligu($eigenlink . "&orderby=" . $kolumnoj[$i][0] . "&asc=" . $inversa[$ordigo[1]], $kolumnoj[$i][1] . "<img src='bildoj/" . $ordigo[1] . "_order.gif' />");
} else {
if (is_numeric($kolumnoj[$i][0])) {
echo $kolumnoj[$i][1];
} else {
ligu($eigenlink . "&orderby=" . $kolumnoj[$i][0] . "&asc=asc", $kolumnoj[$i][1]);
}
}
echo "</th>";
} else {
eoecho($kolumnoj[$i][0] . ";");
}
$i++;
}
if ($csv >= '2') {
echo "\n";
} else {
if ($csv == 1) {
echo "<br/>\n";
} else {
echo "</tr>\n";
}
}
$result = sql_faru($sql . " order by " . $ordigo[0] . " " . $ordigo[1]);
if (DEBUG) {
var_export($result);
}
$linionumero = 0;
while ($row = mysql_fetch_array($result, MYSQL_BOTH)) {
$linionumero += 1;
if ($csv == 0) {
echo "<TR onmouseover='marku(this)' onmouseout='malmarku(this)' " . " class='" . $klaso[$linionumero % 2] . "'>\n";
// TODO: Javascript ausprobieren
}
$i = 0;
while (isset($kolumnoj[$i])) {
$kolumno = $kolumnoj[$i];
$temp = $kolumno[0];
$textinhalt = $kolumno[2];
$aus = $kolumno[3];
$linkk = $kolumno[4];
if ($kolumno[5] != '-1') {
$doselectWert = $row[$kolumno[5]];
} else {
$doselectWert = '-1';
}
//echo "<TD align=$ausrichtung[$aus]>$row[$temp]</TD>";
if ($csv == 0) {
echo "<td align={$ausrichtung[$aus]}>";
}
if ($linkk != '' and $csv == 0) {
$ausgeben = str_replace('XXXXX', $row[$temp], $linkk);
echo "<A href=" . $ausgeben;
if ($doselectWert && $doselectWert != '-1') {
echo " onClick='doSelect(" . $doselectWert . ");'";
}
echo ">";
}
$ez &= $extra['Zeichenersetzung'];
if (isset($ez[$i][$row[$temp]])) {
$ausgeben = str_replace('XXXXX', $extra['Zeichenersetzung'][$i][$row[$temp]], $textinhalt);
} else {
if (isset($extra['anstatauxo_funkcio'][$i])) {
$nova_teksto = $extra['anstatauxo_funkcio'][$i]($row[$temp]);
$ausgeben = str_replace('XXXXX', $nova_teksto, $textinhalt);
} else {
$ausgeben = str_replace('XXXXX', $row[$temp], $textinhalt);
}
}
if (isset($extra['okupigxtipo']) and $extra['okupigxtipo'] == $i) {
$ausgeben = okupigxtipo($row[$temp]);
}
if ($csv != '2') {
eoecho($ausgeben);
} else {
echo utf8_decode($ausgeben);
}
// eldonas en ISO-8859-1
if ($csv != 0) {
echo ";";
} else {
if ($linkk != '') {
echo "</a></td>\n";
} else {
echo "</td>\n";
}
}
//Zusammenzählen
$SummenIndex = 0;
while (isset($sumoj[$SummenIndex])) {
$ii = $i;
switch ($sumoj[$SummenIndex][$i][1]) {
case 'A':
$summe[$SummenIndex][$i] += 1;
break;
case 'J':
if ($row[$temp] == 'J') {
$summe[$SummenIndex][$i] += 1;
}
break;
case 'Z':
if ($row[$temp] != 0) {
$summe[$SummenIndex][$i] += 1;
}
break;
case 'E':
if ($row[$temp] != '') {
$summe[$SummenIndex][$i] += 1;
}
break;
case 'N':
if ($row[$temp] != '') {
$summe[$SummenIndex][$i] += $row[$temp];
}
break;
}
$SummenIndex += 1;
}
$i++;
}
if ($csv == 0 and isset($extra['litomanko'])) {
$manko = eltrovu_litojn($row[$extra['litomanko']]);
for ($i = 1; $i <= 7; $i++) {
if ($manko[$i] == '1') {
echo "<td>X</td>";
} else {
echo "<td>-</td>";
}
}
echo "<td>";
rajtligu("cxambroj.php?cx_ago=forgesu&partoprenID=" . $row[$extra['litomanko']], "serc^u", "", "cxambrumi");
echo "</td>";
}
if ($csv == 0 and isset($extra['tutacxambro'])) {
$partoprenanto = new Partoprenanto($row[0]);
$partopreno = new Partopreno($row[1]);
// echo "CX: ".eltrovu_cxambrojn($row[$extra['tutacxambro']]);
$cxambro = mysql_fetch_array(eltrovu_cxambrojn($row[$extra['tutacxambro']]));
if ($cxambro[0] != '') {
echo "</tr>\n<tr><td colspan='" . count($kolumnoj) . "'>";
montru_kunlogxantojn($cxambro[0]);
montru_cxambron($cxambro[0], $_SESSION["renkontigxo"], $partoprenanto, $partopreno, 'granda');
echo "</td>\n";
}
}
if ($csv == 0) {
echo "</tr>\n";
} else {
if ($csv == 1) {
echo "<br/>\n";
} else {
echo "\n";
}
}
}
if ($csv == 0) {
// sumoj
// TODO: rerigardu indeksojn
$SummenIndex = 0;
while (isset($sumoj[$SummenIndex][0])) {
echo "<tr class='sumoj'>";
$i = 0;
while (isset($sumoj[$SummenIndex][$i])) {
$aus = $sumoj[$SummenIndex][$i][2];
echo "<td class='{$arangxo[$aus]}'>" . str_replace('XX', $summe[$SummenIndex][$i], $sumoj[$SummenIndex][$i][0]) . "</td>";
$i += 1;
}
echo "</tr>\n";
$SummenIndex += 1;
}
echo "</table>\n";
if ($almenuo != "") {
ligu("menuo.php?sercxfrazo={$sql}", "Enmeti en la maldekstran menuon", "is-aligilo-menuo");
}
if ($proprakapo == "jes") {
echo "</body>\n</html>";
}
}
}
$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;
//ligu("sercxrezultoj.php?elekto=junulargastejolisto", "eksportu liston por la junulargastejo en Wetzlar");
// ligu("sercxrezultoj.php?elekto=andiListe", "eksportu liston por ministerio");
ligu("sercxrezultoj.php?elekto=cxambrolisto", "montru liston de la cxambroj kaj enlogxantoj");
ligu("sercxrezultoj.php?elekto=germanoj_laux_lando&dosiertipo=0", "Germanoj lau^ lando");
ligu("sercxrezultoj.php?elekto=germanoj_laux_lando&dosiertipo=1", "1");
ligu("sercxrezultoj.php?elekto=germanoj_laux_lando&dosiertipo=2", "2");
ligu("sercxrezultoj.php?elekto=germanoj_laux_lando&dosiertipo=3", "3");
echo "<BR>";
ligu("sercxrezultoj.php?elekto=nenula_saldo", "Partoprenantoj kun ne-nula pago-saldo");
echo "<BR>";
// rajtligu("sercxrezultoj.php?elekto=restaspagenda","kiom pagendas por c^iu?","","mono",'ne');
ligu("sercxrezultoj.php?elekto=kunmangxo", "Kontrolu, c^u c^ie kunmang^ado = junulargastejumado");
// ligu('sercxrezultoj.php?elekto=partoprenintoj_por_enketo',
// "Listo de bazaj datoj de partoprenintoj por enketaj celoj (CSV)");
// echo "<br />";
// ligu('sercxrezultoj.php?elekto=aligxintoj_laux_kategorioj',
// "G^enerala alig^into-statistiko de la lastaj jaroj (sen ag^o)");
// ligu('sercxrezultoj.php?elekto=aligxintoj_laux_kategorioj&csv=1',
// "(CSV por kopiado)");
// ligu('sercxrezultoj.php?elekto=aligxintoj_laux_kategorioj&csv=2',
// "(CSV por els^uti)");
// echo "<br />\n";
// ligu('sercxrezultoj.php?elekto=aligxintoj_laux_kotizokategorioj',
// "G^enerala alig^into-statistiko de la lastaj jaroj (kun ag^oj");
// ligu('sercxrezultoj.php?elekto=aligxintoj_laux_kotizokategorioj&csv=1',
// "(CSV por kopiado)");
// ligu('sercxrezultoj.php?elekto=aligxintoj_laux_kotizokategorioj&csv=2',
// "(CSV por els^uti)");
echo "<br/>\n";
ligu("sercxrezultoj.php?elekto=interreta_listo&ordigo=normala&lingvo=de", "elprova versio de interreta listo");
HtmlFino();
/**
* Montras formularon por krei/ŝanĝi noton.
*
* @param Partoprenanto $partoprenanto la Partoprenanto, al kiu rilatas
* la noto.
* @param Noto $noto la noto-objekto ŝanĝenda.
*/
function montru_notoformularon($partoprenanto, $noto)
{
if ($noto->datoj['ID']) {
eoecho("<h2>S^ang^o de noto</h2>\n");
} else {
eoecho("<h2>Nova noto</h2>\n");
}
echo "<form method='post' action='notoj.php'>\n";
echo "<table>\n";
tabela_kasxilo("Noto-ID", 'ID', $noto->datoj['ID']);
tabela_kasxilo("Ppanto-ID", 'partoprenantoID', $partoprenanto->datoj['ID'], $partoprenanto->tuta_nomo() . " (" . donu_ligon("partrezultoj.php?partoprenantoidento=" . $partoprenanto->datoj['ID'], "#" . $partoprenanto->datoj['ID']) . ")");
tabel_entajpbutono("Tipo", 'tipo', $noto->datoj['tipo'], 'telefon', "telefona kontakto", '', true);
tabel_entajpbutono("", 'tipo', $noto->datoj['tipo'], 'persone', "persona kontakto", '', true);
tabel_entajpbutono("", 'tipo', $noto->datoj['tipo'], 'letere', "letera kontakto", '', true);
tabel_entajpbutono("", 'tipo', $noto->datoj['tipo'], 'rete', "ret(pos^t)a kontakto", '', true);
tabel_entajpbutono("", 'tipo', $noto->datoj['tipo'], 'rimarko', "alia rimarko", '', true);
tabelentajpejo("dato/tempo", 'dato', $noto->datoj['dato'], 20);
tabelentajpejo("noto de ...", 'kiu', $noto->datoj['kiu'], 45);
tabelentajpejo("pri komunikado kun ...", 'kunKiu', $noto->datoj['kunKiu'], 45);
eoecho("<tr><th>noto por:</th><td>");
$entajpantoj = $noto->listu_entajpantojn();
foreach ($entajpantoj as $id => $inf) {
echo "<span style='display: inline-block;'>";
jes_ne_bokso('noto_por[' . $id . ']', $inf[1]);
eoecho($inf[0] . "</span>\n ");
}
eoecho("</td></tr>");
tabelentajpejo("temo", 'subjekto', $noto->datoj['subjekto'], 45);
granda_tabelentajpejo("teksto", 'enhavo', $noto->datoj['enhavo'], 57, 20);
tabela_elektilo("prilaborita", 'prilaborata', array("j" => 'jes', '' => 'ne'), $noto->datoj['prilaborata'], " (se ne, remontru je ...");
tabelentajpejo("", 'revidu', $noto->datoj['revidu'], 20, ")");
echo "</table>\n<p>";
if ($noto->datoj['ID']) {
butono("notu", "S^ang^u la noton!");
} else {
butono("notu", "Nova noto!");
}
ligu("sercxrezultoj.php?elekto=notojn&partoprenantoidento=" . $partoprenanto->datoj['ID'], "C^iuj notoj de " . $partoprenanto->tuta_nomo());
ligu("partrezultoj.php?partoprenantoidento=" . $partoprenanto->datoj['ID'], "Partoprenanto-detaloj");
echo "</p>\n</form>\n";
}
<h2>Uzanto</h2>
<p>Kreas unuan uzanton. (Pliajn poste eblas krei ene de la
programo per "grava administrado".)</p>
<table>
<?php
tabelentajpejo("uzantnomo", "nomo", "", 20, "Salutnomo de la uzanto");
tabelentajpejo("pasvorto", "kodvorto", "", 20, "Pasvorto por ensaluti", "", "", "j");
?>
</table>
<p>Tiujn informojn bone memoru, vi bezonas ilin por ensaluti.</p>
<p><? butono("uzanto", "Kreu"); ?></p>
</form>
<form id="renkontigxo" method="POST" action="uzanto_renkontigxo.php">
<h2>Renkontiĝo</h2>
<p>Kreas renkontiĝon. (Detaloj pri la renkontiĝo eblas meti poste ene de
la programo.)</p>
<table>
<?php
tabelentajpejo("nomo", "nomo", "", 20, "Nomo de la renkontiĝo");
tabelentajpejo("mallongigo", "mallongigo", "", 8, "mallongigo de la renkontiĝo (maks. ~ 8 signoj)");
?>
</table>
<p><? butono("renkontigxo", "Kreu"); ?></p>
</form>
<p><?php
ligu("./#instalilo", "Reen al la instalilo-superrigardo");
echo "</p>";
HtmlFino();
echo "<td>";
debug_echo("<!--" . $linio['dato'] . "/" . $linio['mangxotipo'] . ": -->");
eoecho($linio['num'] . "</td>");
$dato = next($tagolisto);
}
while ($dato != null) {
echo "<td/>";
$dato = next($tagolisto);
}
echo "</tr>";
}
}
$renkontigxdauxro = $_SESSION['renkontigxo']->renkontigxonoktoj();
$komenctago = $_SESSION["renkontigxo"]->datoj['de'];
echo "<p>";
ligu("statistikoj.php", "Landostatistiko");
echo "</p>";
eoecho("<h1>Partopren-, log^- kaj mang^statistikoj</h1>");
eoecho("<h2>Alvenintoj kaj (vers^ajne) venontoj</h2>");
montru_diversajn_laux_alvenstato($renkontigxdauxro, $komenctago, "p.alvenstato = 'v' OR p.alvenstato = 'a'" . " OR p.alvenstato = 'i'");
eoecho("<h2>Nur alvenintoj</h2>");
montru_diversajn_laux_alvenstato($renkontigxdauxro, $komenctago, "p.alvenstato = 'i' OR p.alvenstato = 'a'");
eoecho("<h2>Nur akceptitoj</h2>");
montru_diversajn_laux_alvenstato($renkontigxdauxro, $komenctago, "p.alvenstato = 'a'");
eoecho("<h2>Viditaj, sed ne akceptitaj</h2>");
montru_diversajn_laux_alvenstato($renkontigxdauxro, $komenctago, "p.alvenstato = 'i'");
eoecho("<h2>Vers^ajne venontoj</h2>");
montru_diversajn_laux_alvenstato($renkontigxdauxro, $komenctago, "p.alvenstato = 'v'");
/* eoecho("<h2>Vers^ajne venontoj, kiuj antau^pagis</h2>"); */
/* montru_diversajn_laux_alvenstato($renkontigxdauxro, */
/* $komenctago, */
} else {
if ($alvenstato == 'm') {
$klarigo = "alig^is, sed jam malalig^is";
}
}
}
eoecho("La nombroj de homoj el diversaj landoj, kiuj g^is nun {$klarigo}: <br />(ordigitaj lau^ nombro)\n");
// $sql = "Select l.nomo, count(*) as c ";
// $sql .= "from landoj as l, partoprenoj as p, partoprenantoj as e ";
// $sql .= "where p.partoprenantoID = e.id and e.lando=l.id and alvenstato='v' and renkontigxoID=".$_SESSION["renkontigxo"]->datoj[ID];
// $sql .= " group by lando order by c DESC";
$sql = datumbazdemando(array("l.nomo", "count(*)" => "c"), array("landoj" => "l", "partoprenoj" => "p", "partoprenantoj" => "e"), array("p.partoprenantoID = e.ID", "e.lando = l.id", "p.alvenstato = '{$alvenstato}'"), "p.renkontigxoID", array("group" => "lando", "order" => "c DESC"));
sql_farukajmontru($sql);
// "select count(*) as c from partoprenoj as p, partoprenantoj as e where p.partoprenantoID=e.id and alvenstato='v' and renkontigxoID=".$_SESSION["renkontigxo"]->datoj[ID]
sql_farukajmontru(datumbazdemando(array("'Sumo:'", "count(*)" => "c"), array("partoprenoj" => "p", "partoprenantoj" => "e"), array("p.partoprenantoID = e.id", "alvenstato = '{$alvenstato}'"), "renkontigxoID"));
echo "</TD><TD align=center>\n";
eoecho("La nombroj de homoj el diversaj landoj, kiuj g^is nun {$klarigo}: <br />(ordigita lau^ nomo)\n");
// $sql = "Select l.nomo, count(*) as c ";
// $sql .= "from landoj as l, partoprenoj as p, partoprenantoj as e ";
// $sql .= "where p.partoprenantoID = e.id and e.lando=l.id and alvenstato='v' and renkontigxoID=".$_SESSION["renkontigxo"]->datoj[ID];
// $sql .= " group by e.lando order by l.nomo ASC";
$sql = datumbazdemando(array("l.nomo", "count(*)" => "c"), array("landoj" => "l", "partoprenoj" => "p", "partoprenantoj" => "e"), array("p.partoprenantoID = e.ID", "e.lando = l.id", "alvenstato = '{$alvenstato}'"), "renkontigxoID", array("group" => "e.lando", "order" => "l.nomo ASC"));
// TODO: uzu tabelon sen "sumo".
sql_farukajmontru($sql);
echo "</TD><TD align=center>\n";
echo "</TD></TR><tr><td colspan='2'>";
ligu("statistikoj.php?alvenstato=a", "alvenintoj");
ligu("statistikoj.php?alvenstato=v", "venontoj");
ligu("statistikoj.php?alvenstato=m", "malalig^is");
echo "</td></tr></TABLE>\n";
HtmlFino();
}
echo "</td><td>";
if (in_array($_SESSION['partopreno']->datoj['alvenstato'], array('v', 'i')) and $_SESSION['partopreno']->datoj['renkontigxoID'] == $_SESSION['renkontigxo']->datoj['ID']) {
rajtligu("akceptado-datoj.php", "akcepti", "", "akcepti");
}
echo "</td></tr>\n";
// gehört eigentlich nach montru_aligxo; -> Nee.
echo "<tr><td>";
/** kiam ri estas en kiu cxambro? */
$rezulto = eltrovu_cxambrojn($_SESSION["partopreno"]->datoj[ID]);
while ($row = mysql_fetch_assoc($rezulto)) {
$sql = datumbazdemando("nomo", "cxambroj", "id = '{$row['cxambro']}'");
$cxambronomo = mysql_fetch_assoc(sql_faru($sql));
eoecho(sekvandaton($partopreno_renkontigxo->datoj['de'], $row['nokto_de'] - 1) . " – " . sekvandaton($partopreno_renkontigxo->datoj['de'], $row['nokto_gxis']) . " (" . $row['rezervtipo'] . ")\n");
if (rajtas("cxambrumi")) {
ligu("cxambro-detaloj.php?cxambronumero=" . $row["cxambro"], "c^ambro: " . $cxambronomo['nomo']);
echo " ";
ligu_butone('cxambroago.php?sp=partrezultoj.php', $row['rezervtipo'] == 'd' ? "forgesu" : "malrezervu", array('sendu' => 'forgesu_liton', 'forgesendalito' => $row["ID"]));
} else {
eoecho("c^ambro: " . $cxambronomo['nomo'] . " ");
}
echo "<br/>";
$havas_cxambron = "true";
}
// while ($row)
if ($_SESSION["partopreno"]->datoj['domotipo'] == "J") {
if (!$havas_cxambron) {
eoecho($_SESSION["partoprenanto"]->personapronomo . " g^is nun ne havas c^ambron.<BR>");
rajtligu("cxambroj.php", "elektu unu", "", "cxambrumi", "jes");
} else {
$mankantaj_litoj = eltrovu_litomankon($_SESSION['partopreno'], $partopreno_renkontigxo);
/**
* Montras elektilon de cxiuj konservitaj sercxoj
* kun du butonoj "Resxargxu" kaj "Tuj sercxu".
*/
function sercxoElektilo()
{
$sql = datumbazdemando(array("s.ID" => "ID", "s.nomo" => "sercxnomo", "e.nomo" => "entajpanto"), array("sercxoj" => "s", "entajpantoj" => "e"), "s.entajpanto = e.ID", "", array("order" => "sercxnomo ASC"));
$rez = sql_faru($sql);
if ($num = mysql_num_rows($rez)) {
eoecho(" <h3>Antau^aj serc^oj</h3>\n");
echo " <ul>\n";
while ($linio = mysql_fetch_assoc($rez)) {
eoecho(" <li>");
ligu("gxenerala_sercxo.php?antauxa_sercxo={$linio['ID']}", $linio['sercxnomo']);
eoecho(" de " . $linio['entajpanto']);
ligu("gxenerala_sercxo.php?antauxa_sercxo=" . $linio['ID'] . "&sendu=sercxu", "Tuj serc^u");
if ($linio['entajpanto'] == $_SESSION['kkren']['entajpantonomo'] or rajtas('teknikumi')) {
echo " / ";
ligu("sercxo.php?sendu=forigu&id=" . $linio['ID'], "forigu");
echo " / ";
ligu("sercxo.php?sendu=redaktu&id=" . $linio['ID'], "redaktu informojn");
}
echo ").</li>\n";
}
echo " </ul>\n";
} else {
eoecho("<p>Ne ekzistas antau^aj serc^oj.</p>");
}
}
function hazard_ligu($kien, $nomo, $celo = "")
{
ligu($kien . "?rand=" . rand(1000, 9999), $nomo, $celo);
}
$Ri = ucfirst($ri);
akceptado_kapo("kontroloj");
// ###############################################################################
// <p>(Reen al <a href='akceptado.php?pasxo=datumoj'>datumoj</a>)</p>
echo "<ul>\n";
eoecho("<li><p>Jen c^iuj notoj pri {$ri}. Kontrolu, c^u io estas neprilaborita.</p>\n");
$sql = datumbazdemando(array("ID", "prilaborata", "dato", "partoprenantoID", "subjekto", "kiu", "kunKiu", "tipo"), "notoj", "", array("partoprenanto" => "partoprenantoID"));
sercxu($sql, array("dato", "desc"), array(array('ID', '', '->', 'z', '"notoj.php?wahlNotiz=XXXXX"', '-1'), array('prilaborata', 'prilaborata?', 'XXXXX', 'z', '', '-1'), array('dato', 'dato', 'XXXXX', 'l', '', '-1'), array('subjekto', 'subjekto', 'XXXXX', 'l', '', '-1'), array("kiu", "kiu", 'XXXXX', 'l', '', '-1'), array("kunKiu", "kun Kiu?", 'XXXXX', 'l', '', '-1'), array("tipo", "tipo", 'XXXXX', 'l', '', '-1')), array(array('', array('∑ XX', 'A', 'z'))), "notoj-akceptado", array('Zeichenersetzung' => array('1' => array('j' => '<strong class="malaverto">prilaborata</strong>', '' => '<strong class="averto">neprilaborata</strong>', 'n' => '<strong class="averto">neprilaborata</strong>'))), 0, '', '', 'ne');
eoecho("<p>Se estas iuj gravaj aferoj, prilaboru tuj (au^ voku respondeculon).</p>\n</li>");
$_SESSION['sekvontapagxo'] = 'akceptado-datoj.php';
eoecho("<li>Eble kontrolu {$ri}an log^landon (estu " . eltrovu_landon($partoprenanto->datoj['lando']) . "/" . eltrovu_landon_lokalingve($partoprenanto->datoj['lando']) . " –");
ligu("partoprenanto.php?ago=sxangxi", "s^ang^u!");
echo ").</li>\n";
eoecho("<li> Eble kontrolu lian ag^on, {$ri} asertis esti naskita je " . $partoprenanto->datoj['naskigxdato'] . " (nun " . $partopreno->datoj['agxo'] . "-jara)");
ligu("partoprenanto.php?ago=sxangxi", "(s^ang^u!)");
echo "</li>\n";
if ($partopreno->datoj['agxo'] < 18) {
eoecho("<li>Kolektu la gepatran permeson (se g^i mankas donu faksnumeron de" . " la ejo, kaj insistu ke {$ri} donos g^in.).</li>\n");
}
echo "</ul><p>";
if (necesas_tejo_traktado()) {
ligu("akceptado-tejo.php", "C^io estas en ordo, plu al <em>TEJO-membreco</em>");
} else {
if (necesas_lokaasocio_traktado()) {
ligu("akceptado-lokaasocio.php", "C^io estas en ordo, plu al <em>membreco cxe " . deviga_membreco_nomo . "</em>");
} else {
ligu("akceptado-cxambro.php", "C^io estas en ordo, plu al <em>cxambroj</em>");
}
}
echo "</p>";
HtmlFino();
tabelentajpejo("Invitletero-retadreso", "invitleteroretadreso", $renk['invitleteroretadreso'], 30);
tabelentajpejo("Tema respondulo", 'temarespondulo', $renk['temarespondulo'], 20, "");
tabelentajpejo("Tema retadreso", "temaretadreso", $renk['temaretadreso'], 30);
tabelentajpejo("Distra respondulo", "distrarespondulo", $renk['distrarespondulo'], 20, "");
tabelentajpejo("Distra retadreso", "distraretadreso", $renk['distraretadreso'], 30);
tabelentajpejo("Vespera respondulo", "vesperarespondulo", $renk['vesperarespondulo'], 20, "");
tabelentajpejo("Vespera retadreso", "vesperaretadreso", $renk['vesperaretadreso'], 30);
tabelentajpejo("Muzika respondulo", "muzikarespondulo", $renk['muzikarespondulo'], 20, "");
tabelentajpejo("Muzika retadreso", "muzikaretadreso", $renk['muzikaretadreso'], 30);
tabelentajpejo("Nokta respondulo", "noktarespondulo", $renk['noktarespondulo'], 20, "");
tabelentajpejo("Nokta retadreso", "noktaretadreso", $renk['noktaretadreso'], 30);
tabelentajpejo("Novula/Junula respondulo", "novularespondulo", $renk['novularespondulo'], 20, "");
tabelentajpejo("Novula retadreso", "novularetadreso", $renk['novularetadreso'], 30);
eoecho("\n </table>\n");
butono("sxangxu", "S^ang^u tiun renkontig^on");
butono("kreu", "Kreu novan renkontig^on");
eoecho("\n</form>\n\n <hr/>\n\n <h3 id='tekstoj'>Tekstoj</h3>\n <p>\n La <em>tekstoj</em> estas uzataj ekzemple por\n havi retmesag^tekst(er)ojn kaj similajn aferojn, kiuj varias\n lau^ renkontig^o,\n ne en la programo sed en la datumbazo.\n </p>");
$sql = datumbazdemando(array('count(*)' => 'nombro'), 'tekstoj', "renkontigxoID = '{$renk['ID']}'");
$rez = sql_faru($sql);
$linio = mysql_fetch_assoc($rez);
eoecho("\n<p>\n Nuntempe ekzistas " . $linio['nombro'] . " tekstoj por la aktuala\n renkontig^o.\n</p> <p>");
ligu("tekstoj.php", "Vidu la liston (kaj eble redaktu kelkajn)");
echo "<br/>";
ligu("nova_teksto.php", "Aldonu novan tekston");
echo "</p><p>";
ligu("administrado.php", "Reen al la administrado-pag^o.");
echo "</p>";
HtmlFino();
echo "<!--";
var_export($_SESSION);
echo "-->";
granda_tabelentajpejo("priskribo", "priskribo", $katsistemo->datoj['priskribo'], 40, 5);
echo "</table>\n";
echo "<p>";
if (!$_REQUEST['id']) {
butono("kreu", "Kreu");
echo "</p>\n</form>\n";
HtmlFino();
exit;
}
butono("sxangxu", "S^ang^u");
butono("kopiu", "Kopiu");
eoecho("(tiam donu novan nomon!)");
echo "</p>\n</form>\n";
echo "<hr />\n";
eoecho("<h2>" . donu_eokatnomon($tipo) . "j en <em>" . $katsistemo->datoj['nomo'] . "</em></h2>\n");
echo "<form action='kategorisistemo.php?tipo=" . $tipo . "&id=" . $_REQUEST['id'] . "' method='POST'>\n";
$katsistemo->listu_kategoriojn('redaktebla');
echo "<p>";
butono("katSxangxu", "S^ang^u kategoriojn");
echo "</p>\n</form>\n";
echo "<hr />\n";
eoecho("<h2> Nova " . donu_eokatnomon($tipo) . " en <em>" . $katsistemo->datoj['nomo'] . "</em></h2>\n");
echo "<form action='kategorisistemo.php?tipo=" . $tipo . "&id=" . $_REQUEST['id'] . "' method='POST'>\n";
echo "<table>\n";
$katsistemo->kreu_kategorikreilon();
echo "</table>\n<p>";
butono("katNova", "Nova kategorio");
echo "</p>\n</form>\n";
echo "<hr />\n<p>";
ligu("kategorisistemoj.php", "Reen al la listo");
HtmlFino();
if ($_REQUEST['sp']) {
$_SESSION['sekvontapagxo'] = $_REQUEST['sp'];
}
sesio_aktualigu_laux_get();
if ($_REQUEST['sendu'] == "cxambrotipsxangxo") {
kontrolu_rajton("cxambrumi");
// sxangxo de cxambrotipo (gea/unuseksa), duliteco kaj/aux rimarkoj.
sxangxu_datumbazon("cxambroj", array("tipo" => $_REQUEST['tipo'], "rimarkoj" => $_REQUEST['rimarkoj'], "dulita" => $_REQUEST['dulita']), array("ID" => $_REQUEST['cxambronumero']));
}
HtmlKapo();
debug_echo("<!-- POST: " . var_export($_POST, true) . "-->");
if ($_SESSION["partoprenanto"]) {
eoecho("Ni serc^as c^ambron por: <b>" . $_SESSION["partoprenanto"]->datoj[personanomo] . " " . $_SESSION["partoprenanto"]->datoj[nomo] . " [" . $_SESSION["partoprenanto"]->datoj[sekso] . "/" . $_SESSION["partopreno"]->datoj[cxambrotipo] . "/" . $_SESSION["partopreno"]->datoj['agxo'] . "] </b> de: " . $_SESSION["partopreno"]->datoj[de] . " g^is: " . $_SESSION["partopreno"]->datoj[gxis] . "<BR>\n");
if ($_SESSION["partopreno"]->datoj['renkontigxoID'] != $_SESSION["renkontigxo"]->datoj['ID']) {
erareldono("malg^usta renkontig^o!");
exit;
}
}
// montru, kiu sxatas kunlogxi kun kiu
montru_kunlogxantojn($cxambronumeo);
// montru nun la cxambron mem.
montru_cxambron($cxambronumero, $_SESSION["renkontigxo"], $_SESSION["partoprenanto"], $_SESSION["partopreno"], "granda");
montru_cxambrointersxangxilon($cxambronumero);
if ($_SESSION['sekvontapagxo']) {
ligu($_SESSION['sekvontapagxo'], "Reen");
} else {
if ($_SESSION['partoprenanto']) {
ligu('partrezultoj.php', "Reen");
}
}
HtmlFino();
} else {
$en_ordo = true;
}
}
if ($en_ordo) {
akceptada_instrukcio("Lau^ mi, c^ambroj en ordas.");
ligu_sekvan("Bone.");
} else {
ligu_sekvan("Ne, mi ne volas. ");
}
akceptado_kesto_fino();
if ($partopreno->datoj['domotipo'] == 'J') {
switch ($nombro) {
case 0:
eoecho("<p>{$Ri} bezonas c^ambron, sed tiu ankorau^ ne rezervig^is" . " por {$ri}.");
ligu('cxambroj.php', "Elektu c^ambron");
echo "</p>";
break;
case 1:
$linio = mysql_fetch_assoc($sql_rez);
if ($linio['rezervtipo'] == 'r') {
eoecho("<p>{$Ri} jam havas rezervitan c^ambron:<br />");
} else {
eoecho("<li>{$Ri} jam havas disdonitan c^ambron:<br />");
}
montru_cxambron($linio['cxambro'], $_SESSION['renkontigxo'], $partoprenanto, $partopreno);
break;
default:
eoecho("<p>{$Ri} s^ajne havas pli ol unu liton:</p><div>");
$montritaj_cxambroj = array();
while ($linio = mysql_fetch_assoc($sql_rez)) {
}
HtmlKapo();
eoecho("<h2>Diversaj serc^oj</h2>\n");
if ($_POST['sendu'] == 'dauxrigu') {
$valoroj = kopiuSercxon();
$kodita = base64_encode(kodiguSercxon($valoroj));
eoecho("<h3>Konservu serc^on</h3>");
echo "<form action='sercxoj.php' method='post'>\n<p>";
eoecho("Bonvolu entajpi nomon kaj priskribon por via serc^o." . " Eblas uzi la c^-kodigon por la esperantaj supersignoj" . " (E^ por E^).</p>\n<p>\n");
echo "<input type='hidden' name='sercxo' value='{$kodita}'>\n";
echo "Nomo: <input name='nomo' type='text' /> <br/>\n";
echo "Priskribo: <textarea name='priskribo' rows='5' cols='50'></textarea>\n";
butono("konservu", "Konservu");
echo "</p>\n</form>";
HtmlFino();
return;
}
if ($_REQUEST['sendu'] == 'forigu') {
foriguSercxon($id);
}
// echo "<!-- POST: \n";
// var_export($_POST);
// // echo "\n valoroj: \n";
// // var_export($valoroj);
// echo "-->\n";
if ($_POST['sendu'] == 'konservu') {
konservuSercxon($_POST['nomo'], $_POST['priskribo'], base64_decode($_POST['sercxo']), $_POST['ID']);
}
sercxoElektilo();
ligu("gxenerala_sercxo.php", "Nova Serc^o");
HtmlFino();
$renkontigxo = $_SESSION['renkontigxo'];
HtmlKapo();
?>
<h1>Ne-nulaj saldoj</h1>
<p>Jen listo de cxiuj partoprenantoj de aktuala IS, kies pago-kotizo-saldo
estas ne-nula (t.e. pli ol 0.5 €).</p>
<?php
$sumo_pos = 0;
$sumo_neg = 0;
while ($linio = mysql_fetch_assoc($rez)) {
$prenanto = new Partoprenanto($linio['partoprenantoID']);
$preno = new Partopreno($linio['ID']);
$kot = new Kotizo($preno, $prenanto, $renkontigxo);
$enda = $kot->pagenda;
if (abs($enda) >= 1.0) {
ligu("partrezultoj.php?partoprenantoidento=" . $linio['partoprenantoID'] . "&partoprenidento=" . $linio['ID'] . "&montrukotizo=montru", $prenanto->datoj['personanomo'] . " " . $prenanto->datoj['nomo']);
eoecho(" pagis: " . ($kot->surlokapago + $kot->antauxpago) . ", kotizo: " . $kot->kotizo . ", ");
if ($enda > 0) {
echo "restas pagenda: <span style='color: red;'>" . $enda . "</span><br/>\n";
$sumo_pos += $enda;
} else {
echo "repagenda: <span style='color: darkgreen;'>" . -$enda . "</span><br/>\n";
$sumo_neg += -$enda;
}
}
}
echo "<p>Entute restas pagenda <span style='color: red;'>{$sumo_pos}</span>, restas repagenda <span style='color: darkgreen;'>{$sumo_neg}</span></p>";
HtmlFino();
exit;
} else {
if ('germanoj_laux_lando' == $elekto) {
$alia = mysql_fetch_assoc($rez);
if ($alia) {
eoecho("<p>Ekzistas ");
ligu("nova_teksto.php?id=" . $alia['ID'], "germana versio de tiu teksto");
eoecho(".</p>");
} else {
eoecho("<p>Por tiu teksto devus ekzisti germana versio.");
ligu("nova_teksto.php?mesagxoID=" . $_REQUEST['mesagxoID'] . "_de", "Kreu g^in");
echo "</p>";
}
}
}
}
?>
<form action='nova_teksto.php' method='POST'>
<table class='tekstoj-redaktilo'>
<?php
tabelentajpejo("Identifikilo", 'mesagxoID', $_REQUEST['mesagxoID'], 30, $id_postt);
granda_tabelentajpejo("Teksto", 'teksto', $_REQUEST['teksto'], '70', '10');
echo "</table>";
if ($_REQUEST['id']) {
tenukasxe('id', $_REQUEST['id']);
butono('sxangxu', 'S^ang^u');
} else {
butono("aldonu", "Aldonu");
}
ligu("tekstoj.php", "Reen al la teksto-listo");
ligu("renkontigxo.php", "Reen al la renkontig^o");
ligu("administrado.php", "Reen al la grava administrado");
echo "</form>";
HtmlFino();
function sxangxuEntajpanton(&$entajpanto)
{
if ($_POST['ID'] != $entajpanto->datoj['ID']) {
// oni nur sxangxu siajn proprajn datojn
darf_nicht_sein("ID = '" . $_POST['ID'] . "' != '" . $entajpanto->datoj['ID'] . "' = entajpanto-ID!");
return;
}
$sxangxita = false;
if ($_POST['sendanto_nomo'] and $_POST['sendanto_nomo'] != $entajpanto->datoj['sendanto_nomo']) {
$entajpanto->datoj['sendanto_nomo'] = $_POST['sendanto_nomo'];
$sxangxita = true;
}
if ($_POST['retposxtadreso'] and $_POST['retposxtadreso'] != $entajpanto->datoj['retposxtadreso']) {
$entajpanto->datoj['retposxtadreso'] = $_POST['retposxtadreso'];
$sxangxita = true;
}
if ($_POST['partoprenanto_id'] != $entajpanto->datoj['partoprenanto_id']) {
$num_id = intval($_POST['partoprenanto_id']);
if ($num_id) {
$sql = datumbazdemando("ID", "partoprenantoj", "ID = '{$num_id}'");
$rez = sql_faru($sql);
if (mysql_num_rows($rez) < 1) {
erareldono("Ne ekzistas partoprenanto kun ID = #" . $num_id . " - mi ne s^ang^as vian " . "partoprenanto-Identigilon!");
} else {
$entajpanto->datoj['partoprenanto_id'] = $num_id;
$sxangxita = true;
}
} else {
$entajpanto->datoj['partoprenanto_id'] = null;
$sxangxita = true;
}
}
if ($_POST['pasvorto']) {
if ($_POST['pasvorto'] == $_POST['dua_pasvorto']) {
$entajpanto->datoj['kodvorto'] = $_POST['pasvorto'];
$entajpanto->skribu();
eoecho("<p>Mi s^ang^is la pasvorton. Bonvolu denove ");
ligu("komenci.php", "ensaluti");
echo "!</p>";
protokolu("pasvorts^ang^o");
$_SESSION["kodvorto"] = "";
$_SESSION["kodnomo"] = "";
unset($_SESSION['kkren']);
session_destroy();
HtmlFino();
exit;
} else {
erareldono("Bonvolu entajpi dufoje la saman pasvorton!");
// erarmesagxo
}
}
if ($sxangxita) {
$entajpanto->skribu();
eoecho("<p>Mi s^ang^is viajn entajpanto-detalojn.</p>");
} else {
echo "<!-- nenio sxangxenda -->";
}
}
