Beitrag von Mattias (110 Beiträge) am Freitag, 28.März.2003, 14:12.
Variablenverlust beim Blättern in Suchergebnissen (Perl)
Hallo, bin noch ziemlicher Newbie in Perl. Habe eine Liste mit einem Suchformular. Die Blätterfunktion (thx@Raphael) habe ich mir wie folgt angepasst:
$rtag="&_Datum_Tag~=$tag" if $tag;
$rmonat="&_Datum_Monat~=$monat" if $monat;
$rjahr="&_Datum_Tag~=$jahr" if $jahr;
$rort="&Ort~=$ort" if $ort;
$rsuch="&_fullsearch~~$such" if $such;
$rparam="$rtag$rmonat$rjahr$rort$rsuch";
if($rparam==""){
$rquery=$_amount_all;
}else{
$rquery=$_amount_query;
}
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
$BrowseLine ="<tr><td colspan=\"3\" align=\"center\">[ ";
if ($oldrange>=0) {
$BrowseLine .= "<a href=\"$BPpath/$basepath&range=$oldrange,$_range_length$rparam\">Vorherige Seite</a> | "; }
else {
$BrowseLine .= "Vorherige Seite | "; }
$BrowseLine .= "<a href=\"#suchen\">suchen</a> | ";
if ($newrange<$rquery) {
$BrowseLine .= "<a href=\"$BPpath/$basepath&range=$newrange,$_range_length$rparam\">Nächste Seite</a> ]"; }
else {
$BrowseLine .= "Nächste Seite ]"; }
$BrowseLine .= "</td></tr>";
Mittels $rparam und $rquery gelingt es mir, die Suchbegriffe in die Blätterfunktion einzubinden, aber nur ein Mal. Blättere ich weiter, sind sie weg, und es erscheinen wieder alle Einträge. Nun kann ich wohl die Variablen irgendwo in einem anderen Frame oder mit JS zwischenspeichern, aber vielleicht kennt jemand von euch eine einfachere Lösung? Über die "Suche im Forum" habe ich jedenfalls nichts gefunden. Danke!
Beitrag von Mattias (110 Beiträge) am Freitag, 28.März.2003, 14:15.
Sorry, schon erledigt.
Habe versehentlich reloadet, und die Anfrage war noch drin.