/** * @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 -->"; } }