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;

Post A Comment