Hallo,
nachfolgender Code bringt als Ergebnis zwar die Anzahl der Suchergebnisse, aber leider nicht die Liste mit den rotmarkierten Suchergebnissen in Textform.
Die Datenbank in der gesucht werden soll:
db=Portal
das Template der Ausgabe: Archiv_Kopie
das ist der Link:
http://rathaus-buerstadt.de/baseportal/Archiv_Kopie
Danke für Tipps
Gruß
Micha
<form action="baseportal.pl?htx=$htx&db=Portal" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="/rathaus-buerstadt.de/Archiv_Kopie">
<input type="hidden" name="db=" value="Portal">
<input type="text" name="_fullsearch~~" value="$_fullsearch">
<class=tabtext>
<input type="image" name="click and go" src="http://www.rathaus-buerstadt.de/bilder/symbole/suchen.gif" alt="suchen" align="bottom" border="0">
</form>
<perl>
return if $_fullsearch eq "";
get "fullsearch_match=10";
while(get_next)
{
$Datum=datum($Datum,"Tag.Monat.Jahr");
$out.=<<EOF;
<u><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Titel:</b></font></p></u> $Titel<br><br>
<u><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b></b></font></p></u> $Kurztext<br><br>
<u><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Teilnehmer:</b></font></p></u> Teilnehmer<br>
<hr>
EOF
}
$out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
if ($_fullsearch_amount<1)
{
out "<font size=2 face=verdana, arial><b>Ihre Suchabfrage ergab leider keinen Treffer.</b></font><p>";
} else
{
out "<font size=2 face=verdana, arial><b>Ihre Suchanfrage ergab $_fullsearch_amount Treffer (rot markiert)</b></font><p><hr>";
}
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
{
$txt="Suche in weiteren Datensätzen";
}
if($newrange<$_amount_all)
{
out "<font size=2 face=verdana, arial>Es wurde noch nicht in allen Datensätzen gesucht:</font>";
out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
} else
{
out "<font size=2 face=verdana, arial>Die Datenbank wurde komplett durchsucht.<br><br></font>";
}
$_fullsearch_amount;
</perl>
