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

return if $_fullsearch eq "";

my $newrange=$_fullsearch_range+$_fullsearch_range_length;
my $txt;

{
    $txt="Buscar siguente";
    $newrange=$_fullsearch_match_pos;
} else
{
    out "<b>todavía ningún golpe.</b><p>" if $_fullsearch_amount<1;
    $txt="Búsqueda en expedientes de datos más futuros.";
}

{
    out "No fue buscada todavía en todos los expedientes de datos.: ";
    out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
} else
{
    out "La base de datos fue explorada totalmente.";
}
</perl>