<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
Freie Suche: <input type="text" name="_fullsearch~~" value="$_fullsearch">
<input type="submit" value="Suchen">
</form>

return if $_fullsearch eq "";

while(get_next)
{
$out= <<EOF;

<b>$veranstaltungsthema</b><br>
$kurzbeschreibung<br>
$besondere_zielgruppe<br>
<a href="$link_url">$link_text</a><hr noshade>

EOF

out $out;
}

my $txt;

{
    $txt="Die nächsten Ergebnisse";
    $newrange=$_fullsearch_match_pos;
} else
{
    out "<b>Kein Treffer</b>" if $_fullsearch_amount<1;
    $txt="Suche in weiteren Datensätzen";
}

{
#    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>

$out=~ s#$_fullsearch_regex#$1#g;
statt des font Tags mit CSS formatieren will, klappt das nicht.

$out=~ s#$_fullsearch_regex#<b>$1</b>#g;