Wer kann mir helfen?
Das Blättern funktioniert, die Suche auch aber ich bekomme keine Anzeige der Ausgabe. Vielleicht bin ich ja nur zu blöd und muß noch zusätzlich eine Ausgabeseite erstellen? Wer kann mir helfen?
<perl>
$v=$v||0;
get "Id==* sort= range=$v,6", "blaettern";
</perl>
<!--Volltextsuche Form -->
<form action="http://domain.de/baseportal/test02/blaettern&sort=blaettern" enctype="multipart/form-data" method="post">
Volltextsuche
<input type="Name" Name="suche=" size="15">
<input type="submit" name="input" value="Suchen"></form>
<!--Blättern oben -->
<perl>
get "Id==* _fullsearch~=$suche fullsearch_match=500 range=$v,10 @_sel", "blaettern";
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='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&suche=$suche&@_sel&sort=$name\">|<</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>
<!--Ausgabe mit loop code=perl -->
<loop _fullsearch==$suche fullsearch_match=500 sort^=Name code=perl db=blaettern range^=$v,10>
out "<blaettern";
</loop>
<!--Blättern unten -->
<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 $font='Thomas, Arial';
my $size='1';
my $table='';
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&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>Inserate ".($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>
