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

sub main {
#---------------------------------------------------
#

my ($sth,$tab,$output);
$tab = $DB->table('Links');
$tab->select_options('LIMIT 2');
$sth = $tab->select( { isValidated => 'Yes', isFeatured => 'Yes' } );
while (my $rec = $sth->fetchrow_hashref) {
$output .= Links::SiteHTML::display('link', $rec);
}
print $IN->header();
print Links::SiteHTML::display('featured', { output => $output});
}

<%loop link_results_loop~%>
<p class="category"><%Links::Utils::format_title($title_loop, separator => $category_separator, no_escape_separator => $no_escape_category_separator, include_home => 0, link_type => 1)%></p>
<%include link2.html%>
<%~endloop%>