function listu_katsistemojn($tipo)
{
    eoecho("<h2 id='" . $tipo . "'>" . ucfirst(donu_eokatsisnomon($tipo)) . "j</h2>\n<p>");
    // ligoj por krei tute novan kategorisistemon de tiu speco
    ligu("kategorisistemo.php?tipo=" . $tipo, "kreu novan " . donu_eokatsisnomon($tipo) . "n");
    echo "</p>";
    $rez = sql_faru(datumbazdemando("ID", $tipo . "kategorisistemoj"));
    while ($linio = mysql_fetch_assoc($rez)) {
        $sis = donu_katsistemon($linio['ID'], $tipo);
        eoecho("<h3>" . $sis->datoj['nomo'] . "</h3>\n");
        eoecho("<p>Posedanto: " . eltrovu_entajpanton($sis->datoj['entajpanto']) . ". ");
        // ligo por redakti tiun kategorisistemon.
        ligu("kategorisistemo.php?tipo=" . $tipo . "&id=" . $linio['ID'], "Redaktu!");
        eoecho("</p><p>" . $sis->datoj['priskribo'] . "</p>");
        $sis->listu_kategoriojn("simpla");
    }
    // while
    echo "<hr/>\n";
}
    case 'katNova':
        // kreas malplenan kategorio-objekton.
        $kategorio = donu_kategorion($tipo, 0);
        $kategorio->kopiu();
        $kategorio->datoj['sistemoID'] = $_REQUEST['id'];
        $kategorio->skribu_kreante();
        break;
    default:
        darf_nicht_sein("sendu: '" . $_REQUEST['sendu'] . "'");
}
if ($_REQUEST['id']) {
    $katsistemo = donu_katsistemon($_REQUEST['id'], $tipo);
    eoecho("<h1>Redaktado de " . donu_eokatsisnomon($tipo) . "</h1>\n");
} else {
    //         $katsistemo = donu_katsistemon(0, $tipo);
    eoecho("<h1>Nova " . donu_eokatsisnomon($tipo) . "</h1>\n");
}
eoecho("<h2>Bazaj datumoj</h2>\n");
echo "<form action='kategorisistemo.php?tipo=" . $tipo . "' method='POST'>\n";
echo "<table>\n";
tabela_kasxilo("ID", "ID", $katsistemo->datoj['ID']);
tabelentajpejo("nomo", 'nomo', $katsistemo->datoj['nomo'], 20);
if ($_REQUEST['id']) {
    $entajpanto = $katsistemo->datoj['entajpanto'];
    $ent_nomo = eltrovu_entajpanton($entajpanto);
} else {
    $entajpanto = $_SESSION['kkren']['entajpanto'];
    $ent_nomo = $_SESSION['kkren']['entajpantonomo'];
}
tabela_kasxilo("Posedanto", "entajpanto", $entajpanto, $ent_nomo);
granda_tabelentajpejo("priskribo", "priskribo", $katsistemo->datoj['priskribo'], 40, 5);
 function donu_eoklasnomon()
 {
     return donu_eokatsisnomon($this->tipo);
 }