Hallo,
ich wollte meine Freude einfach mal mit Euch teilen.
Jetzt steht die hash-gesteuerte, gruppierte 2-spaltige Ausgabe mit Blättern und Volltextsuche!!!!!!
Ein kleiner Schritt für die Menschheit, ein großer für mich.
Es folgt der Nachspann.
Ich danke allen Party-Gästen in der Reihenfolge ihres Auftritts:
1. Christoph Bergmann (Berlin)
2. Tina (??)
3. Ruben Hempel (SACHSEN)
Der Vorhang fällt, bis zum nächsten Mal..
Gruß
Micha
http://rathaus-buerstadt.de/baseportal/Linkliste
und das steckt dahinter:
<html><head><title>Linkliste</title>
</head><body bgcolor="#ffffff">
<include src=style>
<table width="40%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#e9e9e9"><div align="left">
<form action="baseportal.pl?htx=$htx&db=Linkliste" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<input type="hidden" name="db=" value="Linkliste">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">Suchbegriff:</font>
<input type="text" name="_fullsearch~~" value="$_fullsearch" size="10">
<input type="submit" value="Suchen" name="submit">
</form>
</td>
</tr>
</table>
<perl>
return if $_fullsearch eq "";
get "fullsearch_match=10";
while(get_next)
{
$Name=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
$Bezeichnung=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
$Kategorie=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
$out.=<<EOF;
<b><font size=2 face=verdana>Kategorie $Kategorie</b></font><br><font size=1 face=verdana,arial,helvetica>$Name<br>Internet:<a href="http://$URL">$URL</a> </font><p><hr>
EOF
}
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>
<table border="0" cellspacing="3" width="100%" cellpadding="2">
<td width="100%" bgcolor="#ffffff"><font face="Verdana" size="2"><font color="#000000"><b>Rathaus-Bürstadt</b></font>-<b>Linkliste</b></font></td>
<p align="right"><font size="2" face="Verdana">
out <<EOF;
</div>
<font face="Verdana" size="1">
<table cellspacing="3" cellpadding="2"><tr>
$v=$v||0; # Startwert vorgeben, wenn $v leer ist
get "Id==* sort=Kategorie,Name range=$v,20", "Linkliste"; # $v ist variabel
while(get_next("Linkliste"))
{
$h_namen{$Kategorie}.="$Name#";
$h_links{$Kategorie}.="$URL#";
}
foreach $k(sort(keys %h_namen))
{
@a_namen=split /#/,$h_namen{$k};
@a_links=split /#/,$h_links{$k};
$l_Kategorie=$k;
foreach $n (@a_namen)
{
$cnt_Kategorie++;
$l=shift@a_links;
$inf=$lcnt%2;
if($inf eq 0)
{
$a_linhalt.="<tr valign=top><td><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">$n<br><img src=\"http://www.rathaus-buerstadt.de/bilder/datenpunkt.gif\" width=\"12\" height=\"9\" align=\"absmiddle\"> <a href=http://$l target=\"_blank\">$l</a></font></td></tr>";
}
$lcnt++;
$inf2=$rcnt%2;
if ($inf2 eq 1)
{
$a_rinhalt.="<tr valign=top><td><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">$n<br><img src=\"http://www.rathaus-buerstadt.de/bilder/datenpunkt.gif\" width=\"12\" height=\"9\" align=\"absmiddle\"> <a href=http://$l target=\"_blank\">$l</a></font></td></tr>";
}
$rcnt++;
}
$cnt_ges=$cnt_ges+$cnt_Kategorie;
out "<br><table border=0 width=600><td colspan=2 align=left bgcolor=#FF9900 ><p><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>Kategorie: $l_Kategorie ($cnt_Kategorie) </b></font></td></tr>";
out "<tr valign=top><td align=left><table border=0 width=300>$a_linhalt </td></table>
<td align=left><table border=0 width=300>$a_rinhalt</table></td></tr><tr><td colspan=2 align=left><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"></font></td></tr></table>";
$a_linhalt="";
$a_rinhalt="";
$cnt_Kategorie="0";
$lcnt=0;
$rcnt=0;
}
</perl>
<perl>
my $range=$_range_length;
my $blaettern=$_range_length;
my $blaetter_lang=$range*10;
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
my $color='#CCCCCC';
my $color_vonbis='#FFFFFF';
my $color_zahl='#CCCCCC';
my $color_vorzu='#CCCCCC';
my $color_balken='#CCCCCC';
my $table='400';
my $table_align='left';
out "<div align=$table_align>";
out "<table width=$table cellpadding=2 cellspacing=2><tr align=left>
<td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out $oldrange>=0?"<a href=\"$_link&v=0\">|<</a>":"|<";
out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
out "</font></td><td bgcolor=$color align='center'><font face=verdana, arial font size=1>";
$ende=substr($_amount_query,0,length($_amount_query)-1);
out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange\">></a>":">>";
out "</td><td font face=verdana, arial font size=2 bgcolor=$color align='center'><font face=verdana, arial font size=1>";
out $newrange<$_amount_query?"<a href=\"$_link&v=".($ende."0")."\">>|
</a>":">|";
out "</font></td><td bgcolor=$color_vonbis width='200' align='center'><font face=verdana, arial font size=1>Einträge ".($v+1)." bis
".(($v+$blaettern)>$_amount_query?"$_amount_query":($v+$blaettern))." von
$_amount_query</td>";
if ($_amount)
$vr=int($v/$blaetter_lang) unless $_range==0;
$vr=$vr*$blaetter_lang;
out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=".($vr-$blaetter_lang)."><<</a></td>" if
($vr-$blaetter_lang)>=0;
for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
{
out "<td bgcolor=$color_zahl align='center'><font face=verdana, arial font size=1>".($v==$i?"<b>".($i+1)."</b>":"<a
href=$_link&v=$i>".($i+1)."</a>")."</td>";
}
out "<td bgcolor=$color_vorzu align='center'><font face=verdana, arial font size=1><a href=$_link&v=$i>>></a></td>" if $i<$_amount_query;
}
out "</font></tr></table></div>";
</perl>
<include src=footer>
</body></html>
