my $section = 'sectionname';
my $desc = $S->{SECTION_DATA}->{$section}->{title};
my $content;

my ($rv, $sth) = $S->db_select({
WHAT => 'sid, title',
FROM => 'stories',
WHERE => qq{section = "$section" AND displaystatus >= 0},
ORDER_BY => 'time DESC',
LIMIT => 3
});

while (my $story = $sth->fetchrow_hashref()) {
my $comments = $S->_commentcount($story->{sid});
my $s = ($comments ==1) ? '' : 's';
$content .= qq{
<b><A HREF="|rootdir|/story/$story->{sid}">$story->{title}</A></b><br>($comments comment$s)<br>}; #|
}

$content .= qq{
<p>
<font size="1"><div align="right">
<a href="http://www.kuro5hin.org/story/2002/4/11/0436/72501">About this Focus Topic</a><br>
Sponsored by <a href="http://www.digitalidworld.com/">DigitalIDWorld.com</a></div></font>
};


return {'content' => $content, 'title' => qq{Focus: <a href="/section/$section"><font color="#eeeeee">$desc</font></a>}};

Post A Comment