if($cmd eq "buscar")
{
out <<EOF;
<form action="baseportal.pl?cmd=suchen&htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
Freie Suche: <input type="text" name="suchbegriffe:=" value="">
<select name="Categoriea:=" size=1>
<option value="">Todos</option> 
EOF
get "sort=-dir", "$dblink"; 
while(get_next("$dblink"))
{
push(@MIR,"$dir")
}
foreach $nr(@MIR) #--- für jedes Hauptverzeichnis
{
@MM = split(/,/,$nr);           
$VZ=$MM[0];
$neu{$VZ}++ ;
}
foreach $test (keys %neu)
{
out "<option value=$test>$test</option>";
}
out <<EOF;
</select>
<select name="Verknupfung:=" size=1>
<option value="">Una de las Palabras</option> 
<option value=und>Todas las Palabras</option>
</select>
<select name="suchart:=" size=1>
<option value="~~">Suche irgendwo im Text - Ignoriere Gross/Klein-Schreibung</option> 
<option value="~=">Suche Wortanfang Ignoriere Gross/Klein</option>
<option value="==">Suche exaktes Wort Ignoriere Gross/Klein</option>
<option value="~~!">Suche irgendwo im Text Beachte Gross/Klein-Schreibung</option>
<option value="~=!">Suche Wortanfang Beachte Gross/Klein</option>
<option value="==!">Suche exaktes Wort Beachte Gross/Klein</option>
</select>
<select name="anz:=" size=1>
<option value="3">3</option> 
<option value="20">20</option>
<option value="30">30</option>
<option value="40">40</option>
<option value="50">50</option>
<option value="60">60</option>
<option value="70">70</option>
<option value="80">80</option>
<option value="80">90</option>
<option value="100">100</option>

<input type="submit" value="Suchen">
</form>
EOF
}

if ($cmd eq "suchen")#---- Ausgabe bei Volltextsuche
{
@suchargumente=split(/ /, $suchbegriffe);
$suchbegriffe="";
for (@suchargumente)
{
 $suchbegriffe=$suchbegriffe.$_.",";
}
$suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-1);
  
 if ($suchbegriffe eq "") #---- Suchbegriffe füllen (wird beim Blättern benötigt)
 {
  $suchbegriffe=$_fullsearch;
 }
 if ($Verknupfung eq "und")
  {
   @suchargumente=split(/ /, $suchbegriffe);
   $suchbegriffe="+";
   for (@suchargumente)
    {
    $suchbegriffe=$suchbegriffe.$_.",+";
    }
   $suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-2);
  }
 get "_fullsearch$suchart$suchbegriffe fullsearch_match=$anz fullsearch_sort=-Hits Verzeichniss==$Categoriea" , "$dbname", "suchen";
 while(get_next("suchen"))
 {
  if ($_loop % 2 == 0)#------Farbwechsel über $colt
   {
   $colt= "<tr bgcolor=\"#f9f9f9\">";
   } else {
   $colt= "<tr bgcolor=\"#ffffff\">";
   }
#----------------- Ende Farbwechsel ------------------------------------------
  $Vote = sprintf('%.2f', $Vote);      #- Vote auf zwei Stellen runden  
  $Inhalt=substr($Inhalt,0,65)."...."; #- Ausgabe kürzen

  my $NEU="<font color=red>NUEVO: </font>" if($_raw{Erstellt} gt datum("jetzt-2", "intern")); 

  $Titel=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
  $Inhalt=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
  
  $list= "<td valign=top width=35%><font style='font-family: Arial; font-size: 8pt'><a href='baseportal.pl?sel=$sel&LID=$_id&cmd=info&SHOW=$_get{SHOW}&mid=$_get{mid}&lid=$_get{lid}&htx=$htx'>$Titel</a></font></td><td valign=top width=35%><font style='font-family: Arial; font-size: 8pt'>$Inhalt</font></td><td valign=top><font size=1 face=Arial>Hits : $Hits</font></td><td valign=top><font size=1 face=Arial>Punctos : $Vote</font></td><td valign=top><font size=1 face=Arial><b><a href='$lbasecgi?LID=$_id&htx=$linkhits&zeitversek==$zeitversek&Link==$Link' target='_blank'>$pic1</a></b></font></td></tr>";
  out "<br>$_fullsearch_amount<br>$_fullsearch_match_pos<br>$_amount_query<br>$_fullsearch_match<br>$_fullsearch";
  
  out $colt.$list; 
 }
 my $newrange=$_fullsearch_range+$_fullsearch_range_length;
 my $txt;
 if($_fullsearch_match<=$_amount_query)
  {
   $txt="Suche nach weiteren Treffern";
   $newrange=$_fullsearch_match_pos;
  } else {
   out "<b>Kein Treffer.</b><p>" if $_amount_query<1;
   $txt="Suche in weiteren Datensätzen";
  }
  if($newrange<$_amount_all)
  {
   out "Es wurde noch nicht in allen Datensätzen gesucht: ";
   out "<a href=\"baseportal.pl?cmd=suchen&htx=$htx&_fullsearch$suchart".convert_url($_fullsearch).
   "&fullsearch_range=$newrange,$_fullsearch_range_length&suchart=$suchart&anz=$anz\">$txt</a>";
  } else {
   out "Die Datenbank wurde komplett durchsucht.";
 }
}