sub {
# Displays the Newest links.
my ($output,$sth,$link);
my $search_db = $DB->table('Links');
$search_db->select_options ('ORDER BY ADD_DATE DESC Limit 8');
$sth = $search_db->select ( { isNew => 'Yes'});
while ($link = $sth->fetchrow_hashref) {
$output .= Links::SiteHTML::display ('link', $link);
}
return $output;
}

sub {
my $max = $_[0] || 2;
my $id = $DB->table('CatLinks')->select( 'MAX(LinkID)' )->fetchrow;
my @links;
while (1) {
my $rand = int (rand() * $id);
my $link = $DB->table('Links')->get($rand);
push @links, $rand if $rand;
last if (@links >= $max);
}
return { rand_links_loop => \@links }
}