sub {
# Displays the newest links on the home page.
my ($output,$sth,$link);
my $search_db = $DB->table('Links');
$search_db->select_options ('ORDER BY ADD_DATE DESC Limit 4');
$sth = $search_db->select ( { isNew => 'Yes'});
while ($link = $sth->fetchrow_hashref) {
$link->{Title} =~ s,^(.{50}).*$,$1...,;
$output .= Links::SiteHTML::display ('link1', $link);
}
return $output;
}