function listu_personkostotipojn() { echo "<p>"; rajtligu("personkostotipo.php", "Nova personkostotipo", "", 'teknikumi'); echo "</p>"; eoecho("<table class='personkostotabelo'>\n" . "<tr><th>ID</th><th>nomo</th><th>priskribo</th><th>uzebla</th>" . "<th>lau^nokte</th></tr>\n"); $tipolisto = listu_cxiujn_personkostotipojn(array()); foreach ($tipolisto as $kromtipo) { eoecho("<tr><td>" . $kromtipo->datoj['ID'] . "</td><td>" . formatu_personkostotipon($kromtipo) . "</td><td>" . $kromtipo->datoj['priskribo'] . "</td><td>" . $kromtipo->datoj['uzebla'] . "</td><td>" . $kromtipo->datoj['lauxnokte'] . "</td></tr>\n"); } echo "</table>"; }
eoecho("<strong> Mankas lito en la sekvaj noktoj: " . implode(", ", $mankantaj_litoj) . "</strong>"); } rajtligu("cxambroj.php", "elektu plian", "", "cxambrumi"); } rajtligu("cxambro_sxangxo.php", "s^ang^i kun aliulo", "", "cxambrumi", ""); } echo "</TD><TD>"; if (nova_kunlogxado) { $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 ('konfirmi' == $_REQUEST['faru']) { echo "<hr/><h3>La unua konfirmilo</h3>"; 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']) {
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); hazard_ligu($dosiernomo, "els^utu " . $perm_tipo . "n permesilon"); } if ($kio == 'n') { require_once 'iloj/kreu_nomsxildojn.php'; eoecho("Elpremu la noms^ildojn por:<BR>"); // kiam ni ne volas presi cxiujn, sed nur la unuajn pagxojn
/** * 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>"; } } }
ligu('sercxrezultoj.php?elekto=laborontajnotoj&montro=' . $tipo, "–> " . $informoj['teksto']); } echo "</p>\n<form action='sercxrezultoj.php'>\n"; eoecho("<p>rigardu notojn por/pri/de: "); tenukasxe('elekto', 'notoj_de_entajpanto'); elektilo_simpla_db('entajpantoid', 'entajpantoj'); send_butono("Rigardu"); echo "</p>\n</form>\n<p>"; ligu("sercxrezultoj.php?elekto=rimarkoj", "–> vidi la rimarkojn de la partoprenantoj"); eoecho("<p>\n<h4>Diversaj^ojn:</h4>\n"); ligu("tejomembroj.php", "Kontrolo de TEJO-membrecoj"); echo "<br/>"; //ligu("sercxrezultoj.php?elekto=kotizokomparo", // "Komparo de nova kaj malnova kotizokalkulado"); //echo "<br/>"; rajtligu("sercxrezultoj.php?elekto=kunlogxantoj", "–> c^iu,kiu deziras kunlog^adon", "", 'cxambrumi', 'ne'); eoecho("<BR>c^iu junulargasto por la c^ambrodisdonado: "); ligu("sercxrezultoj.php?elekto=cxambrodisdonado&nur=antauxpago", "kun antau^pago"); ligu("sercxrezultoj.php?elekto=cxambrodisdonado&nur=cxiuj", "c^iuj"); echo "<BR>"; ligu("sercxrezultoj.php?elekto=skribuagxon", "kalkulu kaj skribu la ag^ojn de la partoprenantoj"); echo "<BR>"; //ligu("sercxrezultoj.php?elekto=profesioj","montru la profesiojn de la partoprenantoj"); //ligu("sercxrezultoj.php?elekto=francoj", "eksportu la francajn partoprenantojn"); //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");
/** * 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"; }
ligu("kotizo.php", "Antau^kalkuli kotizon", "anzeige"); 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"; 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"); } ?>
echo "<BR>\n"; echo "<P class='granda' style='clear:left;'>\n"; rajtligu("partoprenanto.php?sp=forgesu", "Aligi partoprenantojn", "anzeige", "aligi"); echo "<BR>\n"; rajtligu("partsercxo.php", "Serc^i partoprenantojn", "anzeige", "vidi"); echo "<BR>\n"; 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"));
/** * Montras la partoprenanton kiel HTML-tabelo. */ function montru_aligxinto($sen_bla = FALSE) { if (!$sen_bla) { eoecho("Informado pri partoprenantoj...."); // TODO: senĥaosigi ... rajtligu("partoprenforigo.php?partoprenantoidento=" . $this->datoj['ID'], "estingi", "anzeige", "estingi", 'n'); } echo "<table>\n"; kampo("ID:", $this->datoj['ID']); kampo("nomo:", $this->tuta_nomo() . " (" . $this->datoj['sekso'] . ")"); // if ($this->datoj[sxildnomo]!='') // { // kampo("nomo:",$this->datoj[personanomo]." (".$this->datoj[sxildnomo].") ".$this->datoj[nomo]." (".$this->datoj[sekso].")"); // } // else // kampo("nomo:",$this->datoj[personanomo]." ".$this->datoj[nomo]." (".$this->datoj[sekso].")"); if (KAMPOELEKTO_IJK) { kampo("adreso", nl2br($this->datoj['adreso'])); } else { if ($this->datoj['adresaldonajxo']) { kampo("", $this->datoj['adresaldonajxo']); } kampo("strato:", $this->datoj['strato']); } kampo("loko:", $this->datoj['posxtkodo'] . ", " . $this->datoj['urbo']); if ($this->datoj['provinco']) { kampo("provinco:", $this->datoj['provinco']); } kampo("lando:", $this->landonomo() . ' (' . $this->landokategorio() . ')'); if ($this->datoj['sxildlando'] != '') { kampo("s^ildlando:", $this->datoj['sxildlando']); } if (okupigxo_eblas == 'jes') { // TODO: kontrolu, kiuj aliaj partoj de la programo dependas // de tiu opcio (ekzemple // datumbaz-kreilo, aligxilo, p-anto-redaktilo, ktp.) // Eble indas tute forigi gxin. kampo($this->personapronomo . " " . okupigxtipo($this->datoj['okupigxo']), $this->datoj['okupigxteksto']); } kampo("naskita:", $this->datoj['naskigxdato']); if ($this->datoj['telefono']) { kampo("telefono:", $this->datoj['telefono']); } if ($this->datoj['telefakso']) { kampo("telefakso:", $this->datoj['telefakso']); } if ($this->datoj['retposxto']) { kampo("retpos^to:", $this->datoj['retposxto']); switch ($this->datoj['retposxta_varbado']) { case 'n': kampo("-", "ne volas retpos^tajn informojn"); break; case 'j': kampo('x', "volas retpos^tajn informojn x-kode"); break; case 'u': kampo('u', "volas retpos^tajn informojn unikode"); break; } } if (valoro($this->datoj['tujmesagxiloj'])) { kampo("tujmesag^iloj", $this->datoj['tujmesagxiloj']); } if ($this->datoj['ueakodo']) { kampo("UEA-kodo:", $this->datoj['ueakodo']); } echo "</table>\n"; }
function redaktilo_por_regulaj_pseuxdopagoj($sistemo, $tipo) { eoecho("<h2 id='regulaj_" . $tipo . "j'>Regulaj " . $tipo . "j</h2>\n"); echo "<form action='kotizosistemo.php?id=" . $sistemo->datoj['ID'] . "&tipo=" . $tipo . "' method='POST'>\n"; echo "<table class='pseuxdopagoj'>\n"; eoecho(" <tr><th>ID</th><th>tipo</th><th>kvanto</th><th>valuto</th>" . "<th>priskribo</th></tr>\n"); $regulolisto = listu_cxiujn_regulojn($tipo); $neuzitaj = array(); foreach ($regulolisto as $regulo) { $pseuxdopago = $regulo->donu_regulan_pseuxdopagon($sistemo); if ($pseuxdopago) { eoecho("<tr><td>" . $pseuxdopago->datoj['ID'] . "</td><td>" . $regulo->formatu_nomon()); simpla_entajpejo("</td><td>", $tipo . '[' . $pseuxdopago->datoj['ID'] . '][kvanto]', $pseuxdopago->datoj['kvanto'], 6); echo "</td><td>"; simpla_elektolisto_el_konfiguroj($tipo . '[' . $pseuxdopago->datoj['ID'] . '][valuto]', 'valuto', $pseuxdopago->datoj['valuto']); eoecho("</td><td>" . $regulo->datoj['priskribo'] . "</td></tr>\n"); } else { $neuzitaj[] = $regulo; } } // foreach echo "</table>\n<p>"; butono("sxangxu_pagojn", "S^ang^u " . $tipo . "jn"); echo "</p>\n</form>"; if (count($neuzitaj)) { eoecho("<h3 id='regulaj_" . $tipo . "j'>Nova " . $tipo . "</h3>\n"); echo "<form action='kotizosistemo.php?id=" . $sistemo->datoj['ID'] . "&tipo=" . $tipo . "' method='POST'>\n"; echo "<table>\n"; eoecho("<tr><th>regulo</th></tr>\n"); foreach ($neuzitaj as $regulo) { tabel_entajpbutono('', 'regulo', "", $regulo->datoj['ID'], $regulo->formatu_nomon() . " – " . $regulo->datoj['priskribo'], "", true); } tabelentajpejo("kvanto", 'kvanto', "", 6); tabela_elektolisto_el_konfiguroj("valuto", 'valuto', 'valuto', ""); echo "</table>\n<p>"; butono("nova_pago", "Aldonu!"); rajtligu('regulo.php?tipo=' . $tipo, "Nova " . $tipo . "regulo", '', 'teknikumi'); echo "<p></form>\n"; } // if }
/** * Montras cxiujn cxambrojn lauxetagxe. * * $deziratatipo - aux 'u' (unuseksa) aux 'g' (gea) * $sekso - aux 'vira' aux 'malina'. * * La parametroj estas uzata por kolorigi la * cxambrojn laux tauxgeco. * */ function montru_laux_etagxoj($deziratatipo = '', $sekso = '') { $klaso = array("para", "malpara"); $zaehler = 0; $etagxoj = 0; $cxam_sql = datumbazdemando(array("ID", "nomo", "litonombro", "etagxo", "rimarkoj", "tipo"), "cxambroj", "", "renkontigxo", array("order" => "etagxo, nomo")); $cxam_rezulto = sql_faru($cxam_sql); $etagxoj_per_linio = 3; echo '<table border="0" valign="top" width="60%">' . "\n<tr>\n"; $et = '#'; // nomo de la aktuala etagxo while ($row = mysql_fetch_array($cxam_rezulto, MYSQL_ASSOC)) { $listo[$row[nomo]] = $row[ID]; if ($row[etagxo] != $et) { if ($et != '#') { echo "</table></td>\n"; } // sed antauxe finu la malnovan etagxon (kiu havas subtabelon). $zaehler = 0; $et = $row[etagxo]; $etagxoj++; if ($etagxoj > $etagxoj_per_linio) { echo "</tr><tr>\n"; // post kelkaj subtabeloj ni komencu novan linion $etagxoj = 1; } eoecho("<td nowrap>\n" . "<table border=1 width=100%>\n" . '<tr><td nowrap="nowrap" colspan="2"><b>Etag^o'); ligu("cxambroj.php?etagxo=" . $row[etagxo], $row[etagxo]); echo "</td></tr>\n"; } if (tauxgas($deziratatipo, $sekso, $row[tipo])) { $koloro = " tauxga"; } else { if ($row[tipo] == '' or $deziratatipo == '') { $koloro = ""; } else { $koloro = " maltauxga"; } } eoecho("<tr class='" . $klaso[$zaehler % 2] . $koloro . "'>\n" . " <td align=center>" . "<a href='cxambroj.php?cxambronombro=" . $row[ID] . "'>" . $row[nomo] . "</a></td>\n" . " <td width=40>litoj: " . $row[litonombro]); rajtligu("kreu_cxambron.php?id=" . $row[ID], "(red.)", "", "teknikumi", "ne"); echo "</td><td><strong>"; if ($row[tipo] == "v") { echo " (vira)"; } else { if ($row[tipo] == "i") { echo " (ina)"; } else { if ($row[tipo] == "g") { echo " (gea)"; } else { echo " (nedifinita)"; } } } eoecho("</strong></td></tr>\n" . '<tr class="' . $klaso[$zaehler % 2] . '"><td colspan="3">' . $row[rimarkoj]); echo "</td></tr>\n"; $zaehler++; } echo "</table></td>\n"; // finu la lastan subtabelon echo "</tr></table>\n"; // finu la cxeftabelon //sxangxu cxambrojn reset($listo); echo "<form action=\"cxambroj.php?cxambronombro={$cxambro}\" method=\"post\">\n"; eoecho("S^ang^u de c^ambro:\n"); echo "<select name=\"de\" size=1>\n"; while (list($k, $v) = each($listo)) { eoecho(" <option value = \"{$v}\">{$k}</option>\n"); } echo "</select>\n"; eoecho("al:\n"); reset($listo); echo "<select name=\"al\" size=1>\n"; while (list($k, $v) = each($listo)) { eoecho(" <option value = \"{$v}\">{$k}</option>\n"); } echo "</select>\n"; send_butono("Nun!"); }
/** * Montras la partoprenanton kiel HTML-tabelo. */ function montru_aligxinto($sen_bla = FALSE) { if (!$sen_bla) { eoecho("Informado pri partoprenantoj...."); // TODO: senĥaosigi ... rajtligu("partoprenforigo.php?partoprenantoidento=" . $this->datoj['ID'], "estingi", "anzeige", "estingi", 'n'); } echo "<table>\n"; kampo("ID:", $this->datoj[ID]); kampo("nomo:", $this->tuta_nomo() . " (" . $this->datoj[sekso] . ")"); // if ($this->datoj[sxildnomo]!='') // { // kampo("nomo:",$this->datoj[personanomo]." (".$this->datoj[sxildnomo].") ".$this->datoj[nomo]." (".$this->datoj[sekso].")"); // } // else // kampo("nomo:",$this->datoj[personanomo]." ".$this->datoj[nomo]." (".$this->datoj[sekso].")"); if (KAMPOELEKTO_IJK) { kampo("adreso", nl2br($this->datoj['adreso'])); } else { if ($this->datoj[adresaldonajxo]) { kampo("", $this->datoj[adresaldonajxo]); } kampo("strato:", $this->datoj[strato]); } kampo("loko:", $this->datoj[posxtkodo] . ", " . $this->datoj[urbo]); if ($this->datoj[provinco]) { kampo("provinco:", $this->datoj[provinco]); } kampo("lando:", $this->landonomo() . ' (' . $this->landokategorio() . ')'); if ($this->datoj[sxildlando] != '') { kampo("s^ildlando:", $this->datoj[sxildlando]); } if (okupigxo_eblas == 'jes') { kampo($this->personapronomo . " " . okupigxtipo($this->datoj[okupigxo]), $this->datoj[okupigxteksto]); } kampo("naskita:", $this->datoj[naskigxdato]); if ($this->datoj[telefono]) { kampo("telefono:", $this->datoj[telefono]); } if ($this->datoj[telefakso]) { kampo("telefakso:", $this->datoj[telefakso]); } if ($this->datoj['retposxto']) { kampo("retpos^to:", $this->datoj['retposxto']); switch ($this->datoj['retposxta_varbado']) { case 'n': kampo("-", "ne volas retpos^tajn informojn"); break; case 'j': kampo('x', "volas retpos^tajn informojn x-kode"); break; case 'u': kampo('u', "volas retpos^tajn informojn unikode"); break; } } if ($this->datoj['tujmesagxiloj']) { kampo("tujmesag^iloj", $this->datoj['tujmesagxiloj']); } if ($this->datoj['ueakodo']) { kampo("UEA-kodo:", $this->datoj['ueakodo']); } echo "</table>\n"; }
/** * varianto de la funkcio por gxeneralaj kategoriosistemoj, * kun redaktilo por la landokategorioj (en versio "redaktebla"). */ function listu_kategoriojn($versio) { parent::listu_kategoriojn($versio); if ($versio != 'redaktebla') { return; } // en la redaktebla versio: aldone listo de la landoj $katlisto = array(); $landolisto = array(); $sql = datumbazdemando(array('ID', 'nomo'), 'landokategorioj', array("sistemoID" => $this->datoj['ID'])); $rez = sql_faru($sql); while ($linio = mysql_fetch_assoc($rez)) { $katlisto[] = $linio; } eoecho("<h3>Kategorioj de landoj</h3>"); eoecho("<table class='kategorioj_de_landoj'>\n" . "<tr><th>landonomo</th>" . "<th>kodo</th>"); foreach ($katlisto as $katLinio) { eoecho("<th>" . $katLinio['nomo'] . "</th>"); } echo "</tr>\n"; $sql = datumbazdemando(array('kategorioID', 'ID', 'nomo', 'kodo'), array('kategorioj_de_landoj', 'landoj'), array('ID = landoID', "sistemoID = '" . $this->datoj['ID'] . "'"), "", array('order' => 'kodo ASC')); $rez = sql_faru($sql); while ($landLinio = mysql_fetch_assoc($rez)) { $landolisto[$landLinio['ID']] = true; eoecho("<tr><td>" . $landLinio['nomo'] . "</td><td>" . $landLinio['kodo'] . "</td>"); foreach ($katlisto as $katLinio) { echo "<td>"; simpla_entajpbutono('landokategorio[' . $landLinio['ID'] . ']', $landLinio['kategorioID'], $katLinio['ID']); echo "</td>"; } echo "</tr>\n"; } $sql = datumbazdemando(array('ID', 'nomo', 'kodo'), 'landoj', "", "", array('order' => 'kodo ASC')); $rez = sql_faru($sql); if (mysql_num_rows($rez) > count($landolisto)) { if (DEBUG) { echo "<!-- " . var_export($landolisto, true) . "-->"; } $len = 2 + count($katlisto); eoecho("<tr><th class='titolo-sen-kat' colspan='" . $len . "'> Landoj sen kategorio:</th></tr>\n"); while ($landLinio = mysql_fetch_assoc($rez)) { if (!array_key_exists($landLinio['ID'], $landolisto)) { eoecho("<tr><td>" . $landLinio['nomo'] . "</td><td>" . $landLinio['kodo'] . "</td>"); foreach ($katlisto as $katLinio) { echo "<td>"; simpla_entajpbutono('landokategorio[' . $landLinio['ID'] . ']', false, $katLinio['ID']); echo "</td>"; } echo "</tr>\n"; } else { debug_echo("<!-- ekzistas: " . $landLinio['ID'] . "-->"); } } } echo "</table>\n<p>("; rajtligu("landoj.php", "Redaktu landoliston", "", "administri"); echo ")</p>"; }
/** * Montras cxiujn cxambrojn lauxetagxe. * */ function montru_laux_etagxoj() { $klaso = array("para", "malpara"); $zaehler = 0; $etagxoj = 0; $cxam_sql = datumbazdemando(array("ID", "nomo", "litonombro", "etagxo", "rimarkoj", "tipo"), "cxambroj", "", "renkontigxo", array("order" => "etagxo, nomo")); $cxam_rezulto = sql_faru($cxam_sql); $etagxoj_per_linio = 3; echo '<table width="60%">' . "\n<tr>\n"; $et = '#'; // nomo de la aktuala etagxo while ($row = mysql_fetch_array($cxam_rezulto, MYSQL_ASSOC)) { // $listo[$row['ID']] = $row['nomo']; if ($row['etagxo'] != $et) { if ($et != '#') { echo "</table></td>\n"; } // sed antauxe finu la malnovan etagxon (kiu havas subtabelon). $zaehler = 0; $et = $row['etagxo']; $etagxoj++; if ($etagxoj > $etagxoj_per_linio) { echo "</tr><tr>\n"; // post kelkaj subtabeloj ni komencu novan linion $etagxoj = 1; } eoecho("<td>\n" . "<table class='etagxo'>\n" . '<tr><th colspan="6">Etag^o'); ligu("cxambroj.php?etagxo=" . $row['etagxo'], $row['etagxo']); echo "</th></tr>\n"; echo "<tr><td/><th>#</th><th>d</th><th>r</th><th>l</th></tr>\n"; } eoecho("<tr class='" . $klaso[$zaehler % 2] . "'>\n" . " <td align=center>"); ligu("cxambro-detaloj.php?cxambronumero=" . $row['ID'], $row['nomo']); rajtligu("kreu_cxambron.php?id=" . $row[ID], "(red.)", "", "teknikumi", "ne"); echo "</td>\n" . " <td >"; // pleneco/malpleneco $listo = kalkulu_litojstatojn($row['ID'], $row['litonombro']); echo implode("</td><td>", $listo); echo "</td><td>"; montru_cxambrosekson($row['tipo'], $_SESSION['partopreno'], $_SESSION['partoprenanto']); eoecho("</td></tr>\n" . '<tr class="' . $klaso[$zaehler % 2] . '"><td colspan="6">' . $row[rimarkoj]); echo "</td></tr>\n"; $zaehler++; } echo "</table></td>\n"; // finu la lastan subtabelon echo "</tr></table>\n"; // finu la cxeftabelon //sxangxu cxambrojn montru_cxambrointersxangxilon(); // reset($listo); // echo "<form action=\"cxambroj.php?cxambronombro=$cxambro\" method=\"post\">\n"; // eoecho ("S^ang^u de c^ambro:\n"); // echo "<select name=\"de\" size=1>\n"; // while (list($k, $v) = each($listo)) // { // eoecho( " <option value = \"$v\">$k</option>\n"); // } // echo "</select>\n"; // eoecho ("al:\n"); // reset($listo); // echo "<select name=\"al\" size=1>\n"; // while (list($k, $v) = each($listo)) // { // eoecho(" <option value = \"$v\">$k</option>\n"); // } // echo "</select>\n"; // send_butono("Nun!"); }