<form action="$pfad" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<input type="hidden" name="include=" value="ergebnis">
<input type="text" name="_fullsearch~~" value="$_fullsearch" class=form> 
<input type="submit" value="suche!" class="button">

<perl>
return if $_fullsearch eq "";
get "fullsearch_match=5", "zitate", "erg";
while(get_next("erg"))
 {
$autor=~ s#$_fullsearch_regex#<b><font color=79A400>$1</font></b>#g;
$inhalt=~ s#$_fullsearch_regex#<b><font color=79A400>$1</font></b>#g;
$out.= "<p class=blaues><i>$inhalt</i></p><span class=texte>$autor</span>$myfooter<hr>";
 }
if ($_fullsearch_amount<1)
{
out "Niestety, przeszukiwanie nie da³o rezulatów.</p>";
} 

 {
out "Oto wyniki:</p><hr>";
 }
out $out; 

my $txt;

{
    $txt=">>Szukaj dalej";
    $newrange=$_fullsearch_match_pos;
} 
else
{
    $txt=">>Szukaj dalej";
}

{
    out "<p><b>Baza danych nie zosta³a do koñca przeszukana: </b>";
    out "<a href=\"$pfad&include=$include&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a></p>";
} else
{
    out "<p><b>Baza danych zosta³a przeszukana.</p></b>";
}
</perl>