& /designobservercomp/header.comp, site=>2 &>
<& /designobservercomp/nav_observatory.comp &>
Posted <%$article[3]%> |
PERMALINK
Observed
<%$article[1]%>
% if ($article[4] ne "on"){
% if ($article[5]){
[
<%$article[2]%>]
% } else {
[<%$article[2]%>]
% }
% }
<& /designobservercomp/ad_horiz_notopbar.comp &>
<& /designobservercomp/footer.comp &>
<%args>
$observed => ""
$id =>""
<%init>
my $dbh = $m->comp("/designobservercomp/database-connect.comp");
my @temp;
my @article;
my $authors;
my @moreby;
my @booksby;
my @comments;
my ($sql, $sth, $i, $j, $elem);
if (!$observed){
$observed = $id;
}
$sql = "SELECT forum.title, forum.body, author.initials, DATE_FORMAT(forum.published, '%m.%d.%y'), forum.initials, author.published, author.id FROM forum, author WHERE forum.oldid='$observed' AND forum.author=author.id";
$sth = $dbh->prepare($sql);
$sth->execute;
@article = $sth->fetchrow_array ();