malfermu_datumaro();
kontrolu_rajton("akcepti");
require_once 'iloj/iloj_akceptado.php';
$partoprenanto = $_SESSION["partoprenanto"];
$partopreno = $_SESSION['partopreno'];
// la persona pronomo (li aux sxi)
$ri = $partoprenanto->personapronomo;
$Ri = ucfirst($ri);
akceptado_kapo("kontroloj");
// ###############################################################################
// <p>(Reen al <a href='akceptado.php?pasxo=datumoj'>datumoj</a>)</p>
akceptada_instrukcio("Sube estas c^iuj notoj pri {$ri}. Kontrolu, c^u io" . " estas neprilaborita. <br/> Se estas iuj gravaj" . " aferoj, prilaboru tuj (au^ voku respondeculon).");
akceptada_instrukcio("Eble kontrolu {$ri}an log^landon kaj " . "korektu g^in (se necesas).");
akceptada_instrukcio("Eble kontrolu {$ri}an ag^on, kaj korektu g^in, " . "se necesas.");
if ($partopreno->datoj['agxo'] < 18) {
    akceptada_instrukcio("Kolektu la gepatran permeson. Se g^i mankas", " donu faksnumeron de la ejo, kaj insistu ke" . " {$ri} donos g^in.");
}
ligu_sekvan();
akceptado_kesto_fino();
eoecho("<h3>Notoj</h3>");
listu_notojn($_SESSION['partoprenanto']->datoj['ID']);
$_SESSION['sekvontapagxo'] = 'akceptado-kontroloj.php';
eoecho("<h3>Log^lando</h3>");
eoecho(" <p>Lau^ alig^o: " . eltrovu_landon($partoprenanto->datoj['lando']) . "/" . eltrovu_landon_lokalingve($partoprenanto->datoj['lando']) . " &ndash;");
ligu("partoprenanto.php?ago=sxangxi", "s^ang^u!");
echo "</p>\n";
eoecho("<h3> Ag^o/naskig^dato </h3>");
eoecho("<p>Lau^ alig^o: " . $partoprenanto->datoj['naskigxdato'] . " (nun " . $partopreno->datoj['agxo'] . " jaroj) &ndash; ");
ligu("partoprenanto.php?ago=sxangxi", "(s^ang^u!)");
echo "</p>";
HtmlFino();
 echo "<table valign=top border=2>\n";
 echo "<TR><TD valign=top>\n";
 eoecho(" <em>De:</em><br/>");
 $de->montru_aligxinto(true);
 eoecho("</td><td> <em>Al:</em><br/>");
 $al->montru_aligxinto(true);
 echo "</td></tr>\n";
 echo "<tr><td colspan='2'>\n";
 eoecho("Partoprenoj:");
 while ($row = mysql_fetch_array($result, MYSQL_ASSOC)) {
     echo "<br>";
     ligu("partrezultoj.php?partoprenidento=" . $row["ID"], "#" . $row["ID"] . " - " . eltrovu_renkontigxon($row["renkontigxoID"]));
     $pprenoj[] = $row["ID"];
 }
 eoecho("<p>Notoj:</p>");
 listu_notojn($de->datoj['ID']);
 $sql = datumbazdemando(array("ID", "nomo", "retposxtadreso"), "entajpantoj", "partoprenanto_id = '{$de->datoj['ID']}'");
 $rez = sql_faru($sql);
 if (mysql_num_rows($rez) > 0) {
     eoecho("<p>Entajpantoj:</p>");
     eoecho("<table>\n<tr><th>ID</th><th>Nomo</th><th>Retpos^tadreso</th></tr>\n");
     while ($linio = mysql_fetch_assoc($rez)) {
         eoecho("<tr><td>{$linio['ID']}</td><td>{$linio['nomo']}</td><td>{$linio['retposxtadreso']}</td></tr>\n");
     }
     echo "</table>";
 }
 echo "</td></tr>";
 echo "</table>\n";
 echo "<form action='transferi.php' method='GET'>\n";
 tenukasxe("de", $de->datoj["ID"]);
 tenukasxe("al", $al->datoj["ID"]);
                    eoecho("<p>Finita.</p>");
                    ligu("partrezultoj.php?partoprenantoidento=" . $ppeno->datoj['partoprenantoID'], "Reen");
                    HtmlFino();
                    exit;
                }
            }
        }
        break;
    default:
        // faru nenion.
}
sesio_aktualigu_laux_get();
$panto = $_SESSION['partoprenanto'];
$panto->montru_aligxinto("sen bla");
eoecho("<p>Kion vi volas forigi?</p>");
echo "<form action='partoprenforigo.php?panto=" . $panto->datoj['ID'] . "' method='POST'>\n";
entajpbutono("<ul>\n<li>", 'kion', "", "partoprenanto", "partoprenanto", "La partoprenanton #" . $panto->datoj['ID'] . " (" . $panto->tuta_nomo() . ") kun c^iuj " . $panto->personapronomo . "aj partoprenoj kaj la sekvaj notoj:");
listu_notojn($panto->datoj['ID']);
echo "</li>\n";
$sql = datumbazdemando(array("pp.ID" => "enoID", "r.ID" => "rID", "r.mallongigo", "pp.de", "pp.gxis"), array("partoprenoj" => "pp", "renkontigxo" => "r"), array("pp.renkontigxoID = r.ID", "pp.partoprenantoID = '" . $panto->datoj['ID'] . "'"), "", array("order" => "pp.ID"));
$rez = sql_faru($sql);
while ($linio = mysql_fetch_assoc($rez)) {
    entajpbutono("<li>", 'kion', "", $linio['enoID'], $linio['enoID'], "La partoprenon " . donu_ligon("partrezultoj.php?partoprenidento=" . $linio['enoID'], "#" . $linio['enoID'] . " en " . $linio['mallongigo']) . " (" . $linio['de'] . "&mdash;" . $linio['gxis'] . ") </li>\n");
}
entajpbutono("<li>", 'kion', "", "nenion", "nenion", "Mi nenion volas forigi nun.</li>\n</ul>\n", "kutima");
eoecho("<p>Atentu, ne eblos restarigi iam forigitajn datumojn!</p>\n<p>");
butono('forigu', "Forigu!");
// TODO: eble uzu $_SESSION['sekvontapagxo'] ?
ligu("partrezultoj.php?partoprenantoidento=" . $anto->datoj['ID'], "Reen");
echo "</p>\n</form>\n";
HtmlFino();
             $kkren = 'N';
         }
         echo eotransformado($linio['personanomo'] . ";" . $linio['nomo'] . ";" . $linio['agxo'] . ";" . $linio['domotipo'] . ";" . $linio['vegetare'] . ";" . $mangxo . ";" . $lando . ";" . $kkren . ';' . $linio['alvenstato'] . ";\n", "utf-8");
     }
 } else {
     if ("francoj" == $elekto) {
         // SELECT pa.personanomo, pa.nomo, pa.retposxto FROM `is_partoprenoj` as po, is_partoprenantoj as pa  WHERE (po.partoprenantoID = pa.ID) and (pa.lando = 15) and (po.renkontigxoID = 4)
         $sql = datumbazdemando(array("personanomo", "nomo", "retposxto"), array("partoprenoj" => "po", "partoprenantoj" => "pa"), array("po.partoprenantoID = pa.ID", "pa.lando = 15"), "renkontigxoID");
         sercxu($sql, array("personanomo", "ASC"), array(array("personanomo", "persona_nomo", "XXXXX", "", "", ""), array("nomo", "famila_nomo", "XXXXX", "", "", ""), array("retposxto", "retadreso", "XXXXX", "", "", "")), array(), "francoj_is_2004", "", 2, "", "", "");
     } else {
         if ($elekto == "notojn") {
             //
             // vokata de la listo en la menuo (per route.php), kaj ankaĆ­
             // rekte de iuj lokoj.
             $vortext = "Montras c^iun noton de partoprenanto " . donu_ligon("partrezultoj.php?partoprenantoidento=" . $partoprenantoidento, "#" . $partoprenantoidento) . ".</p>\n" . "<p>" . donu_ligon('notoj.php?elekto=bla&partoprenantoidento=' . $partoprenantoidento, "Kreu novan noton!");
             listu_notojn($partoprenantoidento, $vortext);
         } else {
             if ('notoj_de_entajpanto' == $elekto) {
                 HtmlKapo();
                 $epanto = $_REQUEST['entajpantoid'] or $epanto = $_SESSION['kkren']['entajpanto'];
                 if (!$epanto) {
                     // ne devus okazi, krom se la sesio difektigxis.
                     erareldono("Mankas entajpantoid");
                     HtmlFino();
                     return;
                 }
                 $entajpanto = new Entajpanto($epanto);
                 $montrotipo = $_REQUEST['montro'] or $montrotipo = 'remontrendaj';
                 eoecho("<p>Kion montri?</p>\n<p>");
                 foreach ($GLOBALS['notomontrotipoj'] as $tipo => $informoj) {
                     if ($tipo == $montrotipo) {