Hi,
mußte leider feststellen, daß das Blätter Script ( VST II )immer noch nicht richtig funktioniert. Ich hätte nicht gedacht, daß das so ein Problem wird.
Ich bin mir auch nicht sicher, ob ich es richtig eingebaut habe. Mit der Beschreibung aus der BIB komme ich nicht klar. Da steht z.B. Blätter oben und Blätter unten. Das ist doch beides mal dasselbe Script,oder? Aber in dem einen ist ein get Befehl drin, in dem anderen nicht.
Die Abfrage erfolgt von einem Formular heraus mit 3 Dropdownfeldern auf das Template mit dem Blätterscript.
Der Witz ist, mach ich die Abfrage der Suchkriterien testweise nicht aus dem Formular, sondern von einem direkten Link, also z.B. so:
http://de2.netpure.de/cgi-bin/baseportal.pl?htx=/nutzer/verzeichnis/template&Region==Landkreis
dann funktioniert es eigentlich.
Mache ich es aber so, aus einem Formular heraus,
<form method="POST" action="http://immoconzept24.netpure.de/cgi-bin/baseportal.pl?htx=/nutzer/verzeichnis/template" enctype="multipart/form-data" >
<option value="==Landkreis">Aschaffenburg Land</option>
<option value="==Rodgau">Rodgau / Seligenstadt</option>
<option value="==Stadt">Stadt</option>
</form>
dann werden die richtigen Ergebnisse zuerst mal richtig angezeigt.
Im Blätter Script steht dann z.B.
<< Einträge 1-6 von 16 1 7 13
Soweit stimmt´s ja noch. Klickt man jetzt auf die 7, dann kommt die eine Browser Fehlermeldung:
Multiple Choices
The document name you requested (/baseportal) could not be found on this server. However, we found documents with names similar to the one you requested.
Available documents:
Hier jetzt die Variante, wie ich sie auf dem Template eingebaut habe:
( Es sollen übrigens nur maximal 6 Einträge auf einmal erscheinen.)
Ist es richtig, daß das obige kleine Script vor dem Loop sitzt?
Dann kommt der Loop mit den Einträgen
<loop range^=$v,6 db=datenbank >
Hier kommen die Variablen $Feld1, $Feld2 usw...
Dann das Script:
<perl>
get "Id==* _fullsearch~=$suche fullsearch_match=500 range=$v,6 @_sel", "grund";
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='Verdana, 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>
