<form action="baseportal.pl?htx=$htx&cmd=search" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<span class="text">Freie Suche in der Datenbank </span><input type="text" name="_fullsearch~~" value="$_fullsearch">
<input type="submit" value="Suchen">
</form>
EOF

return if $_fullsearch eq "";

while(get_next)
{
$kurzText = substr($Text,0,100); # kürzt den wert von feldname auf die ersten 100 Buchstaben
$suchDatum=datum($Datum, "kurz");
$out= <<EOF;
<b><a href="baseportal.pl?htx=$htx&wcheck=1&Pos=$Pos">$Titel</a> - <b>$Name</b> - $suchDatum</b><br>  $kurzText<br><br>
EOF
$out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
out $out;
}

my $txt;

{
    $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";
}

{
    out "Es wurde noch nicht in allen Datensätzen gesucht ";
    out "<a href=\"baseportal.pl?htx=$htx&cmd=search&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
} else
{
    out "Die Datenbank wurde komplett durchsucht.";
}

<br>