function formatu_personkostotipon($tipo) { if (rajtas('teknikumi')) { return donu_ligon("personkostotipo.php?id=" . $tipo->datoj['ID'], $tipo->datoj['nomo']); } else { return $tipo->datoj['nomo']; } }
/** * formatas la nomon de tiu regulo. * * depende tio, cxu la uzanto havas la rajton 'teknikumi', * ni metas ligon por redakti tiun objekton, aux simple nur * la nomon. * @return eostring */ function formatu_nomon() { if (rajtas("teknikumi")) { return donu_ligon("regulo.php?tipo=" . $this->tipo . "&id=" . $this->datoj['ID'], $this->datoj['nomo']); } else { return $this->datoj['nomo']; } }
/** * kreas tabelon de ĉiuj pseŭdopagoj por iu partoprenanto. * @param asciistring $tipo la tipo de pseŭdopago * (pago, rabato, krom) * @param int $partoprenoID * @param asciistring $rajto se estas tiu rajto, ni montras ligon * por redakti en la unua kolumno. */ function tabelu_pseuxdopagojn_por($tipo, $partoprenoID, $rajto) { $sql = datumbazdemando(array("ID", "kvanto", "valuto", "tipo", "dato"), $GLOBALS['pp_tabelnomoj'][$tipo], array("partoprenoID" => $partoprenoID)); $kolumnoj = array(array('ID', '', '–>', 'z', "pago-detaloj.php?klaso=" . $tipo . "&id=XXXXX", ''), array('dato', 'dato', 'XXXXX', 'l', '', '-1'), array('kvanto', 'sumo', 'XXXXX', 'r', '', '-1'), array('valuto', 'val.', "XXXXX", 'r', '', -1), array("tipo", "tipo", 'XXXXX', 'l', '', '-1')); if (!rajtas($rajto)) { array_shift($kolumnoj); } sercxu($sql, array("dato", "desc"), $kolumnoj, array(array('', '', array('∑ XX', 'N', 'z'))), $tipo . "j-partrezultoj", 0, 0, "", '', 'ne'); }
<?php require_once 'iloj/iloj.php'; malfermu_datumaro(); session_start(); if (!rajtas("mono")) { ne_rajtas(); } if (isset($jena)) { $pago = new Pago($jena); } elseif (isset($sendu)) { $pago = $_SESSION["pago"]; // estos remetita en $_SESSION["pago"] je la fino. $pago->kopiu(); //$pago->montru(); if ($pago->datoj[ID] == "") { $pago->kreu(); } if (kontrolu_daton($pago->datoj[dato])) { $pago->skribu(); // echo "<font color=red> pagon sekurata</font>"; $pago = new Pago($pago->datoj[ID]); } else { $parto = "korekti"; } } else { $pago = new Pago(0); $pago->datoj[partoprenoID] = $_SESSION["partopreno"]->datoj[ID]; } HtmlKapo(); //echo "<BR><BR>";
entajpbutono("<TD>", 'tejomembropost', $tejomembropost, '-', '-', "egalas", "kutima"); echo "<tr><th>" . organizantoj_nomo . "-ano:</th>"; entajpbutono("<TD>", KKRen, $KKRen, J, J, jes); entajpbutono("<TD>", KKRen, $KKRen, n, n, ne); entajpbutono("<TD>", KKRen, $KKRen, a, ambaux, "egalas", "kutima"); eoecho("<tr><th>Mang^maniero:</th>"); entajpbutono("<td>", vegetare, $vegetare, 'J', 'J', "Vegetarano"); entajpbutono("<td>", 'vegetare', $vegegate, 'A', 'A', "Vegano"); entajpbutono("<td>", vegetare, $vegetare, 'N', 'N', "Viandmang^anto"); entajpbutono("<td>", vegetare, $vegetare, '?', '?', "egalas", "kutima"); echo "<tr><td><b>partopreno:</b>"; entajpbutono("<td>", partoprentipo, $partoprentipo, t, t, "t-tempe"); entajpbutono("<td>", partoprentipo, $partoprentipo, p, p, "p-tempe"); entajpbutono("<td>", partoprentipo, $partoprentipo, a, ambaux, "egalas", "kutima"); entajpbokso("<tr><td><td>", kuncxambroj, $kuncxamrboj, J, J, "kun c^ambroj"); if (rajtas("cxambrumi")) { entajpbokso("<td>", tutacxambro, $tutacxambro, T, T, "kun la tutaj c^ambroj"); } entajpbokso("<tr><td><td>", kunadreso, $kunadreso, J, J, "kun adreso"); eoecho("<tr><td><b>domtipo:</b>"); $tipolisto = listu_konfigurojn('logxtipo'); echo "<td colspan='3'>"; foreach ($tipolisto as $konf) { entajpbutono(" ", 'domotipo', "", "-", $konf->datoj['interna'], $konf->datoj['teksto'] . " | "); } entajpbutono("</td><td>", 'domotipo', "-", "-", "?", "egalas"); eoecho("<tr><td><b>c^ambrotipo:</b>"); entajpbutono("<td>", cxambrotipo, $cxambrotipo, u, u, "unuseksa"); entajpbutono("<td>", cxambrotipo, $cxambrotipo, g, g, "gea"); entajpbutono("<td>", cxambrotipo, $cxambrotipo, a, ambaux, "ambau^", "kutima"); eoecho("<tr><td><b>dulita c^ambro:</b>");
/** * forigas konservitan serĉon. * * Antaŭe la funkcio kontrolas la rajton: la aktuala uzanto devas esti * la kreinto de la serĉo aŭ havi la rajton teknikumi. * * @param $id identigilo de la konservita serĉo. */ function foriguSercxon($id) { $sql = datumbazdemando("entajpanto", "sercxoj", "ID = '{$id}'"); $rez = sql_faru($sql); if (!($linio = mysql_fetch_assoc($rez))) { eoecho("<p>ne ekzistas serc^o kun ID = '{$id}'</p>"); return; } if ($linio['entajpanto'] != $_SESSION['kkren']['entajpanto'] and !rajtas('teknikumi')) { eoecho("<p>Vi rajtas forigi nur viajn proprajn serc^ojn, " . "ne tiujn de alia entajpanto.</p>"); return; } forigu_el_datumbazo("sercxoj", $id); }
<?php require_once 'iloj/iloj.php'; require_once 'iloj/iloj_sercxo.php'; session_start(); malfermu_datumaro(); unset($_SESSION["partoprenanto"]); unset($_SESSION["partopreno"]); if (!rajtas("vidi")) { ne_rajtas(); } 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";
/** * Metas HTML-ligilon, se la nuna entajpanto rajtas * iun agon. Alikaze montras strekitan tekston (sen ligilo). * * $kien - la ligota pagxo * $nomo - nomo de la ligilo * $celo - la kadron, en kiu la pagxo montrigxu * (nur necesa, se ne la defauxlta) * $ago - la ago, por kiu oni bezonas la rajton. * $montru - se ne komencas per "j", kaj oni ne rajtas, * la teksto tute ne montrigxu. */ function rajtligu($kien, $nomo, $celo = "", $ago = "", $montru = "j") { // Ni testas, cxu oni rajtas iri al la ligota pagxo if (rajtas($ago)) { ligu($kien, $nomo, $celo); } else { if ($montru[0] == 'j') { eoecho("<a class='nerajtas'>\n {$nomo} \n</a>"); } } }
require_once $prafix . '/tradukendaj_iloj/iloj_konfirmilo.php'; echo "<pre>" . kreu_unuan_konfirmilan_tekston($_SESSION['partoprenanto'], $_SESSION['partopreno'], $partopreno_renkontigxo, 'utf-8') . "</pre>\n<p>"; if (rajtas("retumi")) { ligu_butone("partrezultoj.php?partoprenidento=" . $partopreno->datoj['ID'], "sendi la unuan konfirmilon", array('faru' => 'sendu_unuan_konfirmilon')); } else { eoecho("Vi ne havas la rajton por elsendi" . " la mesag^on."); } echo "</p>\n"; } if ('informmesagxo' == $_REQUEST['faru']) { eoecho("<hr /><h3>La informmesag^o</h3>"); require_once $prafix . '/tradukendaj_iloj/iloj_konfirmilo.php'; echo "<pre>"; echo kreu_informmesagxan_tekston($_SESSION['partoprenanto'], $_SESSION['partopreno'], $partopreno_renkontigxo, 'x-metodo'); echo "</pre><p>"; if (rajtas("retumi")) { ligu_butone("partrezultoj.php?partoprenidento=" . $partopreno->datoj['ID'], "sendi la informmesag^on", array('faru' => 'sendu_informmesagxon')); } else { eoecho("Vi ne havas la rajton por elsendi" . " la mesag^on."); } echo "</p>\n"; } if ($_REQUEST['faru'] == 'sendu_unuan_konfirmilon') { kontrolu_rajton('retumi'); require_once $prafix . '/iloj/retmesagxiloj.php'; require_once $prafix . '/tradukendaj_iloj/iloj_konfirmilo.php'; require_once $prafix . '/iloj/diversaj_retmesagxoj.php'; $teksto = kreu_kaj_sendu_unuan_konfirmilon($_SESSION["partoprenanto"], $_SESSION["partopreno"], $partopreno_renkontigxo, $_SESSION['kkren']['entajpantonomo']); echo "<p>Ni sendis la jenan unuan konfirmilon:</p><pre>"; echo eotransformado($teksto, 'utf-8'); echo "</pre>";
$retkomparo = "(pp.retposxto = '" . $p_anto->datoj["retposxto"] . "')"; } else { // ne sencas sercxi cxiujn homojn, kiuj ankaux ne donis retadreson. $retkomparo = "0"; } $sql = datumbazdemando(array("pp.ID", "pp.nomo", "personanomo", "max(renkontigxoID) as renkNumero"), array("partoprenantoj" => "pp", "partoprenoj" => "pn"), array("pn.partoprenantoID = pp.ID", "(pp.nomo = '" . $p_anto->datoj["nomo"] . "') or " . "(pp.personanomo = '" . $p_anto->datoj["personanomo"] . "') or " . "(pp.naskigxdato = '" . $p_anto->datoj["naskigxdato"] . "') or " . $retkomparo), "", array("group" => "pp.ID", "order" => "personanomo, nomo")); // la nomo estas "peter", por ke la jxavoskripto povas uzi gxin. echo '<form name="peter" action="transferi.php" method="GET">'; echo '<table><tr><td>'; partoprenanto_elektilo($sql, 10, "fonto", "kun_identifikilo"); echo '</td><td>'; eoecho('<button name="sendu" value="vidu" type="submit" >Vidu</button> la ' . 'partoprenantojn, kiuj similas al la elektita persono!' . "\n<br />\n"); eoecho('<button name="sendu" value="detaloj" type="submit" >Rigardu</button> la ' . 'detalojn de la elektita persono!' . "\n<br/>\n"); echo '</td></tr></table>'; echo '<input type="hidden" name="celo" value="' . $p_anto->datoj["ID"] . '" />'; echo "<p>"; if (rajtas('estingi')) { eoecho('<button name="sendu" value="transferuDe" type="submit" >Transferu</button>' . ' c^iujn partopren-datojn de la elektita persono <strong>al ' . $priskribo . "</strong>! \n<br />\n"); eoecho('<button name="sendu" value="transferuAl" type="submit" >Transferu</button>' . ' c^iujn partoprenojn-datojn de ' . $priskribo . " <strong>al la elektita persono</strong>!\n</p>\n"); eoecho("<p> Se la persono ne trovig^as tiel, vi povas elekti lin el la maldekstra menuo.<br/>\n"); // cxi tien la Jxavoskripto metas la valoron el la maldekstra menuo tenukasxe("kune", "0"); // kiam oni alklakas iun de la du butonon, la jxavoskripto en "cxiujpagxoj.js" // estas vokita por enmeti la valoron el la menuo. eoecho('<button name="sendu" value="transferuDeMenuo" type="submit"' . ' onclick="reindamit()">Transferu</button> ' . "de la persono elektita en la listo sub la maldekstra menuo <strong>al " . $priskribo . "</strong>!<br/>\n"); eoecho('<button name="sendu" value="transferuAlMenuo" type="submit"' . ' onclick="reindamit()">Transferu</button> ' . "de " . $priskribo . " <strong>al la persono elektita en la" . " listo sub la maldekstra menuo</strong>!</p>\n"); } else { eoecho("<p> Vi ne povas s^ang^i ion ajn, c^ar vi ne havas la necesajn rajtojn. " . "Se vi pensas, ke vi havu, plendu c^e Pau^lo.</p>\n"); } echo "\n</form>\n"; HtmlFino();
/* rajtligu("ekzporti.php","ekzporti datumojn","anzeige","ekzporti"); echo "<BR>\n";*/ rajtligu("statistikoj.php", "vidi statistikojn", "anzeige", "statistikumi"); echo "<BR>\n"; // rajtligu("demandoj.php","pliaj statistikojn","anzeige","vidi"); rajtligu("administrado.php", "grava administrado", "anzeige", "administri"); echo "<BR>\n"; ligu("menuo.php", "revoku la menuon", "is-aligilo-menuo", "jes"); echo "<BR>\n"; rajtligu("index.php", "PHPMyAdmin", "top", "teknikumi", "ne"); echo "<BR>\n"; rajtligu("probieren/", "Elprovejo", "", "teknikumi", "ne"); echo "<BR>\n"; ligu("fino.php", "au^ forlasi c^i tie", "_top", "jes"); echo "</P>\n"; if (rajtas(vidi)) { // Kial cxiam kalkuli la rezultojn, se oni nur // kelkfoje montras ilin? -> mi sxovis la kalkuladon // en la interon de la "if". if (isset($sercxfrazo)) { $sql = stripslashes($sercxfrazo) . " order by personanomo, nomo"; } else { // $rezulto = sql_faru("select pp.ID,Malnova,nomo,personanomo,max(renkontigxoID) from partoprenantoj as pp,partoprenoj as pn where pn.partoprenantoID = pp.ID group by pp.ID order by personanomo,nomo"); $sql = datumbazdemando(array("pp.ID", "pp.nomo", "personanomo", "max(renkontigxoID)" => "renkNumero"), array("partoprenantoj" => "pp", "partoprenoj" => "pn"), "pn.partoprenantoID = pp.ID", "", array("group" => "pp.ID", "order" => "personanomo, nomo")); //sql_faru("select ID,renkontigxoID,partoprenantoID from partoprenoj where partoprenantoID='".$row[ID]."' order by renkontigxoID desc"); } ?> <hr id="elektilo-anker" /> <form method="post" id="elektu" name="elektu" action="route.php" target="anzeige"> <?php if (isset($sercxfrazo)) {
rajtligu("kotizoj.php", "Kotizoj kaj -kalkulado", "anzeige", "vidi"); echo "<BR>\n"; rajtligu("cxambroj.php?cx_ago=forgesu", "Disdoni c^ambrojn", "anzeige", "cxambrumi"); echo "<BR>\n"; /* rajtligu("ekzporti.php","ekzporti datumojn","anzeige","ekzporti"); echo "<BR>\n";*/ rajtligu("statistikoj.php", "vidi statistikojn", "anzeige", "statistikumi"); echo "<BR>\n"; // rajtligu("demandoj.php","pliaj statistikojn","anzeige","vidi"); rajtligu("administrado.php", "grava administrado", "anzeige", "administri"); echo "<BR>\n"; ligu("menuo.php", "revoku la menuon", "is-aligilo-menuo", "jes"); echo "<BR>\n"; ligu("fino.php", "au^ forlasi c^i tie", "_top", "jes"); echo "</P>\n"; if (rajtas('vidi')) { // Kial cxiam kalkuli la rezultojn, se oni nur // kelkfoje montras ilin? -> mi sxovis la kalkuladon // en la interon de la "if". if (isset($sercxfrazo)) { $sql = stripslashes($sercxfrazo) . " order by personanomo, nomo"; } else { // $rezulto = sql_faru("select pp.ID,Malnova,nomo,personanomo,max(renkontigxoID) from partoprenantoj as pp,partoprenoj as pn where pn.partoprenantoID = pp.ID group by pp.ID order by personanomo,nomo"); // TODO: ebligu "left join" cxi tie. $sql = datumbazdemando(array("pp.ID", "pp.nomo", "personanomo", "(1)" => "renkNumero"), array("partoprenantoj" => "pp"), "", "", array("order" => "personanomo, nomo")); // $sql = datumbazdemando(array("pp.ID", "pp.nomo", "personanomo", // "max(renkontigxoID)" => "renkNumero" ), // array("partoprenantoj" => "pp", // "partoprenoj" => "pn" ), // "pn.partoprenantoID = pp.ID", // "",
if ($_SESSION["partopreno"]->datoj[aligxkategoridato] == "0000-00-00") { $_SESSION["partopreno"]->datoj[aligxkategoridato] = ""; } entajpejo("<br> relevanta dato por la alig^kategorio:", aligxkategoridato, $_SESSION["partopreno"]->datoj[aligxkategoridato], 11, "", "", " (jaro-monato-tago)<BR>(Nur uzu por specialaj rabatoj)"); if ($_SESSION["partopreno"]->datoj[aligxkategoridato] and !kontrolu_daton($_SESSION["partopreno"]->datoj[aligxkategoridato])) { erareldono("La dato kion vi entajpis ne ekzistas au^ estis malg^uste."); } entajpejo("<br> alvenodato (de la malalig^ilo):", 'malaligxdato', $_SESSION["partopreno"]->datoj['malaligxdato'], 11, "", "0000-00-00", " (jaro-monato-tago)"); if (is_null($_SESSION["partopreno"]->datoj['malaligxdato']) and !kontrolu_daton($_SESSION["partopreno"]->datoj['malaligxdato'])) { erareldono("La dato kion vi entajpis ne ekzistas au^ estis malg^uste."); } if (kalkulu_tagojn($_SESSION["partopreno"]->datoj["aligxdato"], $_SESSION["partopreno"]->datoj["malaligxdato"]) < 0) { erareldono("La malalig^dato estas antau^ la alig^dato."); } echo "<BR>"; if (rajtas("administri")) { entajpejo("<br> 1a konfirmilo sendata:", '1akonfirmilosendata', $_SESSION["partopreno"]->datoj['1akonfirmilosendata'], 11, "", "", " (jaro-monato-tago)"); entajpejo("<br> 2a konfirmilo sendata:", '2akonfirmilosendata', $_SESSION["partopreno"]->datoj['2akonfirmilosendata'], 11, "", "", " (jaro-monato-tago)"); } if ($_SESSION["partopreno"]->datoj[ID]) { echo "partopreno-ID: " . $_SESSION["partopreno"]->datoj[ID] . " <BR>\n"; } // muss noch ge䮤ert werden echo "<p align=center>\n"; entajpbokso("", "nekontrolup", $nekontrolup, "JES", "JES", "Se vi maldeziras datkontroladon pro problemojn, marku c^i tie.<BR>"); echo "<hr/><p><b>Por A- kaj B-Landanoj: </b>\n"; eoecho("Precipe mi konscias, ke mia alig^o validas nur ekde la " . "alveno de mia antau^pago c^e GEJ.</p>"); entajpbokso("", "konsento", $konsento[0], "J", "JES", "Mi legis kaj agnoskas la suprajn kondic^ojn.<br/>", "J"); if ($_SESSION["ago"] == "sxangxi") { if ($_SESSION['sekvontapagxo']) { ligu($_SESSION['sekvontapagxo'], "ne s^ang^u kaj pluen");
$ri = $_SESSION['partoprenanto']->personapronomo; $Ri = ucfirst($ri); eoecho("Kunlog^deziroj de kaj pri {$ri}:"); // !!!!!!!!!!!!!!!! require_once $prafix . "/iloj/iloj_kunlogxadoj.php"; montru_kunlogxdezirojn_ambauxdirekte($_SESSION['partopreno'], "↑"); // provizore nur por teknikumistoj, por elprovi: rajtligu("kunlogxado.php?ago=sercxu", "serc^u kunlog^dezirojn", "", "teknikumi"); } } } echo "</TD></TR></TABLE>\n"; if ($faru == 'konfirmi') { echo nl2br(faru_1akonfirmilon($_SESSION["partoprenanto"], $_SESSION["partopreno"], $partopreno_renkontigxo)); echo "<BR><BR>"; if ($_SESSION["partoprenanto"]->datoj[retposxto] and rajtas(retumi)) { ligu("partrezultoj.php?faru=sendukonfirmo", "--> sendi 1an konfirmilon"); } echo "<hr/><p>La nova unua konfirmilo:</p>"; require_once $prafix . '/iloj/iloj_konfirmilo.php'; echo "<pre>" . kreu_unuan_konfirmilan_tekston($partoprenanto, $partopreno, $renkontigxo, 'utf-8') . "</pre>"; ligu("partrezultoj.php?faru=sendu_unuan_konfirmilon", "sendi la novan unuan konfirmilon"); } if ($faru == 'sendu_unuan_konfirmilon') { require_once $prafix . '/iloj/retmesagxiloj.php'; require_once $prafix . '/iloj/iloj_konfirmilo.php'; require_once $prafix . '/iloj/diversaj_retmesagxoj.php'; $teksto = kreu_kaj_sendu_unuan_konfirmilon($_SESSION["partoprenanto"], $_SESSION["partopreno"], $partopreno_renkontigxo, $_SESSION['kkren']['entajpantonomo']); echo "<p>Ni sendis la jenan unuan informilon:</p><pre>"; echo eotransformado($teksto, 'utf-8'); echo "</p>";
<?php require 'iloj/iloj.php'; malfermu_datumaro(); session_start(); if (!rajtas("rabati")) { ne_rajtas(); } if (isset($jena)) { $rabato = new Rabato($jena); } elseif (isset($sendu)) { $rabato = $_SESSION["rabato"]; $rabato->kopiu(); //$rabato->montru(); if ($rabato->datoj[ID] == "") { $rabato->kreu(); } $rabato->skribu(); // echo "<font color=red> rabato sekurata</font>"; // resxargxu el la datumbazo $rabato = new Rabato($rabato->datoj[ID]); } else { $rabato = new Rabato(0); $rabato->datoj[partoprenoID] = $_SESSION["partopreno"]->datoj[ID]; } // dauxrigu la rabaton por la onta fojo $_SESSION["rabato"] = $rabato; HtmlKapo(); //echo "<BR><BR>"; echo "<center>"; if ($parto == "korekti") {
/** * 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>"); } }
if (rajtas('teknikumi')) { entajpbutono("<p>", "kio", $kio, "backup_programo", "backup_programo", "Kreu sekurkopion de la programo.</p>"); } send_butono('Faru!'); echo "</FORM>\n"; eoecho("<h2>Aliaj gravaj aferoj</h2>"); rajtligu("landoj.php", "rigardu kaj eble s^ang^u la landoliston", "", "administri"); eoecho("<br/>"); eoecho("<p>Elprintu partoprenstatistikon:<br/>\n"); rajtligu("demandoj.php", "partopren statistikojn", "", "administri"); echo "(das ist leider zur Zeit etwas kaputt) <br/>"; rajtligu("finkalkulado.php", "IS - Abrechnung", "", "administri"); echo "<br/>"; rajtligu("cxambrostatistiko.php", "montru la c^ambrostatistikon kaj la mang^statistikon", "", "administri"); echo "</p>"; if (rajtas("teknikumi")) { eoecho("<h2>Nur por teh^nikistoj</h2>\n<p>"); rajtligu("entajpantoj.php", "rigardu kaj eble s^ang^u la entajpantoliston", "", "teknikumi"); eoecho("<br/>"); rajtligu("renkontigxo.php", "redaktu la renkontig^o-datumojn", "", "teknikumi"); eoecho("<br/>"); rajtligu("kreu_cxambron.php", "kreu novan c^ambron", "", "teknikumi"); eoecho("</p>"); } echo "<hr/>\n"; if ($kio == 'gepatra_permeso') { require_once 'iloj/kreu_konfirmilon.php'; $kon = new Konfirmilo(); $kon->kreu_permesilon(0, $_SESSION['renkontigxo'], $perm_tipo == "vira"); $dosiernomo = "dosieroj_generitaj/permesilo_" . $perm_tipo . ".pdf"; $kon->sendu($dosiernomo);
* * @author Paul Ebermann * @version $Id$ * @package aligilo * @subpackage pagxoj * @copyright 2009 Paul Ebermann. * Uzebla laŭ kondiĉoj de GNU Ĝenerala Publika Permesilo (GNU GPL) */ /** */ require_once 'iloj/iloj.php'; session_start(); malfermu_datumaro(); // TODO: kiu rajto? kontrolu_rajton("vidi"); if (rajtas("sxangxi") or $_SESSION['kkren']['entajpantonomo'] == 'tejo-volontulo') { $rajtas_sxangxi = true; } else { $rajtas_sxangxi = false; } /** * 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) {
<?php /* ################################################################################### */ /* Cxi tie okazas la kontrolo de la aligxado de PARTOPRENANTOJ, k.e. nomo, adreso ktp. */ /* ################################################################################### */ require_once 'iloj/iloj.php'; session_start(); malfermu_datumaro(); if (!rajtas("aligi")) { ne_rajtas(); } //kontrolado de la datoj if ($nekontrolu != "JES") { $parto = "kontroli"; if (!kontrolu_daton($naskigxdato) or $sekso != "ina" and $sekso != "vira") { $parto = "korektigi"; } malplentesto($nomo); malplentesto($personanomo); if (KAMPOELEKTO_IJK) { malplentesto($adreso); } else { malplentesto($strato); } malplentesto($urbo); //malplentesto($posxtkodo); } $_SESSION["partoprenanto"]->kopiu(); if ($parto == "korektigi") { require "partoprenanto.php"; } else {
/** * montras ligojn al aliaj administraj paĝoj, depende de la * rajtoj de la aktuala uzanto. */ function montru_aliajn_ligojn() { eoecho("<h2>Aliaj gravaj aferoj</h2>"); rajtligu("landoj.php", "rigardu kaj eble s^ang^u la landoliston", "", "administri"); eoecho("<br/>"); eoecho("<p>Elprintu partoprenstatistikon:<br/>\n"); rajtligu("demandoj.php", "partopren statistikojn", "", "administri"); echo "(das ist leider zur Zeit etwas kaputt) <br/>"; rajtligu("finkalkulado.php", "Finkalkulado", "", "administri"); echo "<br/>"; rajtligu("cxambrostatistiko.php", "montru la c^ambrostatistikon kaj la mang^statistikon", "", "administri"); echo "</p>"; if (!rajtas("teknikumi")) { echo "<hr/>\n"; return; } echo "<hr/>\n"; eoecho("<h2>Nur por teh^nikistoj</h2>\n<p>"); if (mangxotraktado == "libera") { ligu("mangxredakto.php", "Mang^o-listo"); } rajtligu("entajpantoj.php", "rigardu kaj eble s^ang^u la entajpantoliston", "", "teknikumi"); eoecho("<br/>"); rajtligu("renkontigxo.php", "redaktu la renkontig^o-datumojn", "", "teknikumi"); eoecho("<br/>"); rajtligu("kreu_cxambron.php", "kreu novan c^ambron", "", "teknikumi"); eoecho("<br/>Internaj dosierujoj: "); echo "<span class='speciala'>"; rajtligu("specialaj_skriptoj/", "specialaj skriptoj", "", "teknikumi"); echo "</span>"; rajtligu("dosieroj/", "dosieroj", "", "teknikumi"); rajtligu("instalilo/", "instalilo", "", "teknikumi"); rajtligu("dosieroj_generitaj/", "dosieroj generitaj", "", "teknikumi"); rajtligu("doku/", "dokumentaj^oj", "", "teknikumi"); eoecho("</p>"); eoecho("\n <h3 id='renkkonfig'>Renkontig^o-konfiguroj</h3>\n <p>\n La renkontig^o-konfiguroj estas uzataj ekzemple por la listo de\n pagotipoj, kialoj por individuaj rabatoj kaj krompagoj, valutoj\n kaj log^tipoj, kiuj estas specifaj por c^iu renkontig^o.\n </p>\n"); $num = eltrovu_gxenerale("count(*)", 'renkontigxaj_konfiguroj', array(), array('renkontigxo' => 'renkontigxoID')); eoecho("\n <p>\n Nun estas {$num} konfiguroj por la aktuala renkontig^o (" . $_SESSION['renkontigxo']->datoj['mallongigo'] . "). "); ligu("renkontigxaj_konfiguroj.php", "vidu la liston kaj eble redaktu ion"); ligu("renkontigxaj_konfiguroj.php?id=nova", "kreu novan konfiguron"); eoecho("\n </p>\n"); eoecho("\n <h3 id='kurzoj'>Kurzoj</h3>\n <p>"); ligu("kurzoj.php", "Listu kurzojn kaj aldonu novajn"); echo "</p>\n"; eoecho("\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 = '" . $_SESSION['renkontigxo']->datoj['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"); ligu("tekstoj.php", "Vidu la liston (kaj eble redaktu kelkajn)"); ligu("nova_teksto.php", "Aldonu novan tekston"); echo "</p><p>"; echo "<hr/>\n"; }
/** * elektilo kun OK-butono en propra formulareto. *<pre> * __________ ____ * Titolo [_________] | v | * | | '---' * | | * | | * '---------' *</pre> * aŭ: *<pre> * Titolo valoro *</pre> * * @param eostring $titolo priskribo de la enhavo de la elektilo. * @param urlstring $ago adreso de retpaĝo, kiu akceptas la sendaĵon * (por la 'action'-atributo.) * @param string $nomo nomo de la sendenda informo * @param array $elekteblecoj array() el elekteblecoj, en formo * id => teksto * La tekstoj estos montrataj, la ID estos * sendota al $ago. * @param string|int $defauxlto - ID de la elemento, kiu estos antaŭelektita * @param string $rajto se != "", rajto kiun la uzanto devos havi por * vidi/uzi la elektilon. Alikaze nur estos * montrata la titolo kun la valoro * (= $elekteblecoj[$defauxlto]). * @param eostring $butonteksto teksto por la butono - defaŭlto estas iu hoko. * * @uses elektilo_simpla() * @uses send_butono() */ function elektilo_kun_butono($titolo, $ago, $nomo, $elekteblecoj, $defauxlto, $rajto = "", $butonteksto = "") { // echo "<!-- defaŭlto: " . $defauxlto . "-->"; if ("" == $rajto or rajtas($rajto)) { echo "<form class='formulareto' action='" . htmlspecialchars($ago, ENT_QUOTES) . "' method='post'>"; eoecho("<label>" . $titolo); elektilo_simpla($nomo, $elekteblecoj, $defauxlto); echo "</label>"; if (!$butonteksto) { $butonteksto = "√"; // TODO: pli bona hoko. } send_butono($butonteksto); echo "</form>"; } else { eoecho($titolo); eoecho($elekteblecoj[$defauxlto]); } }
* - Diversaj kontrolajxoj * - kotizkalkulado, kolekto de la pagenda mono * - montro kaj disdono de la cxambro * - disdono de malgrandajxoj * * Sube sur la pagxo estas butono kiu * ebligas aldoni la pagon. * Tiam la vokigxos la pagxo per * $sendu - nomo de la butono (signo, ke oni sendis) * $pago - la valoro de la pago * */ require_once 'iloj/iloj.php'; session_start(); malfermu_datumaro(); if (!rajtas("akcepti")) { ne_rajtas(); } if ($sendu == "Akceptu!") { $pago = new Pago(0); $pago->datoj[partoprenoID] = $_SESSION["partopreno"]->datoj[ID]; $pago->datoj[kvanto] = $kvanto; $pago->datoj[dato] = date("Y-m-d"); $pago->datoj[tipo] = 'surlokpago'; $pago->kreu(); $pago->skribu(); $mono = new Monujo(0); $mono->datoj[renkontigxo] = $_SESSION["renkontigxo"]->datoj[ID]; $mono->datoj[kvanto] = $kvanto; $mono->datoj[kauzo] = "surlokpago de "; $mono->datoj[tempo] = date("Y-m-d H:M:s");
/** * Certigas, ke la nuna uzanto rajtas fari ion. * * Se la uzanto rajtas, nenio okazos. * Se la nuna uzanto ne havas la rajton, ni eldonas * erarmesaĝon kaj finos la skripton. * @param string $ago */ function kontrolu_rajton($ago) { if (!rajtas($ago)) { ne_rajtas($ago); } }
* @version $Id$ * @package aligilo * @subpackage pagxoj * @uses sendu_malauxtomatan_mesagxon_el_POST() * @copyright 2001-2004 Martin Sawitzki, 2004-2008 Paul Ebermann. * Uzebla laŭ kondiĉoj de GNU Ĝenerala Publika Permesilo (GNU GPL) */ /** */ require_once 'iloj/iloj.php'; require_once "iloj/retmesagxiloj.php"; require_once "iloj/diversaj_retmesagxoj.php"; session_start(); malfermu_datumaro(); HtmlKapo(); if (!rajtas("retumi")) { ne_rajtas(); } function sendu_gxin() { sendu_malauxtomatan_mesagxon_el_POST(); eoecho("<p style='color:red'>Mesag^o sendita.</p>"); } function faru_noton_el_gxi() { $noto = new Noto(0); $noto->kreu(); $noto->datoj['partoprenantoID'] = $_POST['ID']; $noto->datoj['kiu'] = $_POST['de_nomo']; $noto->datoj['kunKiu'] = $_POST['alkiu']; $noto->datoj['tipo'] = "rete";