<perl>
 
return if $_fullsearch eq "";

while(get_next("meineDatenbank"))
{
$out= <<EOF;
<p>
 
Firma / Organisation: <b>$Firma</b><br>
Vor- und Nachname: <b>$Vorname $Nachname</b><br>
   Ort / Land: <b>$Ort ($Land)</b><br>
   Details: <b><a href="http://meineDomain.de/baseportal.pl?htx=/meineDomain.de/details&Id==$_id">mehr...</a></b>
   <hr style="margin-top:20px; margin-bottom:5px; border-width:1px; border-color:silver; border-style:dotted;">
</p>

$out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
out $out;
}
 
my $newrange=$_fullsearch_range+$_fullsearch_range_length;
my $txt;

{
 
$txt="Suche nach weiteren Treffern";
$newrange=$_fullsearch_match_pos;

{
 
out "<b>Kein Eintrag gefunden.</b><p>" if $_fullsearch_amount<1;
$txt="Suche in weiteren Datensätzen";

if($newrange<$_amount_all)
{
 
out "Es wurde noch nicht in allen Datensätzen gesucht: ";
    out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";

{
out "Das Verzeichnis wurde komplett durchsucht.";
}
</perl>