$_SESSION["partopreno"]->skribu();
}
if ($sendu == 'Transferu') {
    // TODO: Umstellen auf bessere Auswahl - siehe unten bei "peter"
    // (eventuell muss dass hier gar nicht geändert werden.)
    // TODO: ĉu plu necesas? Ĉu ni nun ne havas transferi.php?
    echo "C^io nun apartenas al #{$kune}";
    sxangxu_datumbazon("partoprenoj", array("partoprenantoID" => $kune), array("partoprenantoID" => $antauxa));
    sxangxu_datumbazon("notoj", array("partoprenantoID" => $kune), array("partoprenantoID" => $antauxa));
}
if ($faru == "2konfirmi") {
    require_once $prafix . '/tradukendaj_iloj/kreu_konfirmilon.php';
    if (DEBUG) {
        echo "<!-- bezonas_unikodon: [" . (string) bezonas_unikodon($_SESSION['partoprenanto'], $_SESSION['partopreno']) . "] -->";
    }
    $kon = new Konfirmilo(bezonas_unikodon($_SESSION['partoprenanto'], $_SESSION['partopreno']));
    $kon->kreu_konfirmilon($_SESSION["partopreno"]->datoj[ID], $_SESSION["partoprenanto"]->datoj[ID]);
    // kreas PDF-dosieron, ne sendas, malgraux la nomo.
    $kon->sendu();
}
if ($faru == '2konfirmelsendo') {
    kontrolu_rajton("retumi");
    require_once $prafix . '/tradukendaj_iloj/kreu_konfirmilon.php';
    require_once $prafix . '/iloj/retmesagxiloj.php';
    require_once $prafix . '/tradukendaj_iloj/iloj_konfirmilo.php';
    require_once $prafix . '/iloj/diversaj_retmesagxoj.php';
    sendu_duan_informilon($_SESSION['partoprenanto'], $_SESSION['partopreno'], $partopreno_renkontigxo, 'J');
    $_SESSION['partopreno']->prenu_el_datumbazo();
}
if ($faru == '2konfirm_papere') {
    // nur notu en la datumbazo, ke ni nun sendas gxin papere
            $kup->kaju($row[0], $row[1], $savu, $tipo);
        }
    }
    $kup->sendu($tipo);
    hazard_ligu("dosieroj_generitaj/mangxkuponoj.pdf", "els^utu la kuponojn.", "_blank");
    //send_butono("Faru!");
}
//   KONFIRMILOJ
if ($kio == 'k') {
    require_once 'iloj/kreu_konfirmilon.php';
    $nombroperpagxo = 1;
    $numero = $numero * $nombroperpagxo;
    //  $demando = "select p.ID,pn.ID,nomo, personanomo from partoprenantoj as p, partoprenoj as pn where pn.partoprenantoID=p.ID and retakonfirmilo!='J' and 2akonfirmilosendata='0000-00-00' and renkontigxoID='".$_SESSION["renkontigxo"]->datoj[ID]."' and kontrolata='J' and alvenstato='v'  limit 0,$numero";
    $demando = datumbazdemando(array("p.ID", "pn.ID", "nomo", "personanomo"), array("partoprenantoj" => "p", "partoprenoj" => "pn"), array("pn.partoprenantoID = p.ID", "retakonfirmilo!='J'", "2akonfirmilosendata='0000-00-00'", "kontrolata='J'", "alvenstato = 'v'"), "renkontigxoID", array("order" => "personanomo, nomo", "limit" => "0, {$numero}"));
    eoecho("<B><BR><BR>Elpremu la konfirmilon por:</B><BR>");
    $kon = new Konfirmilo();
    $rezulto = sql_faru($demando);
    while ($row = mysql_fetch_array($rezulto, MYSQL_BOTH)) {
        eoecho($row[personanomo] . " " . $row[nomo] . "<BR>");
        $kon->kreu_konfirmilon($row[1], $row[0], $savu);
    }
    $kon->sendu();
    hazard_ligu("dosieroj_generitaj/konfirmilo.pdf", "els^uti la konfirmilojn.", "_top", "jes");
}
if ($kio == 'sendu') {
    //  $demando = "select p.ID,pn.ID,nomo, personanomo,retposxto,agxo from partoprenantoj as p, partoprenoj as pn where pn.partoprenantoID=p.ID and retakonfirmilo='J' and 2akonfirmilosendata='0000-00-00' and renkontigxoID='".$_SESSION["renkontigxo"]->datoj[ID]."' and alvenstato='v' limit 0,$numero";
    $demando = datumbazdemando(array("p.ID", "pn.ID", "nomo", "personanomo", "retposxto", "pn.agxo", "germanakonfirmilo" => "germane"), array("partoprenantoj" => "p", "partoprenoj" => "pn"), array("pn.partoprenantoID = p.ID", "retakonfirmilo = 'J'", "2akonfirmilosendata = '0000-00-00'", "alvenstato = 'v'"), "renkontigxoID", array("limit" => "0, {$numero}"));
    eoecho("<B><BR><BR>Elsendu la konfirmilon por:</B><BR>");
    $rezulto = sql_faru($demando);
    while ($row = mysql_fetch_array($rezulto, MYSQL_BOTH)) {
        eoecho($row[personanomo] . " " . $row[nomo] . "");
/**
 * kreas PDF-dokumenton kun duaj informiloj por tiuj, kiuj petis
 * paperan duan informilon.
 *
 * @param  int   $nombro kiom da ni kreu nun?
 * @param string $savu  "J" = memoru, ke ni kreis/printis/sendis,
 *                        alikaze "NE" (ekzemple por kontroli,
 *                        ĉu aspektas bone)
 */
function printu_duajn_konfirmilojn($nombro, $savu)
{
    require_once 'tradukendaj_iloj/kreu_konfirmilon.php';
    // paperaj konfirmiloj
    //  $demando = "select p.ID,pn.ID,nomo, personanomo from partoprenantoj as p, partoprenoj as pn where pn.partoprenantoID=p.ID and retakonfirmilo!='J' and 2akonfirmilosendata='0000-00-00' and renkontigxoID='".$_SESSION["renkontigxo"]->datoj[ID]."' and kontrolata='J' and alvenstato='v'  limit 0,$nombro";
    $demando = datumbazdemando(array("p.ID", "pn.ID", "nomo", "personanomo"), array("partoprenantoj" => "p", "partoprenoj" => "pn"), array("pn.partoprenantoID = p.ID", "retakonfirmilo!='J' or p.retposxto=''", "2akonfirmilosendata='0000-00-00'", "kontrolata='J'", "alvenstato = 'v'"), "renkontigxoID", array("order" => "personanomo, nomo", "limit" => "0, {$nombro}"));
    eoecho("<B><BR><BR>Kreas la konfirmilon por:</B><BR>");
    $kon = new Konfirmilo("unikode");
    $rezulto = sql_faru($demando);
    while ($row = mysql_fetch_array($rezulto, MYSQL_BOTH)) {
        eoecho($row['personanomo'] . " " . $row['nomo'] . "<BR>");
        $kon->kreu_konfirmilon($row[1], $row[0], $savu);
    }
    $kon->sendu();
    hazard_ligu("dosieroj_generitaj/konfirmilo.pdf", "els^uti la konfirmilojn.");
}
/**
 * sendo de la dua informilo.
 * @uses kreu_duan_konfirmilan_tekston
 * @uses Konfirmilo
 *
 * @param Partoprenanto $partoprenanto
 * @param Partopreno    $partopreno
 * @param Renkontigxo   $renkontigxo
 * @param string        $savu         cxu savi en la partpreno,
 *                                    ke ni sendis la informilon?
 */
function sendu_duan_informilon($partoprenanto, $partopreno, $renkontigxo, $savu = "NE")
{
    $mesagxo = kreu_auxtomatan_mesagxon();
    $kodigo = $partoprenanto->datoj['retposxta_varbado'] == 'u' ? "utf-8" : "x-metodo";
    $sendanto = $_SESSION['kkren']['entajpantonomo'];
    $mesagxo->temo_estu("Dua konfirmilo kaj informilo por la " . $renkontigxo->datoj['nomo']);
    if (!$partoprenanto->datoj['retposxto']) {
        return;
    }
    $mesagxo->ricevanto_estu($partoprenanto->datoj['retposxto'], $partoprenanto->tuta_nomo());
    //    // por testaj celoj ...
    //    $mesagxo->ricevanto_estu(teknika_administranto_retadreso,
    //                             $partoprenanto->tuta_nomo());
    $teksto = kreu_duan_konfirmilan_tekston($partoprenanto, $partopreno, $renkontigxo, "ne kodigu");
    $mesagxo->auxtomata_teksto_estu($teksto, $kodigo, $sendanto, $renkontigxo);
    $konfirmilo = new Konfirmilo(bezonas_unikodon($partoprenanto, $partopreno));
    $konfirmilo->kreu_konfirmilon($partopreno, $partoprenanto, $savu, $renkontigxo);
    $konfirmilo->sendu();
    // kreas konfirmilo.pdf
    $mesagxo->aldonu_dosieron_el_disko($GLOBALS['prafix'] . "/dosieroj_generitaj/konfirmilo.pdf");
    // aldonu la duan informilon, se gxi ekzistas.
    $informilodosiero = $GLOBALS['prafix'] . "/dosieroj/2aInformilo.pdf";
    if (file_exists($informilodosiero)) {
        $mesagxo->aldonu_dosieron_el_disko($informilodosiero);
    }
    $mesagxo->eksendu();
}
/**
 * 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!");
}