sub {
my $tags = shift;
my $review_db = $DB->table('Reviews');
my $limit = $tags->{Random_Limit} || 1;
my (@output, $sth);
$link_db->select_options ('ORDER BY RAND()', "LIMIT $limit");
$sth = $review_db->select();
while (my $hash = $sth->fetchrow_hashref) {
push @output, $hash;
}
return { random_reviews => \@output }
}

sub {
# Return 1 rand review for stated link ID
my $tags = shift;
my $review_db = $DB->table('Reviews');
my $link_id = $tags->{Random_LinkID};
my $limit = $tags->{Random_Limit} || 1;
my (@output, $sth);
$review_db->select_options ('ORDER BY RAND()', "LIMIT $limit");
$sth = $review_db->select ( { Review_LinkID => $link_id });
#$sth = $review_db->select();
while (my $hash = $sth->fetchrow_hashref) {
push @output, $hash;
}
return { Rand_Review_Loop => \@output }
}

sub {
# Return 1 rand review for stated link ID
my $tags = shift;
my $review_db = $DB->table('Reviews','Links');
my $link_id = $tags->{Random_LinkID};
my $limit = $tags->{Random_Limit} || 1;
my (@output, $sth);
$review_db->select_options ('ORDER BY RAND()', "LIMIT $limit");
$sth = $review_db->select ( { Review_LinkID => $link_id }, { isValidated => 'Yes' });
#$sth = $review_db->select();
while (my $hash = $sth->fetchrow_hashref) {
push @output, $hash;
}
return { Rand_Review_Loop => \@output }
}