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