my $content;
my $sid=$S->{CGI}->param('sid');
my $ssid=$S->{DBH}->quote($sid);
return "" unless $sid;
my ($rv, $sth) = $S->db_select({
WHAT=>'*',
FROM=>'stories',
WHERE=>"sid=$ssid",
DEBUG=>0
});
my $story=$sth->fetchrow_hashref();
my $aid = $S->{DBH}->quote($$story{aid});
$content = $S->displaystory($sid, $story);
# clearly you'll want to change this...
$content .= qq(<div class="box_head">Other Photographica Members:</div>);
$sth->finish;
$sth=undef;
($rv, $sth) = $S->db_select({
WHAT=>'*',
FROM=>'stories',
WHERE=>"aid != $aid",
ORDER_BY=>'time DESC',
LIMIT=>'2',
DEBUG=>0
});
while(my $extra_story = $sth->fetchrow_hashref())
{
$content .= $S->story_summary($extra_story);
}
$content .= "<a href='/'>View the rest...</a>";
return $content;
