Hallo,
ich habe ein Problem mit der Blätterfunktion.
Nach einfügen des Codes wird die Navigationsleiste auch oben angezeigt.
Allerdings werden trotzdem alle 1600 Datensätze in der Liste angezeigt.
Ich habe aber (trotz Durchsuchen des Forums und der Doku) keine Ahnung, woran es liegt, das die Datensätze nicht aufgeteilt werden.
Link zur Seite:
http://www.cuxhaven-tours.de/cgi-bin/baseportal.pl?htx=/ct/VA_Kalender_2007_list_Kopie
und der Code:
<html><head>
<title>Nordseeheilbad Cuxhaven .:Aktuelle Veranstaltungen - Übersicht:.</title>
<style>
table, p, body {font-family: arial, 'Sans Serif'; font-size:9pt;color:#333333}
body {color:#ffffff; background-color:#ffffff;}
a {text-decoration:none; color:#0000F0;}
a:hover {color:#d00000;}
.line {background-color:#204aa7; height:3px;}
.button {font-size:10pt; text-align:center; background-color:#ffffff; color:#204aa7; border-style:solid; border-width:1px;}
.selected {font-size:10pt; text-align:center; background-color:#204aa7; font-weight:bold; color:#ffffff}
.spacer {width:3px;}
.list {color:#333333; border-style:solid; border-width:1px;}
.detail {background-color:#ffffff;}
.detail th, .form th, .search th {background-color:ffffff; color:#333333; font-weight:bold;}
.list th {background-color:#204aa7; color:#ffffff; font-weight:bold; border-style:solid; border-width:2px; font-weight:bold;}
.detail th {background-color:#ffffff; color:#333333; font-weight:bold;}
.search th, .form th, .detail th {text-align:right; vertical-align: top;}
.data2 {background-color:#fbedbc;}
.Aktion {font-size: 10px;}
.Text {font-family: arial, 'Sans Serif'; font-size:9pt;color:#333333}
.Reiseziel {font-family: arial, 'Sans Serif'; font-size:10pt; color:#204aa7; font-weight: bold;}
.Listenkopf {font-family: arial, 'Sans Serif'; font-size:10pt; color:#ffffff; font-weight: bold;}
<body>
<center>
<div class=va_kalender>
<table cellpadding=2 cellspacing=0 class=menu><tr><td class=spacer></td><td class=selected> <b>Alles</b> </td><td class=spacer></td><td class=button> <a href="http://www.cuxhaven-tours.de/cgi-bin/baseportal.pl?htx=/ct/VA_Kalender_2007_suche">Suchen</a> </td><td class=spacer></td><td class=button> Auswahl </td><td class=spacer></td><td class=button> Detail </td><td class=spacer></td></tr><tr><td></td><td class=line colspan=7></td><td></td></tr></table><p>
<p>
<!--$v für range setzen -->
<perl>
$v=$v||0;
</perl>
<!--Blättern oben -->
<perl>
get "Id==* range=$v,10 @_sel", "VA_Kalender_2007";
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='';
my $table_align='center';
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&suche=$suche&@_sel&sort=$sort\">|<</a>":"|<";
out "</font></td><td bgcolor=$color align='center'><font face=$font font size=$size>";
out $oldrange>=0?"<a href=\"$_link&v=$oldrange&suche=$suche&@_sel&sort=$sort\"><</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&suche=$suche&@_sel&sort=$sort\">></a>":">>";
out "</font></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&suche=$suche&v=".($ende."0")."&@_sel&sort=$sort\">>|
</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&suche=$suche&v=".($vr-$blaetter_lang)."&@_sel&sort=$sort><<</a></font></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&suche=$suche&v=$i&@_sel&sort=$sort>".($i+1)."</a>")."</font></td>";
}
out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=$_link&suche=$suche&v=$i&@_sel&sort=$sort>>></a></font></td>" if $i<$_amount_query;
}
out "</font></tr></table></div>";
</perl>
<perl>
init "VA_Kalender_2007";
out <<EOF;
<span class=text>$_amount_all Einträge gesamt: </span>
<p>
</p>
<table width="557" border="1" cellspacing="0" cellpadding="3">
<tr bgcolor="#204AA7" class=Listenkopf>
<td><div align="center">Datum</div></td>
<td><div align="center">Begin</div></td>
<td><div align="center">Ende</div></td>
<td><div align="center">Veranstaltung</div></td>
</tr>
EOF
get "sort=Datum", "VA_Kalender_2007";
while(get_next "VA_Kalender_2007")
{
if ($_loop % 2 == 0)
{
out "<tr bgcolor=\"#fbedbc\">";
}else
{
out "<tr bgcolor=\"#ffffff\">"
}
out "<td>".datum($Datum,"Tag0.Monat0.Jahr2")."</td>
<td>".datum($Beginn,"Stunde:Minute")."</td>
<td>".datum($Ende,"Stunde:Minute")."</td>
<td>
<a href=\"http://www.cuxhaven-tours.de/cgi-bin/baseportal.pl?htx=/ct/VA_Kalender_2007&cmd=all&Id==$_id\">$Veranstaltung</a></td></tr>";
}
del "Datum<jetzt","VA_Kalender_2007";
Wäre toll, wenn mir jemand einen Denkanstoß zur Lösung des Problems geben könnte.
Bis dahin
Ole
