<html><head><title></title></head>
<body bgcolor=ffffff>
<font face=arial,helvetica>
<font size=1></font>
<h3>TIER HP Datenbank - Test </h3>
Ein erstes Beispiel für die Online Funktion der Datenbank. Hier mit knapp 4000 Datensätzen.<br>
Da das vollständige Durchsuchen der Datenbank relativ aufwändig ist, sucht die Volltextsuche zunächst in den ersten 2500 Einträgen der Datenbank. <br>
Um auch mit sehr grossen Datenbanken zurecht zu kommen wird folgendes Suchverfahren verwendet: Es wird gesucht, bis die ersten 10 Treffer erzielt oder max. 2500 Einträge durchsucht sind. Ist die Datenbank dann noch nicht zuende, kann der Nutzer weitersuchen lassen, bis die nächsten 10 Treffer gefunden oder die nächsten 2500 Einträge durchsucht sind.<p>
Die Synthax der Suche ist: <br>
Mehrere Suchgebriffe sind durch Komma zu trennen und wie folgt zu verknüpfen:
<b>+ muss enthalten sein (UND) - darf nicht enthalten sein (NICHT)
(kein Zusatz) bei mehreren: eins davon muss enthalten sein (ODER) <p>
Beispiel: +Abdomen,-Blähungen,+Leistengegend <p>
Momentan kommt es noch zur Ausgabe überflüssiger Freizeilen bei der Suche (hier ist noch nicht elegant oder optimiert.<p>
<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
Freie Suche: <input type="text" name="_fullsearch~~" value="$_fullsearch">
<input type="submit" value="Suchen">
</form>
<perl>
return if $_fullsearch eq "";
get "fullsearch_match=10";
while(get_next)
{
$out= <<EOF;
<b>$Titel</b><br>$Beschreibung - $Kommentar<p>
EOF
$out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
out $out;
}
my $newrange=$_fullsearch_range+$_fullsearch_range_length;
my $txt;
if($_fullsearch_match_pos<$newrange)
{
$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&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
} else
{
out "Die Datenbank wurde komplett durchsucht.";
}
</perl>
<do action=all search=no>
</body></html>