</td><td valign=top>*****
<!-- Übersicht ausgeben aller datenbanken -->
<table>
<perl>
my $link="/cgi-bin/baseportal.pl?htx=/Webfox/Redaktionssystem/"; #[1]
out "<tr><td valign=top>";  #[2]
&inhalt ("News","NEWS",10); #[3]
out "</td><td valign=top>"; #[2a]
&inhalt ("Presse","PRESSE",10);
out "</td></tr>";
sub inhalt #[4]
{
my $i=0;
my ($db,$header,$range) = @_;
  out "<table><tr><td bgcolor=c0c0c0><b>$header</b><br><font face=Arial size=2>Die $range neusten Einträge.</font></td></tr>";
  out "<tr><td bgcolor=cfcfcf><font face=Arial size=2>";
  get "Id==* sort=-", "$db", "saetze";
  while(get_next("saetze") && $i < $range) {
    out "<a href='$link$db&id=$_id'>$Titel</a><br>";
    $i++;
  }
  out "</font></td></tr></table>";
}
</perl>
<!-- Übersicht ende -->
</table>*****

&inhalt ruft die unterrutine #[4] auf. folgende Parameter werden dabei erwartet:

</td><td valign=top>*****
<a href="/cgi-bin/baseportal.pl?htx=$htx"><b>Alle Einträge</b></a><br>
<loop Id==$id sort=->