sub {
# Displays the featured links on each category page.
my ($id,$search_db,$output,$sth,$link);
$id = shift;
$search_db = $DB->table('Links', 'CatLinks');
$search_db->select_options ("ORDER BY Title");
my $cond = GT::SQL::Condition->new(IsFeatured => '=' => 'Yes', ExpiryDate => '<' => FREE);
$cond->bool('OR');
$sth = $search_db->select({CategoryID=>$id}, $cond);
while ($link = $sth->fetchrow_hashref) {
$output .= Links::SiteHTML::display ('link', $link);
}
return $output;
}

#!/usr/local/bin/perl
#================================
use strict;
use lib '/var/home/moen/wiredbiz.com/cgi-bin/links/admin';
use Links qw/:objects/;
use Links::SiteHTML;
Links::init('/var/home/moen/wiredbiz.com/cgi-bin/links/admin');

local $SIG{__DIE__} = \&Links::fatal;

main();

sub main {
#---------------------------------------------------
#
my $pageNum = $IN->param('nh') || 1;
my $linksPP = 10;
my $start = $linksPP * $pageNum - $linksPP;
$start = ($pageNum < 2) ? 0 : $start;

my ($sth,$tab,$output);

$tab = $DB->table('Links');
$tab->select_options('ORDER BY Title', 'LIMIT ' . $linksPP . ' OFFSET ' . $start);
$sth = $tab->select( { isValidated => 'Yes', isFeatured => 'Yes' } );
my $hits = $tab->hits;

while (my $rec = $sth->fetchrow_hashref) {
$output .= Links::SiteHTML::display('link3', $rec);
}

my $tags;
$tags->{'paging'}->{'url'} = $CFG->{db_cgi_url} . "/featured.cgi";
$tags->{'paging'}->{'num_hits'} = $hits;
$tags->{'paging'}->{'max_hits'} = $linksPP;
$tags->{'paging'}->{'current_page'} = $pageNum;
$tags->{'output'} = $output;

print $IN->header();
print Links::SiteHTML::display('featured', $tags);
}