sub get_page
{
  get "wiki", "Kennung==$_[0] sort=- range=0,1";

{
      get ["wiki", "Begriff", "==", $sw], "keywords";
      $Seiten.="$Kennung#" if index($Seiten, "$Kennung#")<0;
      if($_amount==0) { put ["Begriff", $sw, "Seiten", $Seiten], "keywords"; }
      else { mod "Id==$_id", ["Seiten", $Seiten], "keywords"; }
    }

{
        get ["wiki", "Titel", "~=", $t];
        if($_amount==0)
        {
          put ["Titel", $t]; get ["wiki", "Titel", "==!", $t]; mod "Id==$_id", ["Kennung", $_id]; my $k=$_id;
          get "Kennung==0 sort=- range=0,1"; put ["Kennung", 0, "Autoren", $Autoren, "Titel", $Titel, "Text", "$Text\n   - [$k]"];     # neue seite automatisch ins inhaltsverzeichnis eintragen
          $Kennung=$k;