Hi everybody,
I'm stuck trying to output multiple search results.
I wrote this code but, and it outputs correctly the number of pages, but it
shows only the results for the first page no mater what link do I click.
You can find the script in "action" at
www.wiq.ro/cgi-bin/rointera/results.cgi
Please look at the code and tell me where I'm wrong.
_______________________________________________
#!/usr/bin/perl
use CGI qw( :standard );
use CGI::Carp qw( fatalsToBrowser );
my $q = new CGI;
print $q->header;
use DBI;
my $user = "root";
my $pass = "";
my $source = "DBI:mysql:chestie";
my $dbh=DBI->connect($source, $user, $pass, {RaiseError => 1});
my $sql = qq{SELECT parola FROM parole};
my $sth = $dbh->prepare($sql);
$sth->execute;
while (my @row = $sth->fetchrow_array()){
push (@results, $row[0]);
}
$sth->finish;
$result_count = @results;
$pagesize = 5;
$reqpage = 1;
if ($result_count != 0) {
$pagecount = int($result_count / $pagesize);
if (($pagecount * $pagesize) != $result_count) {
$pagecount++;
}
}
$firstresult = (($reqpage - 1) * $pagesize) + 1;
$lastresult = $firstresult + $pagesize - 1;
if ($lastresult > $result_count) {
$lastresult = $result_count;
}
for ($i >= $firstresult; $i <= $lastresult; $i++){
print "$results[$i]<p>";
}
$prev_page = $reqpage - 1;
$next_page = $reqpage + 1;
if ($reqpage == 1) {
$prev_link = "";
} else {
$prev_link = " <a
href=\"http://www.wiq.ro/cgi-bin/rointera/results.cgi?reqpage=$prev_page&pag
esize=$pagesize\">" . "PREVIOUS" . "</a>";
}
if ($reqpage == $pagecount) {
$next_link = "";
} else {
$next_link = " <a
href=\"http://www.wiq.ro/cgi-bin/rointera/results.cgi?reqpage=$next_page&pag
esize=$pagesize\">" . "NEXT" . "</a>";
}
if ($pagecount > 1) {
$pagelinks = $prev_link;
$pageno = 0;
while ($pageno < $pagecount) {
$pageno++;
if ($pageno == $reqpage) {
$thislink = " <b>$pageno</b> ";
} else {
$thislink = " <a
href=\"http://www.wiq.ro/cgi-bin/rointera/results.cgi?reqpage=$pageno&pagesi
ze=$pagesize\">" . $pageno . "</a>";
}
$pagelinks = $pagelinks . $thislink;
}
$pagelinks = $pagelinks . " " . $next_link;
} else {
$pagelinks = "";
}
print "$pagelinks";
Thank you!
_________________________________________
Cristi Ocolisan
