return if $_fullsearch eq "";
get "fullsearch_match=10";
while(get_next)
{
$out= <<EOF;
<font face="Arial" size="3" color="#0000FF">
<b><a href="$URL" target="_top"><b>$Titel</b></a></b></font><br><font face="Arial" size="2"><b>$Beschreibung</b></font>
<p><p>
EOF
$out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
out $out;
}
my $newrange=$_fullsearch_range+$_fullsearch_range_length;
my $txt;
if($_fullsearch_match_pos<$newrange)
{
$txt="Suche nach weiteren Treffern";
$newrange=$_fullsearch_match_pos;
} else
{
out "<b>Kein Treffer.</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>";
} else
{
out "Die Datenbank wurde komplett durchsucht.";
}
</perl>
<br>
</td>
</tr>
</table>
</center>