function kreu_mangxkuponon($x, $y, $partoprenantoID, $partoprenoID, $savu, $vego)
 {
     $partopreno = new Partopreno($partoprenoID);
     $partoprenanto = new Partoprenanto($partoprenantoID);
     $this->pdf->setFontSize(15);
     $this->pdf->SetLineWidth(0.6);
     for ($i = 0; $i <= 6; $i++) {
         $this->pdf->rect($x + $i * 10, $y, 10, 24);
         $this->pdf->rect($x + $i * 10, $y + 94, 10, 24);
         $this->pdf->rect($x + 70, $y + 24 + $i * 10, 24, 10);
     }
     $this->pdf->rect($x, $y, 94, 118);
     $this->pdf->SetLineWidth(0.2);
     $this->pdf->rect($x, $y + 40, 53, 38);
     $this->pdf->text($x + 18, $y + 31, uni("Matenmang^o"));
     // TODO: eble prenu la germanajn nomojn el
     // TODO:  datumbazo aŭ konfigurdosiero
     $this->pdf->text($x + 22, $y + 38, "Frühstück");
     $this->pdf->text($x + 18, $y + 84, uni("Vespermang^o"));
     $this->pdf->text($x + 22, $y + 91, uni("Abendessen"));
     $this->pdf->image($GLOBALS['prafix'] . "/bildoj/tagmangxo.png", $x + 56, $y + 48, 6);
     $this->pdf->image($GLOBALS['prafix'] . "/bildoj/mittagessen.png", $x + 62, $y + 45, 6);
     // TODO: ne uzu bildojn, sed rekte generu la tekston
     //  (kaj ne de 27.12. ĝis 3.1., sed laŭ la renkontiĝo-datoj)
     $this->pdf->image($GLOBALS['prafix'] . "/bildoj/27.png", $x + 2, $y + 98, 5);
     for ($i = 28; $i <= 31; $i++) {
         $this->pdf->image($GLOBALS['prafix'] . "/bildoj/{$i}.png", $x + 12 + ($i - 28) * 10, $y + 98, 5);
         $this->pdf->image($GLOBALS['prafix'] . "/bildoj/{$i}.png", $x + 2 + ($i - 28) * 10, $y + 4, 5);
         $this->pdf->text($x + 74, $y + 32 + ($i - 28) * 10, "{$i}.12");
     }
     for ($i = 01; $i <= 02; $i++) {
         $this->pdf->image($GLOBALS['prafix'] . "/bildoj/{$i}.png", $x + 12 + ($i + 3) * 10, $y + 98, 5);
         $this->pdf->image($GLOBALS['prafix'] . "/bildoj/{$i}.png", $x + 2 + ($i + 3) * 10, $y + 4, 5);
         $this->pdf->text($x + 74, $y + 32 + ($i + 3) * 10, "0{$i}.01.");
     }
     $this->pdf->image($GLOBALS['prafix'] . "/bildoj/3.png", $x + 62, $y + 4, 5);
     $this->pdf->text($x + 74, $y + 32 + (3 + 3) * 10, "03.01.");
     $this->pdf->setFontSize(20);
     $i = 20;
     if ($partoprenanto->datoj['sxildnomo'] != '') {
         $nomo = uni($partoprenanto->datoj['sxildnomo']);
     } else {
         $nomo = uni($partoprenanto->datoj['personanomo']);
     }
     while ($this->pdf->GetStringWidth($nomo) > 47) {
         $i--;
         $this->pdf->setFontSize($i);
     }
     $this->pdf->text($x + 5, $y + 47, $nomo);
     while ($this->pdf->GetStringWidth($partoprenanto->datoj['nomo']) > 46) {
         $i--;
         $this->pdf->setFontSize($i);
     }
     $this->pdf->text($x + 5, $y + 56, uni($partoprenanto->datoj['nomo']));
     $this->pdf->SetFontSize(15);
     $this->pdf->line($x + 5, $y + 48, $x + 50, $y + 48);
     $this->pdf->line($x + 5, $y + 57, $x + 50, $y + 57);
     $this->pdf->setFontSize(16);
     if ($partopreno->datoj['vegetare'] == 'J' or $vego == 'J') {
         $this->pdf->text($x + 10, $y + 66, uni("Vegetarano"));
         $this->pdf->text($x + 14, $y + 73, uni("Vegetarier"));
     } else {
         if ($partopreno->datoj['vegetare'] == 'A' or $vego == 'A') {
             $this->pdf->text($x + 10, $y + 66, uni("Vegano"));
             $this->pdf->text($x + 14, $y + 73, uni("Veganer"));
         } else {
             $this->pdf->text($x + 10, $y + 66, uni("Viandmang^anto"));
             $this->pdf->text($x + 14, $y + 73, uni("Fleischesser"));
         }
     }
     $this->pdf->image($GLOBALS['prafix'] . "/bildoj/eo-echt.png", $x + 72, $y + 8, 20, 12);
     $this->pdf->image($GLOBALS['prafix'] . "/bildoj/eo-echt.png", $x + 72, $y + 100, 20, 12);
     if ($partopreno->datoj[partoprentipo] != 't' and $partoprenoID != '0') {
         $dauro = $_SESSION["renkontigxo"]->renkontigxonoktoj();
         $tagoj = $partopreno->partoprennoktoj();
         $ekas = kalkulu_tagojn($_SESSION["renkontigxo"]->datoj['de'], $partopreno->datoj['de']);
         for ($i = 0; $i < $ekas; $i++) {
             $this->pdf->SetLineWidth(0.4);
             //matenmanĝo
             $this->pdf->line($x + $i * 10, $y, $x + 10 + $i * 10, $y + 24);
             $this->pdf->line($x + 10 + $i * 10, $y, $x + 1 + $i * 10, $y + 24);
             //vespermanĝo
             $this->pdf->line($x + $i * 10, $y + 94, $x + 10 + $i * 10, $y + 24 + 94);
             $this->pdf->line($x + 10 + $i * 10, $y + 94, $x + 1 + $i * 10, $y + 24 + 94);
             //tagmanĝo
             $this->pdf->line($x + 70, $y + 24 + $i * 10, $x + 94, $y + 34 + $i * 10);
             $this->pdf->line($x + 94, $y + 24 + $i * 10, $x + 70, $y + 34 + $i * 10);
         }
         //la dekstra parto
         for ($i = $tagoj + $ekas; $i < $dauro; $i++) {
             $this->pdf->SetLineWidth(0.4);
             //matenmanĝo
             $this->pdf->line($x + $i * 10, $y, $x + 10 + $i * 10, $y + 24);
             $this->pdf->line($x + 10 + $i * 10, $y, $x + 1 + $i * 10, $y + 24);
             //vespermanĝo
             $this->pdf->line($x + $i * 10, $y + 94, $x + 10 + $i * 10, $y + 24 + 94);
             $this->pdf->line($x + 10 + $i * 10, $y + 94, $x + 1 + $i * 10, $y + 24 + 94);
             //tagmanĝo
             $this->pdf->line($x + 70, $y + 24 + $i * 10, $x + 94, $y + 34 + $i * 10);
             $this->pdf->line($x + 94, $y + 24 + $i * 10, $x + 70, $y + 34 + $i * 10);
         }
     }
     $this->pdf->setFontSize(13);
     $this->pdf->setXY($x + 71, $y + 2);
     $loko = $this->renkontigxo->datoj['loko'];
     // stranga hakaĵo: se la nomo de la loko estas tro longa
     // kaj finiĝas per "burg", enmetu "- ", por ebligi linirompadon.
     $lokolen = strlen($loko);
     if ($lokolen > 7 and substr($loko, $lokolen - 4) == 'burg') {
         $loko = substr($loko, 0, $lokolen - 4) . "- " . substr($loko, $lokolen - 4);
     }
     $this->pdf->multicell(22, 4, uni($this->renkontigxo->datoj['mallongigo'] . ' en ' . $loko), '', 'C');
     $this->pdf->setFontSize(9);
     $this->pdf->setXY($x + 71, $y + 15);
     $this->pdf->multicell(22, 4, uni($this->renkontigxo->datoj['de'] . " g^is\n" . $this->renkontigxo->datoj['gxis']), '', 'C');
     $this->pdf->setXY($x + 72, $y + 96);
     // TODO: prenu el konfiguro
     $this->pdf->multicell(20, 4, uni("Germana\n\nEsperanto-\n\nJunularo"), '', 'C');
     // TODO: text wirklich hochkant drucken (anstatt Bild)
     /*$pdf->text(10,20,uni("Tagmang^o"));
       $pdf->text(10,200,uni("Mittagessen"));
       $pdf->text(10,40,"27.12.");
         $pdf->text(10,60,"28.12.");
           $pdf->text(10,80,"29.12.");
             $pdf->text(10,100,"30.12.");
               $pdf->text(10,120,"31.12.");
                 $pdf->text(10,140,"01.01.");
                   $pdf->text(10,160,"02.01.");
                     $pdf->text(10,180,"03.01.");*/
     if ($savu == "J") {
         $partopreno->datoj['havasMangxkuponon'] = 'P';
         $partopreno->skribu();
     }
 }