my $content = qq{
<table width="100%" border=0 cellpadding=2 cellspacing=0>};

my $cid = $S->{CGI}->param('cid');
my $sid = $S->{CGI}->param('sid');

my $f_cid = $S->{DBH}->quote($cid);
my $f_sid = $S->{DBH}->quote($sid);

#Check for hidden
my ($rv, $sth) = $S->db_select({
WHAT => 'points',
FROM => 'comments',
WHERE => qq{sid = $f_sid AND cid = $f_cid}});

my $points = $sth->fetchrow();
$sth->finish();

if (($points < $S->{UI}->{VARS}->{rating_min}) && ($S->{TRUSTLEV} != 2)) {
return '';
}

my ($rv, $sth) = $S->db_select({
WHAT => 'uid, rating',
FROM => 'commentratings',
WHERE => qq{sid = $f_sid AND cid = $f_cid}});

my $zeros = 0;

while (my $rating = $sth->fetchrow_hashref()) {
my $user = $S->user_data($rating->{uid});

if (($rating->{'rating'} < $S->{UI}->{VARS}->{rating_min}) && ($S->{TRUSTLEV} != 2)) {
$zeros++;
} else {
$content .= qq{
<tr>
<td>%%norm_font%%<A HREF="%%rootdir%%/user/uid:$rating->{uid}">$user->{nickname}</A>%%norm_font_end%%</td>
<td>%%norm_font%%$rating->{rating}%%norm_font_end%%</td>
</tr>};
}
}

$sth->finish();

if ($zeros) {
my $word = ($zeros == 1) ? "Rating" : "Ratings";

$content .= qq{
<tr>
<td colspan=2>%%norm_font%%Zero $word: $zeros%%norm_font_end%%</td>
</tr>};
}

$content .= qq{
</table>};

return {'content' => $content};

Post A Comment