if ($S->{HOTLIST} && $#{$S->{HOTLIST}} >= 0) {
my $box_content;

foreach my $sid (@{$S->{HOTLIST}}) {
my $stories = $S->getstories(
{-type => 'fullstory',
-sid => $sid});
my $story = $stories->[0];

my $show = $S->{UI}->{VARS}->{show_new_comments};
my $num_new = $S->new_comments_since_last_seen($sid) if ($show eq "hotlist" || $show eq "all");

my $end_s = ($story->{commentcount} == 1) ? '' : 's';
$box_content .= qq~%%dot%% <A CLASS="light" HREF="|rootdir|/story/$sid">$story->{title}</a> ($story->{commentcount} comment$end_s~;
$box_content .= ", $num_new new" if defined($num_new);
$box_content .= ")<BR>";
}

my $title = "$S->{NICK}'s Hotlist";
return {title => $title, content => $box_content };
}

Post A Comment