<!----- komplexe Volltext-Suche über "include scr=suchen"---------->
<font size=2 face=arial,helvetica>
<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">

<tr>
<td><div align="center"><center><font size="4" face="Arial"><b>Hier kannst Du die gesamte Rabenvogel-Literaturdatenbank nach einem beliebigen Text durchsuchen</td></b></font></tr>
<perl>init "Rabenvogel"</perl>
<tr>
<td><div align="center"><center><font size="2" face="Arial"><b>Derzeit sind $_amount_all Datensätze verfügbar.</td></tr>
<tr>
<td><div align="center"><center><font size="2" face="Arial"><b>Full text search in the Corvids Literature Database. At present $_amount_all records available.<p></td></tr>
<tr align="center">
<td> <font size="2" face="arial,helvetica">
<input type="text" name="Such=" size="10" value=""></font></td></tr>

<td> <font size="2" face="arial,helvetica">
<div align="center"><center><p></font>
<input type="submit" value="Suchen/Search"></td></tr>
</table>
</form>

<perl>
my @Daten;

#---------------- und das Eingabefeld [Such] nicht leer ist
{
out "Suchbegriff/Search key =<b>[$Such]</b><br>";
my $i=0;
#--------------- Eingabe von ae, ue oder oe abfangen, z.B. "Moeglich" -----
$mSuch = $Such;
$mSuch =~ s/ä/Ä/g;
$mSuch =~ s/ö/Ö/g;
$mSuch =~ s/ü/Ü/g;
$mSuch=lc($mSuch);
$mSuch =~ s/ae/ä/g;
$mSuch =~ s/oe/ö/g;
$mSuch =~ s/ue/ü/g;
get "Autor==*";
while(get_next)
#----------- gesucht wird in dem Feld [Abstract] ----------------------------------
{if ((index($Abstract,$Such)>= 0 or ($Abstract =~ /$mSuch/gim) or ($Autor =~ /$mSuch/gim) or ($Jahr =~ /$mSuch/gim) or ($Titel =~ /$mSuch/gim) or ($Journal =~ /$mSuch/gim) or ($Ausgabe =~ /$mSuch/gim) or ($Seite =~ /$mSuch/gim) ($Test =~ /$mSuch/gim)))
{$i++;

#----------- als Link wird das Feld [Autor, Jahr und Titel] ausgegeben ----------------------

}
out "Treffer/Hits: $i - ";
$treffer = $i > 0 ? "Wähle nachfolgend aus/Choose subsequently:" : "Leider KEIN Treffer";
out "<b>$treffer</b><br>";
out "@Daten";
}

</perl>
</font>