#!/usr/local/bin/perl
#================================
use strict;
use lib '/var/home/moen/wiredbiz.com/cgi-bin/links/admin';
use Links qw/$DB $IN $CFG/;
Links::init('/var/home/moen/wiredbiz.com/cgi-bin/links/admin');
use Links::SiteHTML;
local $SIG{__DIE__} = \&Links::fatal;
main();

sub main {
#---------------------------------------------------
#
my $pageNum = $IN->param('nh') || 1;
# number of links per page
my $linksPP = 10;
my $start = $linksPP*$pageNum - $linksPP;
my ($sth,$tab,$output);
$tab = $DB->table('Links');
$tab->select_options('ORDER BY Title', 'LIMIT ' . $linksPP . ' OFFSET ' . $start);
$sth = $tab->select( { isValidated => 'Yes', isNew => 'Yes' } );
while (my $rec = $sth->fetchrow_hashref) {
$output .= Links::SiteHTML::display('link2', $rec);
}
my $tags;
$tags->{'paging.url'} = $CFG->{db_cgi_url} . "/featured.cgi";
$tags->{'paging.num_hits'} = $tab->hits;
$tags->{'paging.current_page'} = $IN->param('nh');
$tags->{'output'} = $output;
print $IN->header();
print Links::SiteHTML::display('featured', $tags);
}

<%if paging.num_hits%><div class="paging"><%Links::Utils::paging()%></div><%endif%><%output%><%if paging.num_hits%><div class="paging"><%Links::Utils::paging()%></div><%endif%>