<body>
<table>
<tr>
<td>Titel</td>
<td>Autor</td>
<td>Eigentümer</td>
</tr>
<perl>
$_get_sort = "titel";
get "buecher";
while (get_next("buecher")) {
out "<tr><td>$titel</td><td>";
get "titel==$_id", "titel_person";
while(get_next("titel_person")){
get "Id==$name", "autoren";
out "<a href \"http://baseportal.de/cgi-bin/baseportal.pl?htx=/joerg_hofmann/autor_zeigen&AutorenNr==$_id\">$name</a><br />";
}
out "</td>";
get "Id==$eigentuemer", "mitmacher";
out "<td><a href \"http://baseportal.de/cgi-bin/baseportal.pl?htx=/joerg_hofmann/nutzer_zeigen&NutzerNr==$eigentuemer\">$nickname</a></td></tr>";
}
</perl>
</table>
</body>
===========================================================================