Hallo,
sorry für meine Ungeduld, habe gestern schon mal zu diesem Thema gepostet, aber nun ich bin in Zeitdruck und brauchte Hilfe von "Blätterprofis".
Das unten stehende Template funktioniert prima, solange man nicht die alphabetische Auswahlfunktion nutzt.
Wählt man z.B. den Buchstaben B aus, dann erscheint in der Blätterfunktion die Anzeige 1 bis 10 von 32, aber wenn man die Ausgabe von 11-20 haben möchte, bekommt man zwar 11-20 aber von 329.
Er merkt sich also vorhergehende die Suchabfrage nicht. Bei der einfacheren Vorgängerblätterversion wurde das von Euch mit
<perl>
$merken="&Bereich~=$_sel{Bereich}" if $_sel{Bereich} ne "";
</perl>
elegant gelöst, und dann mit
<perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<< <a href=\"$_link&range=$oldrange,$_range_length$merken\">Zurück</a> " if $oldrange>=0;
out "<a href=\"$_link&range=$newrange,$_range_length$merken\">Weiter</a> >>" if $newrange<$_amount_query;
</perl>
die eigentliche Blätterfunktion erzeugt.
Ich habe jetzt alles versucht die Variable $Merken in Eure "De-luxe-Blätterfunktion" zu integrieren-leider erfolglos.
Danke für Tipps
Gruß
Micha
Hier zur Ansicht des Templates:
http://rathaus-buerstadt.de/baseportal/Zustaendigkeiten_Style
Hier der ganze Code:
<html>
<head>
<title>Zustaendigkeiten</title>
</head>
<body>
<include src=style2>
<include src=style3>
<p align="left"><font face="Verdana, Arial, Helvetica, sans-serif"
size="2" color="000000"><b>Zuständigkeiten (alphabetisch geordnet)</b></font></p>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<p align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif"
size="2">wählen Sie bitte aus -> <a href="http://www.rathaus-buerstadt.de/baseportal/suchen_Zustaendigkeiten">suchen</a>
<a href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten_Style
&Bereich~=A|Bereich~=Ä">A</a>
<a
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten_Style
&Bereich~=B">B</a>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=C">
C</a> <a
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=D">D</a></font>
<font color="#FFFF99"><a
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=E">E</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaend
igkeiten
&Bereich~=F">F</a></font>
<font color="#FFFF99"><a
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=G">G</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=H">H</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaend
igkeiten
&Bereich~=I">I</a></font>
<font color="#FFFF99"><a
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=J">J</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=K">K</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=L">L</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=M">M</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=N">N</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=O|Bereich~=Ö">O</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=P">P</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=Q">Q</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=R">R</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=S">S</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=T">T</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=U|Bereich~=Ü">U</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=V">V</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich~=W">W</a></font>
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten
&Bereich>W">XYZ</a></font> </font>
<font color="#FFFF99"> <font face="Verdana, Arial, Helvetica, sans-serif"
size="2"><a
href="http://www.rathaus-buerstadt.de/cgi-bin/baseportal.pl?htx=/rathaus-buerstadt.de/Zustaendigkeiten">alle</a></font>
</b></p></tr>
</table>
<table width="80%">
<tr bgcolor="$tbtitel" valign="top">
<td width="15%" class=tabtitel>
<div align="center"><span class>Bereich</span></div>
</td>
<td width="15%" class=tabtitel>
<div align="center"><span>Kurzbeschreibung</span></div>
</td>
<td width="10%" class=tabtitel>
<div align="center"><span class>zuständiges Amt/Abteilung</span></div>
</td>
<td width="10%" class=tabtitel>
<div align="center"><span class>weitere Informationen</span></div>
</td>
</tr>
<perl>
$v=$v||0; # Startwert vorgeben, wenn $v leer ist
</perl>
<loop code=perl db=/rathaus-buerstadt.de/Zustaendigkeiten sort=Bereich range^=$v,10>
if ($_loop % 2 == 0)
{
out "<tr bgcolor=$tbzeile1>";
}else
{
out "<tr bgcolor=$tbzeile2>"
}
out "<td class=tabtext><span class>$Bereich</span></td>
<td class=tabtext><span class>$Kurzbeschreibung</span></td>
<td class=tabtext><span class><a href=$Linkamt>$Amt</a></td>
<td class=tabtext><span class><a href=$Linkinfos>$Infos</a></td>
</tr>";
</loop>
<perl>
if ($_amount == 0)
{
out "<font face=\"Verdana, Arial\"size=\"4\" color=\"#ff3300\">Es wurden leider keine Einträge gefunden";
}
</perl>
</table>
<p align="center"> <font face="Verdana, Helvetica, sans-serif" size="2">
<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='60%';
my $table_align='left';
out "<div align=$table_align>";
out "<table width=$table cellpadding=1 cellspacing=1 bgcolor=ffffff>
<tr align=left>
<td bgcolor=$color align='left'><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>
</font>
</p>
<include src=footer>
</body>
</html>