/** * Kontrolas, cxu eraro okazis, kaj eble finas la programon. * * Tiu funkcio estis vokita de cxiuj metodoj, kiuj uzas * funkcion (el email_message_class) redonantan tian eraro-valoron. * * @param mixed $eraro Se tio estas io kun boolean-valoro true, * ni eldonas gxin kiel eraro kaj finas la programon. */ function testu_eraron($eraro) { if ($eraro) { erareldono("Problemo: " . $eraro); exit; } }
/** * kreas novan kotizo-sistemon el la datumoj entajpitaj. */ function kopiu_sistemon() { $malnova_sistemo = new Kotizosistemo($_REQUEST['id']); $nova_sistemo = new Kotizosistemo(); $nova_sistemo->kopiu(); if ($nova_sistemo->datoj['nomo'] == $malnova_sistemo->datoj['nomo']) { erareldono("Ne povas esti du sistemoj kun sama nomo!"); } else { $nova_sistemo->skribu_kreante(); // TODO: kopiu kotizotabelon, krompagojn/rabatojn kaj // antauxpagojn, se eblas. // poste montru la novan sistemon $_REQUEST['id'] = $nova_sistemo->datoj['ID']; } }
/** */ function sendu_specialan_mesagxon($row, $to_name, $to_address, $bcc = '') { $nomo = eotransformado($row[personanomo], "utf-8"); $teksto = <<<DATOFINO Kara {$nomo}, antaux ioma tempo vi aligxis al la 49a Internacia Seminario. Ni rimarkis, ke ofte helpas, ke partoprenontoj povas komuniki inter si (kaj ne nur al KKRen) jam antaux la IS - ekzemple pri kuna alveturo, kaj similaj aferoj. Pri tio ni nun kreis dissendolisto (jahugrupon) "is-en-germanio". Gxi estos uzata ne nur por tiu cxi IS, sed por cxiuj ontaj ISoj (gxis ni iam trovos alian solvon), do indas aligxi al gxi ekzemple ankaux por ekscii pri la sekvaj ISoj ... Vi povas aligxi al gxi per la retpagxo de la grupo http://groups.yahoo.com/group/is-en-germanio aux per sendo de retmesagxo al is-en-germanio-subscribe@yahoogroups.com Kelkaj KKRenanoj jam aligxis, do ankaux gxeneralajn demandojn vi tie povos meti (kaj espereble ricevi respondon). Pri konkretaj problemoj turnigxu al la koncerna respondulo ene de KKRen - listo trovigxas cxe http://www.esperanto.de/is/de/2005/adresoj. Kore salutas nome de KKRen (Konstanta Komisiono pri Renkontigxoj de GEJ) kaj IReK (InterReta Komisiono de GEJ) Pauxlo Ebermann (respondeculo pri tekniko en KKRen kaj membro de IReK) DATOFINO; echo "Al: {$to_address}"; sendu_xxxxx_mesagxon("Dissendolisto pri la IS", $teksto, $to_name, $to_address); erareldono("Messag^o sendata!"); }
/** * savas objekton kaj redonas gxin. */ function savu_pagon($tipo) { $obj = donu_objekton($tipo, $_REQUEST['ID']); $obj->kopiu(); $obj->datoj['entajpantoID'] = $_SESSION['kkren']['entajpanto']; echo "<!-- " . var_export($obj, true) . "-->"; if (kontrolu_daton($obj->datoj['dato'])) { if ($_REQUEST['ID']) { $obj->skribu(); eoecho("<p>S^ang^is " . $GLOBALS['pd_titoloj'][$obj->klaso] . "n #" . $obj->datoj['ID'] . ".</p>\n"); } else { $obj->skribu_kreante(); eoecho("<p>Aldonis " . $GLOBALS['pd_titoloj'][$obj->klaso] . "n #" . $obj->datoj['ID'] . ".</p>\n"); } } else { erareldono("La dato estu en formato <em>jaro-monato-tago</em> (ISO-8601). Bonvolu korekti!"); } return $obj; }
/** * kreas la mesagxon kaj vokas sendu_xxxxx_mesagxon(). */ function sendu_specialan_mesagxon($row, $to_name, $to_address) { $jaroj = '200' . $row['renkID'] . '/200' . ($row['renkID'] + 1); $nomo = $row['personanomo']; if ($row['retposxta_varbado'] == 'u') { $kodigoteksto = "\nVi ricevas la mesag^ojn en unikoda formato UTF-8 - se vi preferas\nla ikso-kodigon (do cx, gx, hx, jx, sx, ux), bonvolu same mencii tie."; $kodigo = 'utf-8'; } else { $kodigoteksto = "\nVi ricevas la mesag^ojn en ikso-kodigo - se vi preferas la unikodan\nformaton UTF-8 (do ĉ, ĝ, ĥ, ĵ, ŝ, ŭ), bonvolu same mencii tie."; $kodigo = "x-metodo"; } $renkontigxo = new Renkontigxo($row['renkID']); $renkNomo = $renkontigxo->datoj['nomo']; $renkLoko = $renkontigxo->datoj['loko']; $teksto = "\nSaluton kara {$nomo},\n\nDenove apud granda fortikaj^o, kaj denove kun viaj plej s^atataj\nbandoj, ni invitas vin al 51a Internacia-Seminario! G^i okazos\nen Würzburg inter la 27.12.2007 kaj la 03.01.2008.\nEspereble kun vi.\n\nVi certe jam scias ke post kelkaj tagoj venos la fino de la\nfrua alig^kategorio.\n\nDo alig^u g^is la 31a oktobro por spari monon. G^is la 20a decembro\neblas alig^i rete.\n\nSed nun alig^is jam 159 homoj, kaj restas nur 50 litoj liberaj en\nla junulargastejo. Do alig^u rapide se vi volas dormi en lito:\n http://www.esperanto.de/is/eo/2007/\n\nLa temo de la 51a Internacia Seminario estas: \"Popola Identeco\".\nC^u vi sentas kataluno au^ hispano, anglo au^ brito, bosniano\nau^ serbo, preskau^ c^ie en la mondo ekzistas konflikto inter\ndiversaj popolaj identecoj. Ni ankorau^ serc^as volontulojn kiuj\ns^atas kontribui al la tema programo. Do se vi emas rakonti pri\npopolo au^ identeco, tiam bonvolu sendu vian proponon. Ne gravas\nc^u vi montros fotojn au^ prelegos serioze. Bonos ke vi sciigos al\nni viajn spertojn.\n\nC^i jare blovas fres^a vento el Britio. Rolf Fantom estas la nuna\nestro de la IS, kiu nun regas super la germanoj. Li venis per\nnovaj ideoj por plibonigi vian Internacian Seminarion. Ekzemple\noni nun devas promeni je la maldekstra flanko de la koridoroj\nene de la junulargastejo, kaj pardonpeti ec^ se io ne estas via\nkulpo. Se vi nun estas scivolema c^u li ankau^ forstrekis la\nGufujojn (c^ar en Britio oni nur bezonas drinkejon) tiam alig^u ;-)\n http://www.esperanto.de/is/eo/2007/\n\nUnu afero, kiun Rolf ja forstrekis, estis la tuttaga ekskurso!\nJes, vere. Sed por kompensi tiun domag^on ni nun havas multajn\nkaj diversajn ekskursojn duontagajn.\n\nPor memzorgantoj ni havas ankorau^ iom pli da spaco. Por la\nmemzorgantoj sekvas gravaj novaj^oj:\n\nUnue: la memzorgantejo estas malpli ol cent metroj for de la\n junulargastejo!\nDue: eblas dormi en memzorgantejo kaj tamen mang^i en la\n junulargastejo kontrau iom da mono (detaloj sekvos)!\nTrie: Ni metos akvo-varmigilojn en la memzorgantejo. (Jes,\n \"Ni amas vin en IS!\")\n\nDo se vi ankorau^ ne alig^is tiam faru nun, por plej bona\nprezo - poste g^i estas konsindere pli alta:\n http://www.esperanto.de/is/eo/2007/\n\nSe vi jam alig^is invitu viajn geamikojn por\n\"kunigi kaj kunligi\" c^e IS.\n\nG^is baldau^!\n\nLa organizantoj\n-----\nSe vi ricevis tiun mesag^on kvankam vi jam alig^is por tiu IS,\nau^ se vi ricevis tiun mesag^on plurfoje, bonvolu informi nin,\nestas eraro au^ de la programo au^ en niaj datumoj.\nSe vi pensas, ke vi neniam alig^is al iu IS, bonvolu ankau^\ninformi nin.\n\nNi sendos aktualajn informojn pri IS (lau^ tiuj kriterioj) eble\ntrifoje jare - se vi ne plu volas ricevi ilin, sendu mesag^on al\nis.admin@esperanto.de (au^ alig^u kaj elektu en la alig^ilo\n\"mi ne volas ricevi retpos^tajn informojn\").{$kodigoteksto}\n\n"; echo "Al: {$to_address}"; sendu_xxxxx_mesagxon("51a IS - limdato por dua kategorio: 31a de oktobro", $teksto, $to_name, $to_address, $kodigo); erareldono("Messag^o sendita!"); }
/** * kreas la mesagxon kaj vokas sendu_xxxxx_mesagxon(). */ function sendu_specialan_mesagxon($row, $to_name, $to_address) { $jaroj = '200' . $row['renkID'] . '/200' . ($row['renkID'] + 1); $nomo = $row['personanomo']; if ($row['retposxta_varbado'] == 'u') { $kodigoteksto = "\nVi ricevas la mesag^ojn en unikoda formato UTF-8 - se vi preferas\nla ikso-kodigon (do cx, gx, hx, jx, sx, ux), bonvolu same mencii tie."; $kodigo = 'utf-8'; } else { $kodigoteksto = "\nVi ricevas la mesag^ojn en ikso-kodigo - se vi preferas la unikodan\nformaton UTF-8 (do ĉ, ĝ, ĥ, ĵ, ŝ, ŭ), bonvolu same mencii tie."; $kodigo = "x-metodo"; } $renkontigxo = new Renkontigxo($row['renkID']); $renkNomo = $renkontigxo->datoj['nomo']; $renkLoko = $renkontigxo->datoj['loko']; $teksto = "\nSaluton kara {$nomo},\n\nni sendas al vi tiun mesag^on, c^ar vi iam partoprenis la Internacian\nSeminarion (IS) (via lasta IS estis la {$renkNomo}\nen {$renkLoko} dum la jars^ang^o {$jaroj}), sed vi g^is nun\nankorau^ ne alig^is por la c^ijara IS.\nDetaloj por malmendi au^ s^ang^i la abonon estas je la fino.\n\nLa 50a IS okazos c^ijare en la junulargastejo de Wewelsburg, proksime\nal Paderborn en mezokcidenta Germanujo.\n\nLa jubileo je la temo \"50 jaroj IS - c^u ankorau^ juna\" estos okazo\npor reen rigardi al la porjunulara laboro de la Germana Esperanto-Junularo.\nIamaj estraranoj raportas pri la problemoj kaj defioj en la diversaj\netapoj de la asocio. Kiel kaj kial estis fondita GEJ post la dua\nmondmilito kiel memstara asocio? Kiujn efikojn havis la postmilita\ntempo, la influo de la studenta movado de la 60aj jaroj, la malvarma\nmilito, la reunuigo de Germanujo kaj la antau^enig^anta tutmondig^o al\nla laboro de GEJ, ties politiko kaj liste laste al la membroj? Kio ilin\nmotivigas kaj akcelas?\nPri tiuj kaj aliaj demandoj ni volas ekscii pli kaj diskuti kun vi\ndum unu semajno c^irkau^ silvestro.\n\nSamtempe, la ejo mem ofertas la eblecon priesplori lau^ konkretaj signoj, \nspuroj kaj ekzemploj la fas^ismon en Germanujo, c^ar g^i estis uzita kiel \nnacisocialisma kultejo je la tempo de la Hitlera diktaturo. Tiu temo ne\nnur en Germanio estas pli kaj pli grava rilate al la porjunulara laboro.\nNi esperas ricevi de la partoprenantoj valorajn kontribuojn, pensigajn\nopiniojn kaj interesajn raportojn. Por pli bone ekscii pri la historio de\nWewelsburg, Mirjam tradukis la vikipedian artikolon pri g^i al Esperanto:\n http://eo.wikipedia.org/wiki/Wewelsburg\n\nKrom la tema programo ankau^ estos distra kaj ric^ega vespera programo\nkun la steluloj de la Esperantomuziko, kiel ekzemple Dolchamar, JoMo,\nMartin Wiese kaj Esperanto Desperado.\n\nC^ion pri la programo, la alveno, la kotizoj (kiuj ne s^ang^ig^is ekde la\nlasta jaro, nur aldonig^is rabato por TEJO-membroj) vi povas trovi en\nnov-aspektigita IS pag^aro http://www.internacia-seminario.de/.\nAnkau^ trovig^as listo de alig^intoj kaj de la teamo.\n\nKompreneble tie ankau^ eblas alig^i (jam la unua pag^o de la alig^ilo\nkalkulas la prezon) - kaj decidu tuj, c^ar la limdato por la unua\nkategorio estas la fino de oktobro (g^is tiam alvenu ankau^ via\nantau^pago).\nNova ebleco por antau^pagi estas nia nova PayPal-konto - tiel la mono\nalvenas sen tempoprokrasto.\n\nG^is nun (26a de oktobro, 0:41 lau^ mezeu^ropa tempo)\nalig^is 109 partoprenantoj el 25 landoj - c^u baldau^\nankau^ vi?\n\n\nNome de KKRen (la IS-organiza teamo) salutas\nPau^lo Ebermann (vicadministranto)\n\n-----\nSe vi ricevis tiun mesag^on kvankam vi jam alig^is por tiu IS,\nau^ se vi ricevis tiun mesag^on plurfoje, bonvolu informi nin,\nestas eraro au^ de la programo au^ en niaj datumoj.\nSe vi pensas, ke vi neniam alig^is al iu IS, bonvolu ankau^\ninformi nin.\n\nNi sendos aktualajn informojn pri IS (lau^ tiuj kriterioj) eble\ntrifoje jare - se vi ne plu volas ricevi ilin, sendu mesag^on al\nis.admin@esperanto.de (au^ alig^u kaj elektu en la alig^ilo\n\"mi ne volas ricevi retpos^tajn informojn\").{$kodigoteksto}\n\n"; echo "Al: {$to_address}"; sendu_xxxxx_mesagxon("50a IS - limdato por unua kategorio: 31a de oktobro", $teksto, $to_name, $to_address, $kodigo); erareldono("Messag^o sendita!"); }
/** * Sendas retpoŝte adresaron al unu persono. * * @param array $row pliaj informoj uzebla de la ŝablono. * @param string $to_name la kompleta nomo de la ricevonto. * @param string $to_adres la retpoŝtadreso de la ricevonto. */ function sendu_adresaron($row, $to_name, $to_address) { $sxablono = file_get_contents($GLOBALS['prafix'] . "/sxablonoj/adresaro_retposxto.txt"); $datumoj = array('db' => $row, 'renk' => $_SESSION['renkontigxo']->datoj, 'tekstoj' => trovu_necesajn_tekstojn($sxablono, "tekstoj.", "adr-msgx-")); //TODO: elpensu ion pli bonan sistemon if ($row['retposxta_varbado'] != 'u') { $kodigo = 'x-metodo'; } else { $kodigo = 'utf-8'; } $teksto = transformu_tekston($sxablono, $datumoj); $retmesagxo = kreu_auxtomatan_mesagxon(); $retmesagxo->auxtomata_teksto_estu($teksto, $kodigo, $_SESSION['kkren']['entajpantonomo']); $retmesagxo->aldonu_dosieron_el_disko($GLOBALS['prafix'] . '/dosieroj_generitaj/adresaro.pdf'); $retmesagxo->ricevanto_estu($to_address, $to_name); $retmesagxo->temo_estu("Adresaro kaj pliaj informoj pri pasinta " . $_SESSION['renkontigxo']->datoj['mallongigo']); $retmesagxo->eksendu(); erareldono(" Messag^o sendita! "); }
function savu_entajpanton() { debug_echo("<!-- POST: " . var_export($_POST, true) . "-->"); $entajpanto = new Entajpanto($_REQUEST['ID']); $entajpanto->kopiu(); if ($_POST['pasvortsxangxo'] == 'JES') { if ($_POST['pasvorto']) { $entajpanto->datoj['kodvorto'] = $_POST['pasvorto']; eoecho("<p>S^ang^o de pasvorto!</p>"); } else { erareldono("Vi petis pri s^ang^o de pasvorto, " . "sed ne donis novan!"); } } if ($entajpanto->datoj['ID'] == 'nova') { $entajpanto->skribu_kreante(); } else { $entajpanto->skribu(); } eoecho("<p> Savis Entajpanton #" . $entajpanto->datoj['ID'] . ".</p>\n"); if ($_REQUEST['redaktu'] == 'nova') { $_REQUEST['redaktu'] = $entajpanto->datoj['ID']; } }
/** * kreas konfirmilon en unu el du lingvoj. * $partopreno - Partopreno-objekto * $partoprenanto - la Partoprenanto-objekto * $renkontigxo - Renkontigxo-objekto * $kotizo - Kotizo-objekto (estu kreita el la tri antauxe * menciitaj objektoj) * $lingvo - aux "de" aux "eo". */ function kreu_konfirmilon_unulingve($partopreno, $partoprenanto, $renkontigxo, $kotizo, $lingvo) { $this->pdf->AddPage(); $this->pdf->SetLeftMargin(20); $this->pdf->SetRightMargin(20); if ($lingvo == "eo") { $jesne = array('J' => 'jes', 'N' => 'ne', 'n' => 'ne', '' => 'ne'); } else { $jesne = array('J' => 'ja', 'N' => 'nein', 'n' => 'nein', '' => 'nein'); } $this->pdf->Image('bildoj/eo-logo.png', 162, 10, 28); $this->pdf->SetFont($this->font, '', 30); $this->pdf->text(39, 17, "germana esperanto-junularo"); $this->pdf->text(43 + 2, 25, "deutsche esperanto-jugend"); $this->pdf->SetFont('Arial', 'I', 12); $this->pdf->text(105, 34, ".... wir machen Völkerverständigung"); $this->pdf->SetFont($this->font, '', 8); // $this->pdf->SetFont('Arial','',8); // TODO: an 2005 anpassen //TODO: aus der DB nehmen $this->pdf->text(20, 51, "Julia Noe, August-Bebel-Str. 42/42, 15234 Frankfurt/Oder, Germanio"); // $this->pdf->text(20,51, "Martin Sawitzki, Max-Planck-Ring 8d, 98693 Ilmenau, Germanio"); $this->pdf->line(20, 53, 97, 53); // falc- kaj truil-markiloj $this->pdf->line(4, 100, 9, 100); $this->pdf->line(4, 147, 7, 147); $this->pdf->line(4, 198, 9, 198); // adreso de la partoprenanto $this->pdf->SetFont($this->font . 'D', '', 12); $this->esso($partoprenanto->datoj[personanomo] . $partoprenanto->datoj[adresaldonajxo] . $partoprenanto->datoj[strato] . $partoprenanto->datoj[posxtkodo]); $this->pdf->setY(59); $this->pdf->write(5, eo($partoprenanto->datoj[personanomo] . " " . $partoprenanto->datoj[nomo])); $this->pdf->ln(); if ($partoprenanto->datoj[adresaldonajxo] != '') { $this->pdf->write(5, eo($partoprenanto->datoj[adresaldonajxo])); $this->pdf->ln(); } $this->pdf->write(5, eo($partoprenanto->datoj[strato])); $this->pdf->ln(); $this->pdf->write(5, eo($partoprenanto->datoj[posxtkodo] . " " . $partoprenanto->datoj[urbo])); $this->pdf->ln(); $this->pdf->write(5, eo(eltrovu_landon_lokalingve($partoprenanto->datoj[lando]))); $this->pdf->SetFont($this->font, '', 10); $this->pdf->setY(90); $this->pdf->write(5, "Saluton!"); $this->pdf->ln(); $this->pdf->write(5, eo(donu_tekston_lauxlingve("konf2-enkonduko", $lingvo, $renkontigxo))); // $this->pdf->write(5, // dulingva("La organiza teamo tre g^ojas ke vi intencas veni al la". // " c^ijara IS en " . $renkontigxo->datoj['loko']. // ". Jen viaj datumoj:", // "Das Organisationsteam freut sich sehr, dass du zum diesjährigen IS in Wetzlar kommen willst. Hier deine Daten:", $lingvo)); $this->pdf->ln(); $this->pdf->SetFontSize(10); $this->pdf->setXY(30, 102); if ($kotizo->landakategorio == 'C') { $this->pdf->cell(40, 4, dulingva("Alveno de via alig^ilo:", "Ankunft der Anmeldung:", $lingvo), 0, 2, 'R'); } else { $this->pdf->cell(40, 4, eo("Alveno de via antau^pago:", "Ankunft der Anzahlung:", $lingvo), 0, 2, 'R'); } $this->pdf->cell(40, 4, eo("Via log^landa kategorio:", "Deine Landeskategorie", $lingvo), 0, 2, 'R'); $this->pdf->cell(40, 4, eo("Via ag^kategorio:", "Deine Alterskategorie", $lingvo), 0, 2, 'R'); $this->pdf->cell(40, 4, eo("Partoprentagoj:", "Teilnahmetage", $lingvo), 0, 2, 'R'); // TODO: Se ni dekuplas memzorgo kaj amaslogxejo (aux junulargasto kaj mangxado), // kreu diversajn kampojn $this->pdf->cell(40, 4, eo("Memzorganto:", "Selbstversorger:"), 0, 2, 'R'); $this->pdf->cell(40, 4, eo("Dulita c^ambro:", "Zweibettzimmer:", $lingvo), 0, 2, 'R'); $this->pdf->SetFont($this->font . 'D', '', 10); $kategoritekstoj = array("de" => array("antaux" => "vor dem", "post" => "nach dem", "ne" => "überhaupt nicht"), "eo" => array("antaux" => "antau^ la", "post" => "post la", "ne" => "ankorau^ ne")); if ($kotizo->krom_surloka > 0.05) { $alk = $kategoritekstoj[$lingvo]['ne']; } else { if ($kotizo->aligxkategorio == 2) { $alk = $kategoriteksto[$lingvo]['antaux'] . ' ' . $renkontigxo->datoj['meza']; } else { $alk = $kategoriteksto[$lingvo]['post'] . " " . $renkontigxo->datoj['meza']; } } // switch ($kotizo->aligxkategorio) // { // case 2: $alk="antau^ la 01.11.2004";break; //TODO: aus der DB holen // case 1: $alk="post la 01.11.2004";break; // // case 0: $alk="post la 01.12.2003";break; // } // // TODO: Kam überhaupt schon Anzahlung? // if ($kotizo->krom_surloka > 5) // { // $alk = "ankorau^ ne"; // } $this->pdf->setXY(70, 102); $this->pdf->cell(40, 4, eo($alk), 0, 2, 'L'); $this->pdf->cell(40, 4, eo($kotizo->landakategorio), 0, 2, 'L'); // switch ($kotizo->agxkategorio) // { // case 2: $aka="g^is 20 jaroj";break; //TODO: aus der DB holen // case 1: $aka="21 g^is 26 jaroj";break; // case 0: $aka="pli ol 26 jaroj";break; // } $aka = $kotizo->formatu_agxkategorion($renkontigxo); $this->pdf->cell(40, 4, eo($aka), 0, 2, 'L'); $this->pdf->cell(40, 4, eo($kotizo->partoprentagoj), 0, 2, 'L'); if ($partopreno->datoj[domotipo] == 'M') { $memzorganto = dulingva("jes", "ja", $lingvo); $domotipo = 'memzorgantejo'; $en_domo = dulingva("en la memzorgantejo", "im Memzorgantejo", $lingvo); } else { $memzorganto = dulingva("ne", "nein", $lingvo); $domotipo = 'junulargastejo'; $en_domo = dulingva("en la junulargastejo", "in der Jugendherberge", $lingvo); } $this->pdf->cell(40, 4, $memzorganto, 0, 2, 'L'); //certigi, ke vere estas dulita cxambro if ($kotizo->litoj == '2') { $this->pdf->cell(40, 4, $jesne['J'], 0, 2, 'L'); } else { $this->pdf->cell(40, 4, $jesne['N'], 0, 2, 'L'); } $this->pdf->SetFont($this->font, '', 10); $this->pdf->setXY(120, 102); $this->pdf->cell(40, 4, dulingva("Via kotizo estas:", "Dein Beitrag ist:", $lingvo), 0, 2, 'R'); if ($kotizo->kromekskurso > 0) { $this->pdf->cell(40, 4, dulingva("ekskursa bileto:", "Teilnahme am Ausflug:", $lingvo), 0, 2, 'R'); } $this->pdf->cell(40, 4, dulingva("Vi antau^pagis:", "Anzahlung:", $lingvo), 0, 2, 'R'); $this->pdf->cell(40, 4, dulingva("Krompagoj:", "Zuzahlungen", $lingvo), 0, 2, 'R'); $this->pdf->cell(40, 4, dulingva("Rabato:", "Rabatt:", $lingvo), 0, 2, 'R'); $this->pdf->cell(40, 4, dulingva("Restas pagenda:", "Bleibt zu zahlen:", $lingvo), 0, 2, 'R'); $this->pdf->SetFont($this->font . 'D', '', 8); // TODO: bessere Formulierung: Bitte den Rest zum IS bar mitbringen $this->pdf->cell(65, 4, dulingva("Dum la IS ni akceptos nur eu^ropajn eu^rojn!", "Während des IS nehmen wir nur europäische Euro an!", $lingvo), 0, 2, 'R'); $this->pdf->SetFont($this->font . 'D', '', 10); $this->pdf->setXY(165, 102); $this->pdf->cell(20, 4, number_format($kotizo->bazakotizo, 2) . " EUR", 0, 2, 'R'); if ($kotizo->kromekskurso > 0) { $this->pdf->cell(20, 4, number_format($kotizo->kromekskurso, 2) . " EUR", 0, 2, 'R'); } $this->pdf->cell(20, 4, number_format($kotizo->antauxpago, 2) . " EUR", 0, 2, 'R'); $this->pdf->cell(20, 4, number_format($kotizo->krompago - $kotizo->kromekskurso, 2) . " EUR", 0, 2, 'R'); $this->pdf->cell(20, 4, number_format($kotizo->rabato, 2) . " EUR", 0, 2, 'R'); $this->pdf->cell(20, 4, number_format($kotizo->pagenda, 2) . " EUR", 0, 2, 'R'); $this->pdf->SetFont($this->font, '', 10); $this->pdf->setY(130); $litoj = eltrovu_litojn($partopreno->datoj[ID]); //echo "Litoj: ".$litoj["sumo"] ; //echo "K:".$kotizo->antauxpago." and ".$kotizo->landakategorio; if ($partopreno->datoj[partoprentipo] != 't' and $domotipo == 'junulargastejo') { $teksto = donu_tekston_lauxlingve("konf2-parttempa", $lingvo, $renkontigxo); } else { // TODO: (Cxu ankaux en Wetzlar?) In Trier haben wir genügend Betten if ($kotizo->krom_surloka > 5) { $teksto = anstatauxu(donu_tekston_lauxlingve("konf2-mankas-antauxpago", $lingvo, $renkontigxo), array("{{sumo}}" => $kotizo->minimuma_antauxpago() - $kotizo->antauxpago)); } else { if ($litoj["sumo"] < $kotizo->partoprentagoj and $domotipo == 'junulargastejo') { if ($litoj["sumo"] != '0') { erareldono("Malg^usta litonombro. Mankus noktoj: (noktonombro:" . $litoj["sumo"] . ")"); halt(); } else { $teksto = donu_tekston_lauxlingve("mankas-cxambro", $lingvo, $renkontigxo); } } else { //se cxio enordas $teksto = anstatauxu(donu_tekston_lauxlingve("konf2-cxio-enordas", $lingvo, $renkontigxo), array("{{en_domo}}" => $en_domo)); $cioenordo = 'jes'; } } } echo "<!-- teksto: {$teksto} -->\n"; $this->pdf->write(5, eo($teksto)); $this->pdf->ln(10); //$this->pdf->setY(155); $this->pdf->SetFont($this->font . 'D', '', 12); $this->pdf->cell(20, 5, dulingva("Gravaj informoj:", "Wichtige Informationen", $lingvo), 0, 2); $this->pdf->SetFont($this->font, '', 10); $this->pdf->setX(25); $teksto = donu_tekston_lauxlingve("konf2-gravaj-informoj", $lingvo, $renkontigxo); if ($partopreno->datoj['agxo'] < 18) { $teksto .= donu_tekston_lauxlingve("konf2-junulo", $lingvo, $renkontigxo); } if ($domotipo == 'junulargastejo' and $cioenordo == 'jes') { $teksto .= donu_tekston_lauxlingve("konf2-21a-horo", $lingvo, $renkontigxo); //aus der DB zaubern // $teksto.="Ni povas garantii, ke vi ricevos liton, se vi alvenas g^is la 21a horo. Se vi alvenos pli poste, bonvolu sciigi nin pri via alventempo, por ke ni povu rezervi liton por vi. Alikaze vi riskas, ke vi ne ricevos liton.\n"; } else { if ($domotipo == 'memzorgantejo') { $teksto .= donu_tekston_lauxlingve("konf2-memzorganto", $lingvo, $renkontigxo); // $teksto.="Kiel memzorganto ni povas garantii al vi, ke c^iam estas loko en la amaslog^ejo. Kunportu vian dormsakon, aermatracon, mang^ilaron kaj c^ion ajn, kion vi bezonas.\n"; } } if ($partoprenanto->datoj[lando] == HEJMLANDO) { $teksto .= donu_tekston_lauxlingve("konf2-membreco-averto", $lingvo, $renkontigxo); } $teksto .= ' '; $this->pdf->multicell(170, 5, eo($teksto)); // $this->pdf->ln(5); // $this->pdf->setY(200); // TODO: cxu sencas absoluta pozicio? $this->pdf->setY(232); $this->pdf->write(5, eo(donu_tekston_lauxlingve("konf2-elkonduko", $lingvo, $renkontigxo))); $this->pdf->Image('bildoj/julia-subskribo-transparent.png', 100, 251, 80); // TODO: allgemein $this->pdf->Ln(10.0); $this->pdf->SetFont($this->font . 'D', '', 12); $this->pdf->cell(20, 5, dulingva("Enhavo:", "Inhalt", $lingvo), 0, 2); $this->pdf->SetFont($this->font, '', 10); $enhavo = dulingva("- tiu c^i konfirmilo\n" . "- la 2a informilo\n", "- Diese Bestätigung\n" . "- Die Esperanto-Version dieser Bestätigung\n" . "- Das zweite Informilo\n", $lingvo); if ($this->germane and $lingvo == "eo") { $enhavo .= "- la germanlingva versio de tiu c^i konfirmilo\n"; } if ($partopreno->datoj['agxo'] < '18') { $enhavo .= dulingva("- gepatra permeso de via IS-partopreno", "- Elterliche Erlaubnis deiner IS-Teilnahme", $lingvo); } // $this->pdf->setXY(25,205); $this->pdf->multicell(170, 5, eo($enhavo)); }
HtmlKapo(); //echo "<BR><BR>"; echo "<center>"; if ($parto == "korekti") { erareldono("Hmm, ion malg^ustan okazis."); } echo "</center>"; sercxu(datumbazdemando(array("ID", "partoprenoID", "kvanto", "tipo", "dato"), "pagoj", "partoprenoID = '" . $_SESSION["partopreno"]->datoj[ID] . "'"), array("dato", "desc"), array(array('0', '', '->', 'z', '"antauxpago.php?jena=XXXXX"', '1'), array('dato', 'dato', 'XXXXX', 'l', '', '-1'), array('kvanto', 'sumo', 'XXXXX', 'r', '', '-1'), array("tipo", "tipo", 'XXXXX', 'l', '', '-1')), array(array('', '', array('∑ XX', 'N', 'z'))), 0, 0, 0, "G^isnunaj antau^pagoj:", '', "ne"); echo "<form ACTION=\"antauxpago.php\" METHOD=\"POST\">"; eoecho("Vi nun entajpas pagon de: " . $_SESSION["partoprenanto"]->datoj[personanomo] . " " . $_SESSION["partoprenanto"]->datoj[nomo] . " (" . $_SESSION["partoprenanto"]->datoj[ID] . ") por la " . $_SESSION["renkontigxo"]->datoj[nomo] . " en " . $_SESSION["renkontigxo"]->datoj[loko] . "<BR>\n"); if (!$pago->datoj[dato]) { $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");
function erareldono_geo($germana, $esperanta) { if (nurEsperante()) { erareldono($esperanta); } else { erareldono($germana . " / " . $esperanta); } }
/** * sxangxas linio(j)n en la datumbazo. * * $tabelnomo - la (abstrakta) nomo de la tabelo * $valoroj - array de la formo * array( kampo => valoro, kampo => valoro, ...) * "kampo" estu valida kamponomo de la tabelo, * "valoro" estu iu ajn sql-esprimo. * La funkcio sxangxas la donitajn kampojn al * la donitaj valoroj. * $restriktoj_normalaj - array en la formo * array( kampo => valoro, kampo => valoro, ...) * "kampo" estu valida kamponomo de la tabelo, * "valoro" estu iu ajn php-valoro, kies * string-versio estu tauxga kiel SQL-valoro (sen ''). * La funkcio sxangxas nur tiujn liniojn, kiuj * enhavas en la donita kampo la donitan valoron. * $restriktoj_sesio - array en la formo * array( kampo => variablo, kampo => variablo, ...) * "kampo" estu valida kamponomo de la tabelo, * "variablo" estu nomo de sesio-variablo, kies * identifikilon (->datoj["ID"]) ni uzas. * La funkcio sxangxas nur tiujn liniojn, kiuj * enhavas en la donita kampo la identifikilon. * Kiam oni skribas nur "kampo", tio estas identa * al "kampo" => "kampo". * */ function sxangxu_datumbazon($tabelnomo, $valoroj, $restriktoj_normalaj = "", $restriktoj_sesio = "") { if (EBLAS_SKRIBI) { $sql = datumbazsxangxo($tabelnomo, $valoroj, $restriktoj_normalaj, $restriktoj_sesio); return sql_faru($sql); } erareldono("La datumbazo estas nun en nes^ang^ebla stato." . " Bonvolu reprovi poste."); return false; }
/** */ function sendu_adresaron($row, $savu, $to_name, $to_address, $bcc = '') { $nomo = eotransformado($row[personanomo], "utf-8"); $teksto = <<<DATOFINO Saluton kara {$nomo}, dankon pro via cxeesto dum la 49a Internacia Seminario (aux "IS 2005/2006"). Ni (la organiza teamo) ege gxuis la etoson, kaj ni esperas, ke vi sekvan jaron denove venos al IS en Germanio. Kiel promesite, ni nun sendas la adresaron de cxiuj partoprenantoj de la IS, kaj krome kelkajn pliajn informojn. * Adresaro * Trovitajxoj * Fotoj * Filmoj * Kritikoj/Lauxdoj * Sekva IS Adresaro ---------- La adresaron vi trovos en PDF-formato kiel aldonajxo (ordigita laux persona nomo). Se vi havas problemojn rilate al gxia uzo, bonvolu sendi mesagxon al is.admin@esperanto.de. Bonvolu ne pludoni la adresaron al homoj kiuj ne cxeestis la IS-on en Xanten (tiuj tamen versxajne jam ricevis gxin, se ili aperas kun retadreso en la adresaro). Cetere, vi povas ankaux peti gxin denove de is.admin@esperanto.de. Trovitajxoj ------------- Ni post la fino de la IS trairis la cxambrojn kaj kolektis multajn ajxojn, kiujn iu forgesis. Tiujn ni (fakte Martin kaj Pauxlo en la malgranda auxto de Martin) transportis al la Berlina Oficejo (BerO) de GEJ, kie ili nun stokigxas en la kelo. La Berlinaj Studentoj-Esperantistoj (BSE) estis tiom afablaj krei liston de la trovitajxoj dum ilia unua post-IS-a kunveno: * nigra trikita pulovro * trikita jako, malhelblua, blankaj strioj, grandeco L, kun zipo. * esperanto-T-cxemizo * nigra trikita pulovro, rugxaj, verdaj kaj grizaj strioj * grizblua pantalono, grandeco L * nigra cxapo * paro de vinrugxaj gantoj * paro de rozkoloraj "Thinsulate"-gantoj * blanka XL-T-cxemizo, initialoj SWR. * nigra T-cxemizo, "liberte pour Leonard Peltier ..." * blanka mantuko (rozoj) * blanka sxnurego (plastika) * paro da rugxvinkoloraj, virinaj sxuoj, grandeco 40. * nigra trikita jako, kun zipo, grandeco L (malodoras). * blua fliza pulovero, grandeco M. * nigra "Timberland"-sako * dormsako ("Eurohiker", nigra) * trinkbotelo en izola sako de "Adventuridge" * kablo USB/FireWire (helgriza) * kuverto "Stephanie", kun fotoj de infanoj kaj letero * izolmatraco (blua, ege largxa) * kravato kun strioj violetaj/bluaj * trigamba segxo (el fero kaj ligno, tre peza) Se io el tio estas via (kaj vi volas rehavi gxin), bonvolu sendi mesagxon al bero@esperanto.de. Kontraux pago de la sendokostoj ni povas sendi gxin al vi. Restis krome kelkaj foto-lumdiskoj - tiujn vi povas acxeti kontraux 2 Euxroj + sendokostoj. Fotoj de IS ------------- Pluraj fotoj de la IS (tiuj, kiuj estas ankaux sur la lumdisko, sed en iomete pli alta kvalito - pro spacmanko sur la lumdisko) haveblas je http://bildoj.esperanto.de/49-a_IS/ Fotoj de Lukazs estas troveblaj cxi tie: http://kalmar.one.pl/esperanto/fotoj/IS-2005-06 Ivo Miesen prilaboris siajn fotojn (kaj faris elekton) kaj la rezulto troveblas (same kiel fotoj de aliaj arangxoj) cxi tie: http://fotoalbum.dds.nl/ivo_m Fotoj de Sebastian Kirf trovigxas cxe http://fotoj.kirf.de/thumbnails.php?album=9 Filmoj -------- Dum kelkaj tagoj okazis seminarieto kun profesia filmfaristo por krei varbfilmojn pri Esperanto. La rezultojn (du filmoj de po ~ 45 sekundoj, en Esperanto, kun germanaj subtekstoj) ni metis al nia servilo kaj alligis cxe http://www.esperanto.de/is/eo/2005/index. Kelkaj filmoj de la partoprenantoj troveblas cxe http://bildoj.esperanto.de/49-a_IS-filmoj/ Kritikoj/Lauxdoj ------------------ Ni kunportis la liston de la lauxdoj kaj kritikoj, kiuj pendis dum IS en la enirhalo, kaj analizos gxin. Se vi havas kritikon aux lauxdon, kiun vi forgesis skribi sur tiun folion, vi povas sendi gxin al is.admin@esperanto.de - ni certe pridiskutos gxin ene de KKRen. (Bonvolu menciu "kritiko" aux "lauxdo" en la kaplinio, por ke la spamfiltrilo nur kaptu la kritikojn ;-) [1]) Sekva IS ---------- Ni bedauxrinde ankoraux ne scias, kie ekzakte okazos la sekva IS, sed certe gxi okazos en Germanio kaj de la 27a de decembro 2006 gxis la 3a de januaro 2007. Gxi estos la 50a, kaj gxi estu aparte bona! KKRen (la IS-teamo) nun esploras eblajn ejojn (kun malpli fora memzorgantejo!), diskutas la temon kaj la plano por la vespera programo jam nun estas preskaux preta. Se vi volas cxiam esti informita pri la plej novaj aktualajxoj, vi aligxu (se vi ankoraux ne faris) al la dissendolisto is-en-germanio, http://groups.yahoo.com/group/is-en-germanio. Ankorauxfoje dankon pro via cxeesto kaj gxis sekva IS En la nomo de la Organiza teamo (KKRen) Pauxlo Ebermann (teknika respondeculo pri IS-administrado kaj auxtoro de tiu teksto) [1] Ne, nia spamoflitrilo tute ne distingas inter kritiko kaj lauxdo, tio estis sxerco. DATOFINO; $dosierojn = array($GLOBALS['prafix'] . 'dosieroj_generitaj/adresaro.pdf'); // jen la necesaj dosieroj echo "Al: {$to_address}"; sendu_dosier_mesagxon("Adresaro kaj pliaj informoj pri pasinta IS", $teksto, $to_name, $to_address, $dosierojn, $bcc); erareldono(" Messag^o sendita! "); }
/** * TODO: dokumentado por sendu_2ankonfirmilon * TODO: 2a konfirmilo adaptu al Wetzlar (aux * prenu el datumbazo) * TODO: Übergabeparameter verschönern * * ### Uzata en administrado.php, partrezultoj.php . ### */ function sendu_2ankonfirmilon($row, $savu, $to_name, $to_address, $bcc = '') { $prafix = $GLOBALS['prafix']; require_once $prafix . '/iloj/kreu_konfirmilon.php'; $korpo = "Saluton " . $to_name . ","; if ($row['germane'] == 'J') { $korpo .= "\n\n [Deutsche Ãœbersetzung unten / Germana traduko sube.]"; } // TODO: Xanten -> verallgemeinern (datumbazo) (en kelkaj lokoj) // TODO: Eble metu la tekston en la datumbazon aux en konfigurdosieron. $korpo .= "\n\nla organiza teamo tre gxojas, ke vi intencas veni al la cxijara Internacia Seminario en Wewelsburg.\n"; $korpo .= "\nPer tiu cxi retmesagxo vi ricevas la oficialan konfirmilon por la IS kiel pdf-komputildosiero. Bonvolu traglegi gxin kaj kunporti elpresitan version de gxi al la IS.\n"; //$korpo .= "\nSe vi ne povas legi la .pdf bonvolu kontaktu min.\n"; // TODO: Auf 2006 umstellen/verallgemeinern $korpo .= "Por pli detalaj informoj bonvolu ankaux uzi nian retpagxon sub http://www.esperanto.de/is/eo/2006/\n"; $korpo .= "\nEnhavo:\n - konfirmilo.pdf (Kotizoj kaj gravaj informoj.)"; if ($row[agxo] < '18') { $korpo .= "\n(enhavante ankaux la gepatran permeson por la IS - nepre kunportu gxin plenumota)"; } $korpo .= "\n - 2ainformilo.pdf (Pliaj informoj pri la IS-ejo, kaj la vojo al Wewelsburg)"; // TODO: subskribo auxtomata $korpo .= "\n\namike,\nJulia"; if ($row['germane'] == 'J') { $korpo .= "\n\n-----[ Deutsche Ãœbersetzung / germana traduko ]-----------"; $korpo .= "\n\nSaluton " . $to_name . ","; $korpo .= "\n\nDas Organisations-Team freut sich sehr, dass du zur Internationalen Woche nach Wewelsburg kommen willst.\n"; $korpo .= "\nMit dieser E-Mail erhältst du die offizielle Bestätigung für das IS als PDF-Datei. Bitte lies es dir durch und bring eine ausgedruckte Version zum IS mit.\n"; //$korpo .= "\nSe vi ne povas legi la .pdf bonvolu kontaktu min.\n"; // TODO: Auf 2004 umstellen/verallgemeinern $korpo .= "Für weitere Informationen nutze bitte auch unsere Webseite unter http://www.esperanto.de/is/de/2006/\n"; $korpo .= "\nInhalt:\n - konfirmilo.pdf (Beitrag und wichtige Informationen - zweisprachig.)"; if ($row[agxo] < '18') { $korpo .= "\n(enthält auch die Eltern-Erlaubnis für das IS - unbedingt ausgefüllt mitbringen!)"; } $korpo .= "\n - 2ainformilo.pdf (Weitere Informationen über das IS, den IS-Ort, und den Weg nach Wewelsburg.)"; } $ppanto = new Partoprenanto($row[0]); $kon = new Konfirmilo(bezonas_unikodon($ppanto)); $kon->kreu_konfirmilon($row[1], $row[0], $savu); $kon->sendu(); // dauxrigas kiel konfirmilo.pdf $dosierojn = array('dosieroj_generitaj/konfirmilo.pdf', 'dosieroj/2aInformilo.pdf'); // jen la necesaj dosieroj echo "Al: {$to_address}\n"; sendu_dosier_mesagxon("Konfirmilo por via IS partopreno", $korpo, $to_name, $to_address, $dosierojn, $bcc); erareldono("Messag^o sendata!"); }
/** */ function sendu_adresaron($row, $savu, $to_name, $to_address, $bcc = '') { $nomo = eotransformado($row[personanomo], "utf-8"); $teksto = <<<DATOFINO Saluton kara {$nomo}, dankon pro via cxeesto dum la 51a Internacia Seminario (aux "IS 2007/2008") en Würzburg. Ni (la organiza teamo) ege gxuis la etoson kaj ni esperas, ke vi sekvan jaron denove venos al IS, tiam en Biedenkopf (vidu sube). Kiel promesite, ni nun sendas la adresaron de cxiuj partoprenantoj de la IS, kaj krome kelkajn pliajn informojn. * Adresaro * Trovitajxoj * Fotoj + Filmo * Sekva IS * Etaj anoncoj Adresaro ---------- La adresaron vi trovos en PDF-formato kiel aldonajxo (ordigita laux persona nomo). Se vi havas problemojn rilate al gxia uzo, bonvolu sendi mesagxon al ... Bonvolu ne pludoni la adresaron al homoj kiuj ne cxeestis la IS-on en Würzburg (tiuj tamen versxajne jam ricevis gxin, se ili aperas kun retadreso en la adresaro). Cetere, vi povas ankaux peti gxin denove de ... Ankaux estas malpermesite uzi la adresaron por sendi amasajn leterojn (cxu retposxte, cxu papere). Tio inkluzivas varbadon por Esperanto-renkontigxoj (kiel lastjare okazis)! (Ni ne elpensis tion por gxeni vin, sed pro la germanaj datumprotektaj legxoj. Bonvolu sekvi do tiujn kondicxojn.) Trovitajxoj ------------- Ni post la fino de la IS trairis la cxambrojn kaj la memzorgantejon kaj kolektis multajn ajxojn, kiujn iuj forgesis. Bedauxrinde mankis spaco en la auxto, per kiu ni reveturigis la aferojn el la oficejo kaj de la libroservo (vi acxetis maltro), do ni kelkajn vestajxojn (kiuj sxajnis malaltvaloraj) simple forjxetis. Iuj aliaj ajxoj tamen alvenis en la oficejo (ekzemple elektra kablo de klapkomputilo) - se vi ion perdis, sendu retmesagxon al ... Fotoj de IS ------------- Elekton de 199 el la multegaj fotoj, kiujn vi lasis en la IS-foto-komputilo, vi trovas nun cxe http://picasaweb.google.com/InternaciaSeminario/IS20078 La fotoj ankaux havas (foje amuzajn) komentojn elpensitajn de nia IS-estro. Ni baldaux trovos iun manieron enretigi cxiujn fotojn - vi trovos la ligon en nia IS-retpagxo, same kiel anoncon en nia partoprenanta dissendolisto: http://groups.yahoo.com/group/is-en-germanio/ Rolf ankaux kunmetis plurajn el la video-klipoj, kiujn vi lasis en la Fotokomputilo, al unu filmo, nun trovebla je Youtube: http://www.youtube.com/watch?v=3gEj8V4dDOo Sekva IS ---------- La sekva, 52a, IS okazos de la 27a de decembro 2008 gxis la 3a de januaro 2009, en la Germana urbeto Biedenkopf, en okcidenta Hesio (en meza Germanio, norde de Frankfurt cxe la Majno). Ni dankas al tiuj, kiuj jam surloke aligxis. La retpagxo por reta aligxo laux aktuala plano pretos post kelkaj semajnoj. Ankaux pri tio vi trovos anoncon en la IS-dissendolisto supre menciita. Etaj anoncoj -------------- ---- Por cxiuj cxeestintoj kaj interesatoj de la prelego pri Neuxrodiverseco kaj Esperanto venu al http://groups.google.com/group/alie , aligxu kaj kunumu! ---- Se iu havas fotojn de la koncerto de mi, mi gxojus se vi emus sendi al mi por eventuala uzo en mia miaspac'-pagxo Martin Wiese ---- Apartan dankon al cxiuj IAGU membroj :-) ! Daure memoru nian IAGU-himnon: mmmmmmmmmm ---- En la nomo de la organiza teamo (KKRen) Pauxlo Ebermann (teknika respondeculo pri IS-administrado kaj auxtoro de tiu cxi teksto) DATOFINO; //' $dosierojn = array($GLOBALS['prafix'] . 'dosieroj_generitaj/adresaro.pdf'); // jen la necesaj dosieroj echo "Al: {$to_address}"; sendu_dosier_mesagxon("Adresaro kaj pliaj informoj pri pasinta IS", $teksto, $to_name, $to_address, $dosierojn, $bcc); erareldono(" Messag^o sendita! "); }
if ($_SESSION["partopreno"]->datoj[aligxdato] != "" and !kontrolu_daton($_SESSION["partopreno"]->datoj[aligxdato])) { erareldono("La dato kion vi entajpis ne ekzistas au^ estis malg^uste."); } 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");
/** */ function sendu_adresaron($row, $savu, $to_name, $to_address, $bcc = '') { $nomo = eotransformado($row[personanomo], "utf-8"); $teksto = <<<DATOFINO Saluton kara {$nomo}, dankon pro via cxeesto dum la 50a Internacia Seminario (aux "IS 2006/2007") en Wewelsburg. Ni (la organiza teamo) ege gxuis la etoson kaj ni esperas, ke vi sekvan jaron denove venos al IS, tiam en Würzburg (vidu sube). Kiel promesite, ni nun sendas la adresaron de cxiuj partoprenantoj de la IS, kaj krome kelkajn pliajn informojn. * Adresaro * Enketo * Murgazeto * Trovitajxoj * Fotoj * Sekva IS Adresaro ---------- La adresaron vi trovos en PDF-formato kiel aldonajxo (ordigita laux persona nomo). Se vi havas problemojn rilate al gxia uzo, bonvolu sendi mesagxon al ... Bonvolu ne pludoni la adresaron al homoj kiuj ne cxeestis la IS-on en Wewelsburg (tiuj tamen versxajne jam ricevis gxin, se ili aperas kun retadreso en la adresaro). Cetere, vi povas ankaux peti gxin denove de ... Ankaux estas malpermesita uzi la adresaron por sendi amasajn leterojn (cxu retposxte, cxu papere). Tio inkluzivas varbadon por Esperanto-renkontigxoj (kiel lastjare okazis)! Enketo -------- Por plibonigi la Internacian Seminarion, ni nuntempe preparas enketon pri gxi. Ni petas vin partopreni - detaloj pri tio sekvos post kelkaj tagoj. Vi taman rajtas jam nun sendi kritikon kaj lauxdon al la IS-teamo, ekzemple al ... Murgazeto ----------- Cxu vi sxatis la murgazeton de la IS? Se jes, eble vi volas relegi gxin ankorauxfoje ... La redakcio de la "blinda gardisto", kiu samtempe estas la redakcio de "Kune", la membrogazeto de GEJ kaj AEJ, post kelkaj tagoj aperigos en sia retpagxo PDF-an eldonon de la murgazeto. Ankaux vi tie trovas (jam nun) kuracilon kontraux la postrenkontigxa sindromo (PRS). http://www.esperanto.de/dej/asocio/kune_eo (La kuracilo trovigxas ankaux en la IS-lumdisko, en la dosierujo "pauxlo" (aux "pa_lo"), la du .wav-dosieroj.) Parenteze: Jxus trovinte en pagxo ok de la tria eldono foton de mia "vekhorlogxo", mi (Pauxlo) sxatus danki al la nederlandaj memzorgantoj (kaj precipe Oscar), pro la preskaux cxiutaga plenumo de mia peto ... Trovitajxoj ------------- Ni post la fino de la IS trairis la cxambrojn kaj la memzorgantejon kaj kolektis multajn ajxojn, kiujn iuj forgesis. Tiujn ni transportis al la Berlina Oficejo (BerO) de GEJ, kie ili nun stokigxas en la kelo. La mangxajxojn el la memzorgantejo ni jam formangxis aux baldaux formangxos - sed jen listo de aliaj trovajxoj, afable kreitaj de Anna-Laura Wickström: * beba kovrilo, brodita per leporeto * blanka eta sekigtuko, brodita per rugxa rozo * blua sekigxtuko kun "1. FC Oberhaid" kaj "Vonhausen L." * nigra kapucxa pulovero kun zipo, grandeco 128 * griza/burgund-kolora longmanika cxemizo, grandeco 110 * grizeflava "cargo"-pantalono, grandeco 98 * violkolora dormsakujo * verda ujo (eble por tendo) * "Swan Beaud" kun multaj cxinaj signoj * brun-verda dormsako * rugxa sekigtuko * hel-verda sekigxtuko, brodita per blua lekanto * kartludo "TOMATEN TROEF" * nigra (masxin-)trikita pulovero * kradita sxalo * bunt-linia sxalo * okulvitro-paro kun surskribajxo "Athena" (la maldekstra lenso estas pli forta ol la dekstra) * griza vesperto (uzita dum "Sxafo kaj Urso 2") * saketo kun diverskoloraj lignaj kubetoj, versxajne aparteninta al iu ludo Krome retrovigxis la trovajxo-sako kun la trovajxoj el la antauxa IS, kiun ni kunportis kaj volis disdoni al la posedantoj, kiuj venis nun - sed iam la sako perdigxis ... Se io el tio apartenas al vi, bonvolu kontakti la Berlinan oficejon de GEJ: ... Kontraux pago de la sendokostoj ni povas sendi gxin al vi, aux kunporti al la sekva IS, aux fari ion alian pri gxi. Bonvolu ankaux skribi, se vi volas donaci gxin al GEJ. Restis krome kelkaj foto-lumdiskoj - tiujn vi povas acxeti kontraux 3 Euxroj + sendokostoj. Fotoj de IS ------------- La teamo de IS kunlaboras kun la nova retejo http://amikumu.com, por enretigi fotojn pri la evento. Tie jam estas pluraj fotoj pri la IS, aperas fotoj el la oficiala foto-lumdisko, kaj ankaux vi povos alsxuti viajn fotojn. La retejo estas ankoraux en elprova stato, do ne tro miru, se io ne bone funkcias (sed anstatauxe sendu informan mesagxon al Chuck Smith, la adreson vi trovas en la adresaro, kaj certe ankaux ie en la pagxaro amikumo.com). La teamo de amikumo.com ankaux petas ne jam publike anonci gxin ... En pli simpla formo la fotoj de la IS-lumdisko (en la origina alta kvalito, ne en la pro spacmanko malpligrandigita versio de la lumdisko) trovigxas cxe http://bildoj.esperanto.de/50-a_IS/ Kelkaj homoj donis ne nur bildoj, sed ankaux filmojn al la lumdisko-teamo, kaj ni decidis pro spacaj kialoj ne meti ilin al la disko. Ili tamen nun aperas en la interreto: http://bildoj.esperanto.de/50-a_IS-filmoj/ Sekva IS ---------- La sekva, 51a, IS okazos de la 27a de decembro 2007 gxis la 3a de januaro 2008, en la Germana urbo Würzburg, en nordokcidenta Bavario (tamen en suda Germanio) - ni do dauxrigas la tradicion de loko-nomoj komencantaj per ne-esperantaj literoj (Wetzlar, Xanten, Wewelsburg, Würzburg, ...). Ni dankas al tiuj, kiuj jam surloke aligxis. La retpagxo por reta aligxo laux aktuala plano pretos post kelkaj semajnoj. En la nomo de la Organiza teamo (KKRen) Pauxlo Ebermann (teknika respondeculo pri IS-administrado kaj auxtoro de tiu teksto) PS: Mi planis sendi la adresaron jam du tagojn pli frue, sed teknika problemo en nia retservilo malhelpis tion ... mi pardonpetas pro tio. DATOFINO; $dosierojn = array($GLOBALS['prafix'] . 'dosieroj_generitaj/adresaro.pdf'); // jen la necesaj dosieroj echo "Al: {$to_address}"; sendu_dosier_mesagxon("Adresaro kaj pliaj informoj pri pasinta IS", $teksto, $to_name, $to_address, $dosierojn, $bcc); erareldono(" Messag^o sendita! "); }
/** */ function sendu_adresaron($row, $savu, $to_name, $to_address, $bcc = '') { $nomo = eotransformado($row[personanomo], "utf-8"); $teksto = <<<DATOFINO Kara {$nomo}, ni esperas, ke vi bone alvenis hejmen post la IS. Per tiu mesagxo venos kelkaj informoj por vi: (1) Trovitajxoj (2) IS-Enketo (3) Adresaro (1) Trovitajxoj ------------- Kiel cxiujare ni dum la ordigado post la IS trovis plurajn aferojn - plejparte vestaxjojn, sed ankaux aliajn aferojn. Se vi ion perdis, bonvolu sendi mesagxon al la Berlina Oficejo (BerO) de GEJ (bero@esperanto.de) - ni rigardos, cxu gxi estas inter la trovitajxoj, kaj se jes, povas sendi al vi (vi pagos la sendokostojn). Inverse: Se vi trovis ion, kiu ne apartenas al vi, sendu mesagxon al la BerO - eble iu alia jam sercxas gxin. (Se vi jam scias la posedanton, bonvolu rekte kontaktu lin - lia adreso ja troveblas en la listo.) Ni planas kunporti kaj disauxkcii la restajn trovitajxojn dum iu estonta IS, kiam ni havos suficxe da spaco en la auxto. Jen konkreta kazo: Flavie (el la franca teatra grupo) perdis sxian fotaron. "La fotoj estas en 3 apartaj blankaj kovertoj, kiuj estas en blanka-rugha plasta sako." Se vi trovis (aux iel alie povas helpi), kontaktu Flavie Audibert <*****@*****.**> (2) IS-Enketo ----------- La organiza teamo rimarkis, ke cxi-jare ne cxiu funkciis glate. Ni nun volas ekscii, kiom la partoprenantoj rimarkis ;-) Pli serioze: Ni volas plibonigi la organizadon. Tial ni petas vin partopreni la sekvan enketon. Ni lotumos inter tiuj partoprenantoj de la enketo, kiuj respondis gxis la 15a de februaro, antauxpagon por la sekva IS (en valoro de 30 Euro). Ni ne uzos viajn datojn krom por statistiko, do sen persona rilato. La nomojn unu fidebla persono forigos de la datoj. (Se vi preferas, vi rajtas ankaux tute anonime respondi (uzu nekonatan retadreson) - sed tiel ne eblas partopreni la lotumadon.) Bonvolu plenigi la sekvan formularon (per krucoj "X", kie tauxgas, aux per teksto anstataux la _______ - vi rajtas ankaux skribi pli ol la linio estas longa) kaj resendu gxin al is-enketo@esperanto.de. (Bonvolu forigi la ceteron de la mesagxo, se vi simple respondos.) -8X ------------------------------------------------------------------ (X) Jes, mi volas partopreni la lotumadon. (Forprenu la X, se vi ne volas.) DATOFINO; if ($row['sekso'] == 'i') { $teksto .= "Mi estas: (X) ina ( ) malina \n"; } else { $teksto .= "Mi estas: ( ) ina (X) malina \n"; } $teksto .= "Mi apartenas al la agxgrupo (agxo je komenco de IS):\n"; $agxo1 = $agxo2 = $agxo3 = $agxo4 = $agxo5 = ' '; if ($row['agxo'] <= 17) { $agxo1 = 'X'; } else { if ($row['agxo'] <= 21) { $agxo2 = 'X'; } else { if ($row['agxo'] <= 26) { $agxo3 = 'X'; } else { if ($row['agxo'] <= 35) { $agxo4 = 'X'; } else { $agxo5 = 'X'; } } } } $teksto .= " ({$agxo1}) sub 17, ({$agxo2}) 18-21, ({$agxo3}) 22-26,\n" . " ({$agxo4}) 27-35, ({$agxo5}) super 36\n"; $teksto .= <<<DATOFINO Cxu vi partoprenis unuafoje? ( ) jes ( ) ne se ne: Kio estis gxis nun via plej sxatata IS? _________ Kial? ________________ Kion programeron vi plej sxatas en la IS? _________ Kial?________________ Kion programeron/okazajxon vi plej malsxatas en la IS? ________ Kial?________________ Donu notojn por la sekvaj programpunktoj de la IS en Wetzlar, kie 1 estas la plej bona, 5 la plej malbona. (Lasu malplena, se vi ne scias/ne partoprenis). Taga programo entute: [ ] (1-5) Tema programo [ ] (1-5) speciale bone estis: __________ speciale malbone estis: __________ Distra programo [ ] (1-5) speciale bone estis: __________ speciale malbone estis: __________ Movada programo [ ] (1-5) speciale bone estis: __________ speciale malbone estis: __________ Cxu vi rimarkis la diferencon inter tiuj tri partoj? ( ) jes ( ) ne Urborigardado [ ] (1-5) Nagxpostagmezo [ ] (1-5) Vespera programo entute: [ ] (1-5) interkona vespero: [ ] (1-5) koncerto de Kadakar: [ ] (1-5) koncerto de Esperanto Desperado: [ ] (1-5) teatrajxo: [ ] (1-5) koncerto de La Rolls: [ ] (1-5) novjara koncerto: [ ] (1-5) internacia vespero: [ ] (1-5) Tuttaga ekskurso (al Marburg) [ ] (1-5) Silvestra bufedo [ ] (1-5) Silvestra balo [ ] (1-5) Novjara promenado [ ] (1-5) IS-lumdisko [ ] (1-5) Nokta programo entute: [ ] (1-5) Diskejo: [ ] (1-5) Gufujo: [ ] (1-5) Trinkejo: [ ] (1-5) Nokta universitato [ ] (1-5) speciale bone estis: __________ speciale malbone estis: __________ Nokta filmo [ ] (1-5) speciale bone estis: __________ speciale malbone estis: __________ Libroservo [ ] (1-5) Adresaro [ ] (1-5) Bonvolu nun NE rigardu en la brosxuron aux en la retpagxon! Cxu vi scias la temon de la IS? ( ) jes ( ) ne Se jes: Kio estis? _____________ Cxu vi nun intencas veni denove al IS? ( ) jes ( ) ne Cxu vi rekomendos al amikaj esperantistoj veni al IS? ( ) jes ( ) ne Se ne, kio estis la cxefa kauxzo? ________________ Kion vi proponas por plibonigi la ISon? ____________________ Kio estis nenecesa? ____________________ Kion vi proponas al ni, por venigi pli da homoj (el via lando)? __________________ Pliaj aldonoj: __________________________ -8X ------------------------------------------------------------------ (3) Adresaro ---------- La IS-adresaro trovigxas en PDF-formato en la aldono. Bonvolu atenti la regulojn pri la uzo, kiuj trovigxas komence de gxi. Se vi perdis la adresaron, vi povas mendi novan cxe is.admin@esperanto.de. Mi cxi-foje uzis diversajn kolorojn por plifaciligi la distingon inter la unuopaj personoj - tio estas fakte eksperimento. Se vi ne sxatas, marku gxin tiel en la supra enketo. Kore salutas nome de KKRen (Konstanta Komisiono pri Renkontigxoj de GEJ) Pauxlo Ebermann DATOFINO; $dosierojn = array('adresaro.pdf'); // jen la necesaj dosieroj echo "Al: {$to_address}"; sendu_dosier_mesagxon("Adresaro kaj pliaj informoj pri pasinta IS", $teksto, $to_name, $to_address, $dosierojn, $bcc); erareldono("Messag^o sendata!"); }
if ($_SESSION["partoprenanto"]->datoj[ID]) { echo "<p>Vi redaktas la Partoprenanton numero: " . $_SESSION["partoprenanto"]->datoj[ID] . " </p>\n"; } entajpejo("Persona nomo:", personanomo, $_SESSION["partoprenanto"]->datoj[personanomo], 30, "personan nomon"); entajpejo("S^ildnomo (se alia):", sxildnomo, $_SESSION["partoprenanto"]->datoj[sxildnomo], 30, ""); entajpbutono("Mia sekso estas:", sekso, $_SESSION["partoprenanto"]->datoj['sekso'][0], i, ina, ina); entajpbutono("", sekso, $_SESSION["partoprenanto"]->datoj['sekso'][0], v, vira, vira); echo "<BR>\n"; if ($parto == "korektigi" and $_SESSION["partoprenanto"]->datoj[sekso] != "ina" and $_SESSION["partoprenanto"]->datoj[sekso] != "vira") { erareldono("Bonvole indiku vian sekson"); } echo "<hr/>"; entajpejo("Familia nomo:", nomo, $_SESSION["partoprenanto"]->datoj[nomo], 30, "nomon"); entajpejo("Naskig^dato:", naskigxdato, $_SESSION["partoprenanto"]->datoj[naskigxdato], 12, "", "1900-01-01", "(jaro-monato-tago)"); if ($_SESSION["partoprenanto"]->datoj[naskigxdato] != "" and !kontrolu_daton($_SESSION["partoprenanto"]->datoj[naskigxdato])) { erareldono("La dato, kiun vi entajpis, ne ekzistas au^ estis malg^usta"); } echo "<hr/>\n"; if (KAMPOELEKTO_IJK) { granda_entajpejo("Adreso", 'adreso', $_SESSION['partoprenanto']->datoj['adreso'], 50, 3, "adreson"); } else { entajpejo("Adresaldonaj^o:", adresaldonajxo, $_SESSION["partoprenanto"]->datoj[adresaldonajxo], 30, ""); entajpejo("Strato:", strato, $_SESSION["partoprenanto"]->datoj[strato], 35, "straton"); entajpejo("Provinco:", provinco, $_SESSION["partoprenanto"]->datoj[provinco], 20, ""); } entajpejo("Pos^tkodo:", posxtkodo, $_SESSION["partoprenanto"]->datoj[posxtkodo], 13, ""); entajpejo("Urbo:", urbo, $_SESSION["partoprenanto"]->datoj[urbo], 20, "urbon"); eoecho("Log^lando: \n"); montru_landoelektilon(5, $_SESSION["partoprenanto"]->datoj["lando"]); entajpejo("S^ildlando (se alia):", sxildlando, $_SESSION["partoprenanto"]->datoj[sxildlando], 30, "", "", ""); echo "<hr/>";
if ($lito != "manko") { // $sql2 .= " '$lito','$de','".($banto-1)."')"; // sql_faru($sql2); $valoroj2["litonumero"] = $lito; $valoroj2["nokto_de"] = $de; $valoroj2["nokto_gxis"] = $banto - 1; aldonu_al_datumbazo("litonoktoj", $valoroj2); } } } } HtmlKapo(); 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; } } // provizore nur tiel if ($cxambronumero) { $cxambronombro = $cxambronumero; } if ($cxambronombro == "") { eoecho("Listo de la c^ambroj lau^ la etag^oj:<BR><BR>"); if ($etagxo == '') { // montru cxiujn etagxojn montru_laux_etagxoj($_SESSION["partopreno"]->datoj[cxambrotipo][0], $_SESSION["partoprenanto"]->datoj[sekso][0]); } else { // montru la etagxon $etagxo // $cxam_sql = "select ID from cxambroj where renkontigxo=".$_SESSION["renkontigxo"]->datoj[ID]." and etagxo='".$etagxo."' order by nomo";
* ebligas kreadon kaj redaktadon de malaligxkondicxotipoj. */ require_once 'iloj/iloj.php'; require_once 'iloj/iloj_kotizo.php'; session_start(); malfermu_datumaro(); kontrolu_rajton("teknikumi"); HtmlKapo(); switch ($_REQUEST['sendu']) { case '': echo "<!-- " . var_export($_REQUEST, true) . "-->"; break; case 'kreu': echo "<!-- " . var_export($_REQUEST, true) . "-->"; if ($_REQUEST['kondicxo'] == '---') { erareldono("Nevalida elekto de kondic^o!"); break; } $tipo = new Malaligxkondicxotipo(); $tipo->kopiu(); $tipo->skribu_kreante(); $_REQUEST['id'] = $tipo->datoj['ID']; break; case 'sxangxu': echo "<!-- " . var_export($_REQUEST, true) . "-->"; $tipo = new Malaligxkondicxotipo($_REQUEST['ID']); $tipo->kopiu(); $tipo->skribu(); $_REQUEST['id'] = $tipo->datoj['ID']; break; default:
$GLOBALS['ppnombro'] += $nombro_pp; } eoecho("<span class='pp-nombro'>" . $nombro_pp . "</span> × "); eoecho("<span class='kotizo'>" . number_format($kotizo) . "</span><br/>"); eoecho("<span class='kotizosumo'>" . $baza_kotizosumo . "</span> ("); eoecho("<span class='partkotizosumo'>" . $parta_kotizosumo . "</span>)"); // TODO: kostoj, krompagoj ktp. } function elspezoprognoza_cxelo($kotizosistemo, $kategorioj, $datumoj) { $niaj_datumoj = $datumoj[enkodu_kategoriojn($kategorioj)]; // TODO } eoecho("<p>Jen la rezulto de la kalkulado kun kotizosistemo <em>" . $kotizosistemo->datoj['nomo'] . "</em> en renkontig^o <em>" . $nia_renkontigxo->datoj['mallongigo'] . "</em> (entute " . $nombro . " partoprenoj):</p>\n"); if (count($mankajxoj) > 0) { erareldono("la sekvaj kotizokalkuladoj ne funkciis pro" . " nekompletaj kategorioj!"); echo "<pre>"; var_export($mankajxoj); echo "</pre><hr/>\n"; } // erareldono("Atentu: La kalkulado de parttempaj kotizoj ankorau^ ne " . // "bone funkcias."); echo "<div style='display:none;'>\n"; eoecho("<h2>Detalaj rezultoj</h2>\n"); $kotizosistemo->metu_kotizotabelon('enspezoprognoza_cxelo', $cxiuj_datumoj); echo "</div>\n"; eoecho("<h2>Sumoj</h2>\n"); echo "<table>\n"; eoecho("<tr><th>Partoprenantonombro:</th><td>" . $ppnombro . "</td></tr>\n"); eoecho("<tr><th>Sumo de bazaj kotizoj:</th><td>" . $baza_kotizosumo . "</td></tr>\n"); eoecho("<tr><th>Sumo de partaj kotizoj:</th><td>" . $parta_kotizosumo . "</td></tr>\n");
/** * kreas konfirmilon en unu el du lingvoj. * $partopreno - Partopreno-objekto * $partoprenanto - la Partoprenanto-objekto * $renkontigxo - Renkontigxo-objekto * @param Kotizokalkulilo $kotizo - Kotizo-objekto (estu kreita el la tri antauxe * menciitaj objektoj) * @param lingvokodo $lingvo */ function kreu_konfirmilon_unulingve($partopreno, $partoprenanto, $renkontigxo, $kotizo, $lingvo) { require_once $GLOBALS['prafix'] . "/tradukendaj_iloj/trad_htmliloj.php"; eniru_dosieron(); eniru_lingvon($lingvo); // TODO!: cxio GEJ-specifa estu konfigurebla. $this->pdf->AddPage(); $this->pdf->SetLeftMargin(20); $this->pdf->SetRightMargin(20); $this->pdf->Image($GLOBALS['prafix'] . '/bildoj/tejo-emblemo.png', 20, 10, 30); $this->pdf->Image($GLOBALS['prafix'] . '/bildoj/ijk-emblemo.png', 160, 10, 30); // $this->pdf->Image($GLOBALS['prafix'] . '/bildoj/eo-logo.png', 162, 10, 28); $this->pdf->SetFontSize($this->unikode ? 17 : 19); // TODO: el datumbazo $this->pdf->text(50, 17, "Tutmonda Esperantista Junulara Organizo"); $this->pdf->text(60, 26, $this->trans_eo($renkontigxo->datoj['nomo'])); // falc- kaj truil-markiloj $this->pdf->line(4, 100, 9, 100); $this->pdf->line(4, 147, 7, 147); $this->pdf->line(4, 198, 9, 198); // adreso de la partoprenanto $this->pdf->SetFont('', 'B', 12); $this->pdf->setY(59); $this->pdf->cell(60, 5, $this->trans_eo($partoprenanto->tuta_nomo())); $this->pdf->ln(); $this->pdf->write(5, $this->trans_eo($partoprenanto->datoj['adreso'])); /* if ($partoprenanto->datoj[adresaldonajxo]!='') */ /* { */ /* $this->pdf->write(5,$this->trans_eo($partoprenanto->datoj[adresaldonajxo])); */ /* $this->pdf->ln(); */ /* } */ /* $this->pdf->write(5,$this->trans_eo($partoprenanto->datoj[strato])); */ $this->pdf->ln(); $this->pdf->write(5, $this->trans_eo($partoprenanto->datoj['posxtkodo'] . " " . $partoprenanto->datoj['urbo'])); $this->pdf->ln(); $this->pdf->Cell(60, 5, $this->trans_eo($partoprenanto->landonomo_en_lingvo($lingvo))); $this->pdf->setXY(120, 60); if ($partoprenanto->datoj['sxildnomo']) { $cxefnomo = $partoprenanto->datoj['sxildnomo']; $malcxefnomo = $partoprenanto->datoj['personanomo'] . " " . $partoprenanto->datoj['nomo']; } else { $cxefnomo = $partoprenanto->datoj['personanomo']; $malcxefnomo = $partoprenanto->datoj['nomo']; } $this->pdf->SetFont('', "B", 14); $this->pdf->Cell(40, 10, $this->trans_eo($cxefnomo), "LTR", 2, "R"); $this->pdf->SetFont('', '', 10); $this->pdf->Cell(40, 6, $this->trans_eo($malcxefnomo), "LR", 2, "R"); $this->pdf->Cell(40, 6, $this->trans_eo($partoprenanto->sxildlando()), "LRB", 1, "R"); $this->pdf->SetFont('', '', 10); $this->pdf->setY(90); $this->pdf->write(5, "Saluton!"); $this->pdf->ln(); $this->pdf->write(5, $this->trans_eo(donu_tekston_lauxlingve("konf2-enkonduko", $lingvo, $renkontigxo))); $this->pdf->ln(); $this->pdf->SetLeftMargin(30); /* $kotizo->montru_kotizon($lingvo == 'eo' ? 3 : 4, $this); */ $kotizo->tabelu_kotizon(new PDFKotizoFormatilo($this->pdf, $lingvo, $this->unikode)); $this->pdf->SetLeftMargin(20); $this->pdf->ln(3); $this->pdf->SetFontSize(10); // $this->pdf->setXY(30,102); if (DEBUG) { echo "<!-- alk: [{$alk}] -->"; // echo "<!-- renkontigxo->datoj['meze']: [" . $renkontigxo->datoj['meze']. "] -->" ; echo "<!--"; // echo "\npartopreno: "; // var_export($partopreno); // echo "\npartoprenanto: "; // var_export($partoprenanto); echo "\nrenkontigxo: "; var_export($renkontigxo); echo "-->"; } // TODO: tio ĉi estas speciala por IJK 2009: switch ($partopreno->datoj['domotipo']) { case 'A': $mendo = CH("mendis-amaslogxejon"); break; case 'J': if ($partopreno->datoj['dulita'] == 'U') { $mendo = CH("mendis-studenthejmon-unulitan"); } else { if ($partopreno->datoj['cxambrotipo'] == 'u') { $mendo = CH("mendis-studenthejmon-dulitan-unuseksan"); } else { $mendo = CH("mendis-studenthejmon-dulitan-ambauxseksan"); } if ($partopreno->datoj['kunKiu']) { $mendo .= " " . CH("volas-logxi-kun", eotransformado($partopreno->datoj['kunKiu'], 'utf-8')); } } break; case 'T': $mendo = CH("mendis-tendon"); break; case 'M': $mendo = CH("mendis-nenion"); break; default: $mendo = "-- erara domotipo: " . $partopreno->datoj['domotipo'] . " --"; erareldono($mendo); } $teksto = $mendo; // la granda teksto, kiu konfirmas la aligxon. $this->pdf->SetFont('', 'B', 10); $this->pdf->write(4, $this->trans_uni($teksto)); $this->pdf->ln(); // atentigo pri pagenda resto: $pagenda = $kotizo->restas_pagenda(); echo "<!-- restas_pagenda: " . $pagenda . " -->"; if ($pagenda > 0) { list($kurzo, $dato) = eltrovu_kurzon('EUR'); $pagenda_eur = number_format((double) $pagenda / (double) $kurzo, 2, ".", ""); $teksto = CH("restas-pagenda-CZK-EUR-dato", $pagenda, $pagenda_eur, $kurzo, $dato); // $teksto = strtr(donu_tekston_lauxlingve("konf2-kunportu-reston", // $lingvo, // $renkontigxo), // array("{{sumo}}" => $pagenda)); // atentigo pri kunportado de mono $this->pdf->SetFont('', 'B', 8); $this->pdf->write(3.8, $this->trans_uni($teksto)); $this->pdf->ln(); } $this->pdf->SetFont("", "", 10); $this->pdf->write(5, $this->trans_uni(CH("vi-mendis-mangxojn"))); $this->pdf->ln(); pdf_montru_manĝojn($this->pdf, $partopreno, $this); //$this->pdf->setY(155); $this->pdf->SetFont('', 'B', 11); $this->pdf->Write(6, $this->trans_uni(CH("gravaj-informoj"))); $this->pdf->ln(); $this->pdf->SetFont('', '', 9); $this->pdf->setX(25); $teksto = donu_tekston_lauxlingve("konf2-gravaj-informoj", $lingvo, $renkontigxo); /* if ($partopreno->datoj['agxo']< 18) */ /* $teksto .= " " . donu_tekston_lauxlingve("konf2-junulo", $lingvo, $renkontigxo); */ /* if ($domotipo=='junulargastejo' and $cioenordo == 'jes') */ /* { */ /* $teksto .= " " . donu_tekston_lauxlingve("konf2-21a-horo", $lingvo, $renkontigxo); */ /* //aus der DB zaubern */ /* } */ /* else if ($domotipo=='memzorgantejo') */ /* { */ /* $teksto .= " " . donu_tekston_lauxlingve("konf2-memzorganto", $lingvo, $renkontigxo); */ /* } */ /* if ($partoprenanto->datoj['lando']==HEJMLANDO) //germanio */ /* { */ /* $teksto .= "\n" . donu_tekston_lauxlingve("konf2-membreco-averto", $lingvo, $renkontigxo); */ /* } */ if ($partopreno->datoj['tejo_membro_kontrolita'] == 'j') { $teksto .= "" . donu_tekston_lauxlingve("konf2_tejo_estos_membro", $lingvo, $renkontigxo); } else { $teksto .= "" . donu_tekston_lauxlingve("konf2_tejo_ne_jam", $lingvo, $renkontigxo); } $teksto .= ' '; $this->pdf->multicell(170, 3.8, $this->trans_eo($teksto), 0, "L"); $this->pdf->SetFontSize(10); $this->pdf->ln(5); // $this->pdf->setY(200); // TODO: cxu sencas absoluta pozicio? // $this->pdf->setY(240); $this->pdf->write(5, $this->trans_eo(donu_tekston_lauxlingve("konf2-elkonduko", $lingvo, $renkontigxo))); // $this->pdf->Image($GLOBALS['prafix'] . '/bildoj/subskribo-julia-2.png', 100, 251, 80); // TODO: allgemein (el konfiguro aux datumbazo) $this->pdf->Ln(10.0); eliru_dosieron(); eliru_lingvon(); }
* * Oni ankaux povas elekti la renkontigxon kaj la * kodigon. * * Kiam oni entajpis, la retumilo sendas la informojn * al index.php, kiu siavice kontrolas la kodvortojn * kaj komencas la PHP-sesion. */ require_once 'iloj/iloj.php'; session_start(); malfermu_datumaro(); HtmlKapo(); echo "<div style='text-align:center'>"; echo "<P class='granda'>\n"; if ($_GET['malgxusta']) { erareldono("Bedau^rinde via kombino de uzantnomo kaj pasvorto ne tau^gas por la datumbazo"); eoecho("Se vi supozas, ke estu tiel, plendu c^e " . teknika_administranto . " (" . teknika_administranto_retadreso . "). <br />"); } eoecho("Vi j^us atingis la pag^on por la " . renkontigxo_nomo . "-administrado. \n<BR>\n"); echo "La uzado estas permesata nur al " . organizantoj_nomo . "anoj, do bonvolu identigi vin. (Jen la persona uzantonomo kaj pasvorto.) \n<BR>\n<BR>\n"; echo "<form action='index.php' target='_top' method='POST'>\n"; entajpejo("Via alig^nomo: ", "lakodnomo", $_SESSION["kodnomo"], 10); entajpejo("Via kodvorto: ", "lakodvorto", "", 10, "", "", "", "j"); echo "<BR>\n"; entajpbutono("Enkodo: ", "laenkodo", $_SESSION["enkodo"], "utf-8", "utf-8", "unikodo", ""); entajpbutono("", "laenkodo", $_SESSION["enkodo"], "x-metodo", "x-metodo", "x-kodo<BR>", "kutima"); eoecho("Bonvolu elekti la enkodmanieron por a supersignoj. \n<BR>\n"); eoecho("(Se vi povas legi la menuon, elektu unikodo, se mankas leteroj prenu la x-kodon.)\n<BR>\n<BR>\n"); // Elektilo por la renkontigxo montru_renkontigxoelektilon(DEFAUXLTA_RENKONTIGXO); send_butono("Preta");
*/ //define(DEBUG, true); require_once 'iloj/iloj.php'; session_start(); malfermu_datumaro(); Htmlkapo(); kontrolu_rajton("teknikumi"); if ($_POST['sendu'] == "aldonu") { eoecho("<h2>Aldono de Teksto</h2>"); // unue ni rigardas, cxu teksto kun sama identifikilo jam estas en la datumbazo $sql = datumbazdemando(array('id', 'teksto'), "tekstoj", "mesagxoID = '" . $mesagxoID . "'", "renkontigxoID"); $rez = sql_faru($sql); if (mysql_num_rows($rez) > 0) { // se jes, ni eldonas erarmesagxon kaj ebligas novan provon. $linio = mysql_fetch_assoc($rez); erareldono("Jam ekzistas mesag^o kun tia identifikilo en la aktuala renkontig^o:"); echo "<pre>" . $linio['teksto'] . "</pre>"; eoecho("<p>Bonvolu elekti alian identifikilon (au^ "); ligu("nova_teksto.php?id=" . $linio['id'], "redaktu la originalan tekston"); eoecho(".)"); // require('nova_teksto.php'); HtmlFino(); exit; } else { // Alikaze ni aldonas la novan tekston al la datumbazo. aldonu_al_datumbazo('tekstoj', array('renkontigxoID' => $_SESSION['renkontigxo']->datoj['ID'], 'mesagxoID' => $mesagxoID, 'teksto' => $teksto)); $sql = datumbazdemando('id', 'tekstoj', "mesagxoID = '{$mesagxoID}'", "renkontigxoID"); $rez = mysql_fetch_assoc(sql_faru($sql)); $_REQUEST['id'] = $rez['id']; eoecho("<p>Aldonis la sekvan tekston #" . $rez['id'] . " kun identifikilo '{$mesagxoID}' al la renkontig^o '" . $_SESSION['renkontigxo']->datoj['mallongigo'] . "' (#" . $_SESSION['renkontigxo']->datoj['ID'] . "):</p>"); echo "<pre>" . $teksto . "</pre>";
/** * Forigas linion el datumbaztabelo. * * @param string $tabelnomo la (abstrakta) nomo de la tabelo * @param string|int|array $id la identigilo de la forigenda linio * se array, tiam kondicxolisto de la formo * kamponomo => valoro * (uzebla por tabeloj, kiuj ne havas * ID-atributon.) * @param array $restriktoj_sesiaj ... */ function forigu_el_datumbazo($tabelnomo, $id, $restriktoj_sesiaj = "") { if (!EBLAS_SKRIBI) { erareldono("Datenbank darf nicht geändert werden"); exit; } $sql = datumbazforigo($tabelnomo, $id, $restriktoj_sesiaj); return sql_faru($sql); }
function malplentesto(&$io, $err = "") { global $parto; // TODO:? Ĉu vi povas diri, kion fakte faras (faru) la funkcio malplentesto()? // tranformas ĉion HTML specialan signon, por ke mi ĵuste enskibas ĝin en la datumaro //$io = HTMLsekurigi(&$io); geht leider nicht, wegen uebergabeproblemen. // HTML sicherung muss noch bei JEDEM String - einmalig erfolgen. //$io = /*htmlentities*/(str_replace("'","`",$io)); if ($parto and $io == "") { if ($err) { erareldono("Bonvolu entajpu vian " . $err); } $parto = "korektigi"; } }
* @package aligilo * @subpackage pagxoj * @copyright 2008 Paul Ebermann. * Uzebla laŭ kondiĉoj de GNU Ĝenerala Publika Permesilo (GNU GPL) */ /** */ define("DEBUG", true); require_once 'iloj/iloj.php'; require_once 'iloj/iloj_mangxoj.php'; session_start(); malfermu_datumaro(); Htmlkapo(); kontrolu_rajton("teknikumi"); if (mangxotraktado != "libera") { erareldono("En la konfiguro por ligita mang^traktado ne eblas " . "krei apartajn mang^ojn."); HtmlFino(); exit; } /** * montras tabelon kun cxiuj mangxtempoj * por la aktuala renkontigxo, kun ligo por * redakti unuopajn. */ function montru_MangxtempoListon() { $sercxilo = new Sercxilo(); $sercxilo->metu_datumbazdemandon(array('ID', 'dato', 'mangxotipo', 'komento'), 'mangxtempoj', "", "renkontigxoID"); $sercxilo->metu_kolumnojn(array('kampo' => 'ID', 'titolo' => "", 'tekstosxablono' => "–>", 'ligilsxablono' => "mangxredakto.php?id=XXXXX"), array('kampo' => 'dato'), array('kampo' => 'mangxotipo', 'anstatauxilo' => $GLOBALS['mangxotipoj']), array('kampo' => 'ID', 'titolo' => 'mendoj', 'anstatauxilo' => 'kalkulu_mangxmendojn'), array('kampo' => 'komento')); $sercxilo->metu_sumregulojn(array(array(array('#', '*', 'd'), array('XX', 'A', 'm'), array('∑', '*', 'd'), array('XX', 'NT', 'm')))); $sercxilo->metu_ordigon('dato', 'asc');
rajtligu("partrezultoj.php?faru=2konfirm_papere", "(paperpos^te sendita)", "", "administri", "jes"); if ($faru == "2konfirmi") { hazard_ligu("dosieroj_generitaj/konfirmilo.pdf", "(els^uti g^in)"); rajtligu("partrezultoj.php?faru=2konfirmelsendo", "--> elsendi 2an konfirmilon", "", "administri", "jes"); } echo "<BR>\n"; ligu("partrezultoj.php?faru=kvitancu", "––> kreu kvitancon"); if ($_REQUEST['faru'] == 'kvitancu') { require_once $prafix . "/iloj/kreu_kvitancon.php"; $kvit = new Kvitanco(); $kvit->kaju($_SESSION['partoprenanto']->datoj['ID'], $_SESSION['partopreno']->datoj['ID']); $kvit->sendu(); hazard_ligu("./dosieroj_generitaj/kvitancoj.pdf", "els^utu g^in"); } if (!$_SESSION["partoprenanto"]->datoj['lando']) { erareldono("Mankas la lando, pro tio la kotizokalkulo estas iom necerta!"); } // nova kotizokalkulilo $kotkal = new Kotizokalkulilo($_SESSION["partoprenanto"], $_SESSION["partopreno"], $partopreno_renkontigxo, new Kotizosistemo($partopreno_renkontigxo->datoj['kotizosistemo'])); eoecho("<p>Restas pagenda: " . $kotkal->tuta_sumo . " " . CXEFA_VALUTO . "</p>\n"); echo "<div>"; // echo "<table><tr><td>"; // echo "</td><td>"; // echo "</td><td>"; // echo "</td>\n</tr>\n<tr>\n<td>"; rajtligu("pago-detaloj.php?klaso=pago", "==> entajpi pagon", "", "mono", "jes"); tabelu_pseuxdopagojn_por("pago", $_SESSION['partopreno']->datoj['ID'], 'mono'); // echo "</td>\n<td>"; rajtligu("pago-detaloj.php?klaso=rabato", "==> entajpi rabaton", "", "rabati", "jes"); tabelu_pseuxdopagojn_por("rabato", $_SESSION['partopreno']->datoj['ID'], 'rabati'); // echo "</td>\n<td>";
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 -->"; } }