This is a random sub I'm using, it may work for you or change yours to suit.
sub {
my $link_db = $DB->table('Links');
$link_db->select_options ("ORDER BY rand()","LIMIT 10");
my $sth = $link_db->select ({isValidated => 'Yes' });
my $output;
while (my $link = $sth->fetchrow_hashref){
$output .= Links::SiteHTML::display ('random_link', $link);
}
return $output;
}
Regards
minesite
sub {
my $link_db = $DB->table('Links');
$link_db->select_options ("ORDER BY rand()","LIMIT 10");
my $sth = $link_db->select ({isValidated => 'Yes' });
my $output;
while (my $link = $sth->fetchrow_hashref){
$output .= Links::SiteHTML::display ('random_link', $link);
}
return $output;
}
Regards
minesite