Ich gebe meine Ausgabe mit loop aus und möchte natürlich auch, dass man durch alle Beiträge blättern kann. Ich habe dazu die Blättern fast nachgebaut aus der Bib genommen. Dabei sehe ich jedoch immer nur die ersten 6 Beiträge, obwohl im Blättern die Zahlen ändern. Wer kann mir da weiter helfen?
Hier mein Quelltext:
Besten Dank im voraus
*****
<table cellpadding=0 cellspacing=0 border=0 bgcolor=f0f0f0 width="100%"><tr><td>
<table border=0 cellspacing=2 cellpadding=4>
<table border="1" width="100%">
<colgroup>
<col width="1*"
<col width="4*">
<col width="2*">
<col width="1*">
<col width="1*">
</colgroup>
</table>
<font face=verdana size=2><headface=verdana headsize=2 dataface=verdana datasize=2>
<tr bgcolor=c0d0f0>
<td><font size=2><font color="red">Detail: </font></font></td>
<td><font size=2><font color="red">Titel: </font></font></td>
<td><font size=2><font color="red">Stichworte: </font></font></td>
<td><font size=2><font color="red">Stufe: </font></font></td>
<td><font size=2><font color="red">Art: </font></font></td></tr>
<loop db=Thema range=0,6>
<tr>
<td bgcolor=e0e0e0><font size=2><a href="http://vhk.netpure.de/baseportal/vhk/Themenbeitraege/Detail&Id==$_id" target=blank>Detail</a></font></td>
<td bgcolor=e0e0e0><font size=2>$Titel</font></td>
<td bgcolor=e0e0e0><font size=2>$Stichworte</font></td>
<td bgcolor=e0e0e0><font size=2>$Stufe</font></td>
<td bgcolor=e0e0e0><font size=2>$Art</font></td>
<tr></tr><tr></tr>
</tr></loop><tr>
<perl>
$v=$v||0;
get "Id==* sort=-Id range=$v,6", "Thema";
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 $font='Thomas, Arial';
my $size='1';
my $table=''; #kann auch %-Angabe gesetzt werden
my $table_align='left';
out "<div align=$table_align>";
out "<table width=$table cellpadding=4 height=25 cellspacing=4><tr align=left>
<td bgcolor=$color align='center'><font face=$font font size=$size>";
$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=$font font size=$size>";
out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
out "</font></td><td bgcolor=$color align='center'><font face=$font font size=$size>";
$ende=substr($_amount_query,0,length($_amount_query)-1);
out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange\">></a>":">>";
out "</td><td font face=$font font size=$size bgcolor=$color align='center'><font face=$font font size=1>";
out $newrange<$_amount_query?"<a href=\"$_link&v=".($ende."0")."\">>|
</a>":">|";
out "</font></td><td bgcolor=$color_vonbis width='185' align='center'><font face=$font font size=$size>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=$font font size=$size><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=$font font size=$size>".($v==$i?"<b>".($i+1)."</b>":"<a
href=$_link&v=$i>".($i+1)."</a>")."</td>";
}
out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=$_link&v=$i>>></a></td>" if $i<$_amount_query;
}
out "</font></tr></table></div>";
</perl>
