<perl>
return if $_fullsearch eq "";
get "fullsearch_match=10";
while(get_next)
{
$out= <<EOF;
<font face="Arial" size="2" color="#0000FF">
<b><a href="$URL"><b>$Titel</b></a></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="<h3><font color=fuchsia>Suche nach weiteren Treffern</font></h3>";
$newrange=$_fullsearch_match_pos;
} else
{
out "<h3><font color=fuchsia>Kein Treffer!</font></h3><p>" if $_fullsearch_amount<1;
$txt="<b>Suche in weiteren Datensätzen</b><hr>";
}
if($newrange<$_amount_all)
{
out "<h3><font color=fuchsia>Es wurde noch nicht in allen Datensätzen gesucht: </font></h3>";
out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
} else
{
out "<center><h3><font color=fuchsia>Die Datenbank wurde komplett durchsucht.</font></h3></center>";
}
</perl>
......