/**
  * 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

    [email protected]


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\[email protected] (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\[email protected] (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'];
    }
}

//.........这里部分代码省略.........
     } 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('&sum; 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;
}

//.........这里部分代码省略.........
* 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 [email protected].
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
[email protected] - 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!");
}

//.........这里部分代码省略.........
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");

//.........这里部分代码省略.........
* 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