Wil — Wed, 09 Jan 2002 09:47:58 +0000

Yes, that's just the way I call a module to import all env variables passed to the script.

It shoudln't take too much to convert the concept to a PHP script, not sure how much code alterations are needed.

uatt — Tue, 08 Jan 2002 22:43:18 +0000

Yes this is what I want...

I think php would do the same way as perl except the treatment of $q->param(rqpg)

Thank you and this may be the simplest tutorial for most perl novice..

Wil — Tue, 08 Jan 2002 17:20:29 +0000

OK. I'm presuming prior knowledge of Perl here (as that's what I code in and assume you are too ).

$number_of_results = (@results);

$pgsz = 10;  # change this to the number of pages you want
             # displayed. Or pass this along to your script
             # as an option.

	if ($result_count != 0) {
	$pagecount = int($result_count / $pgsz);
	if (($pagecount * $pgsz) != $result_count) {
	$pagecount++;
	}
	}

	if (!$q->param(rqpg)) {
	$rqpg = 1;
	}
	else {
	$rqpg = $q->param(rqpg);
	}

	$firstresult = (($rqpg - 1) * $pgsz) + 1;
	$lastresult = $firstresult + $pgsz - 1;
	if ($lastresult > $result_count) {
	$lastresult = $result_count;
	}

	$prev_page = $rqpg - 1;
	$next_page = $rqpg + 1;
	if ($rqpg == 1) {
	$prev_link = "";
	} else {
	$prev_link = " <a href=\"/script.cgi?pg=$q->param(pg)&rqpg=$prev_page&pgsz=$pgsz\">" . "Previous Page" . "</a> &nbsp; ";
	} 
	if ($rqpg == $pagecount) {
	$next_link = "";
	} else {
	$next_link = "&nbsp; <a href=\"/script.cgi?pg=$q->param(pg)&rqpg=$next_page&pgsz=$pgsz\">" . "Next Page" . "</a>";
	} 

##########
# And if you want to generate page numbers 
##########

	if ($pagecount > 1) {
	$pagelinks = $prev_link;
	$pageno = 0;
	while ($pageno < $pagecount) {
	$pageno++;
	if ($pageno == $rqpg) {
	$thislink = " <b>$pageno</b> &nbsp;";
	} else {
	$thislink = " <a href=\"/script.cgi?pg=$q->param(pg)&rqpg=$pageno&pgsz=$pgsz\">" . $pageno . "</a> &nbsp;";
	}
	$pagelinks = $pagelinks . $thislink;
	}
	$pagelinks = $pagelinks . "   " . $next_link;
	} else {
	$pagelinks = "";
	}

###############
# Then to display the results for the page you're on
###############

	foreach $found (@results[$firstresult .. $lastresult]) {

###### your display routine goes in here ######

	}

# And your page links can be printed out easily as they've
# all been pushed into $pagelinks.

	print $pagelinks; 

Hope this helps.

uatt — Tue, 08 Jan 2002 16:39:09 +0000

Yes I am asking some sample on displaying the data to a html page

@array is the result whether it is from sql or flat database...

I present 1.2... as the contents of content1 content2 ..
Just make it simple.

quick response..thanks..

Wil — Tue, 08 Jan 2002 16:10:57 +0000

Sorry, I don't fully understand what your question is here. Well I do, but the data you provide is a bit vague.

Why would you have an array loaded with page numbers? Surely you would have an array with results (if this is a search?).

Are you asking for the logic or some sample code?

If you're running a SQL server then you'll enjoy the benefits of the LIMI clause which will give you a lot less headaches. It should save you a lot of coding time, because you only need to work out your start and end positions and grab the information from the database.