Solved

Previous/Next Links in Perl Script - MySQL Select

Posted on 2009-04-08
2
462 Views
Last Modified: 2013-12-25
I'm setting up a simple guestbook in Perl and want to include Next/Previous links at the bottom of the SQL data table.

This was covered in two prior E-E posts...
/Programming/Languages/Scripting/Perl/Q_20435798.html
/Programming/Languages/Scripting/Perl/Q_10311853.html

...but I can't follow the pseudocode well enough to apply it.

It seems logical that I'll need a combo of IF (Perl) and LIMIT (SQL), but can anyone take a closer look and advise?

Thanks!
#!/usr/bin/perl
 

$table = "guestbook";
 

<<DBI connections and modules/libraries>>
 

sub guestbook {

$count = 1;

  print "<TABLE BORDER=1>\n";

  print "<TR><TD>No.</TD><TD>Name</TD><TD>Date</TD>";

  print "<TD>Email</TD><TD>Message</TD></TR>\n";

  &run_statement("select * from $table;");

  while (($name, $entry_date, $email, $message) = $sth->fetchrow) {

    print "<TR><TD>$count</TD><TD>$name</TD><TD>$entry_date</TD>";

    print "<TD>$email</TD>";

    print "<TD>$message</TD></TR>\n";

  $count++;

  }

  print "</TABLE>\n";

}

Open in new window

0
Comment
Question by:mcantera25
2 Comments
 
LVL 39

Accepted Solution

by:
Adam314 earned 500 total points
ID: 24126642
You will need a way for the user to select the next page, then an update to your SQL statement to only get some of the results.  Because records are not normally ordered, the only to ensure that the records you get are the right ones will be to include an ORDER BY in your SQL statement.  Something like so:
sub guestbook {

  #This needs to come from the "first" field below

  #It should initialize to 0

  my $first = shift;

$count = 1;

  print "<TABLE BORDER=1>\n";

  print "<TR><TD>No.</TD><TD>Name</TD><TD>Date</TD>";

  print "<TD>Email</TD><TD>Message</TD></TR>\n";

  &run_statement("select * from $table ORDER BY id LIMIT $first,10;");

  while (($name, $entry_date, $email, $message) = $sth->fetchrow) {

    print "<TR><TD>$count</TD><TD>$name</TD><TD>$entry_date</TD>";

    print "<TD>$email</TD>";

    print "<TD>$message</TD></TR>\n";

  $count++;

  }

  print "</TABLE>\n";

  print "<a href=\"link_to_this_page.pl?first=" . ($first+10) . "\">Next page</a>\n";

}

Open in new window

0
 

Author Closing Comment

by:mcantera25
ID: 31568356
Thanks so much, especially for using "real" code. Made it really helpful and easy to implement.
0

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This tutorial will discuss the log-in process using WhizBase. In this article I assume you already know HTML. I will write the code using WhizBase Server Pages, so you need to know some basics in WBSP (you might look at some of my other articles abo…
In this tutorial I will show you how to provide a dynamic RTF document on your website generated with data from your database. For this tutorial you will need Microsoft Word or WordPad, WhizBase and Microsoft Access. In this tutorial I will show …
This tutorial will teach you the core code needed to finalize the addition of a watermark to your image. The viewer will use a small PHP class to learn and create a watermark.
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now