for comments

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1031 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

1 files changed, 15 insertions, 5 deletions

diff --git a/blog/blog.pl b/blog/blog.pl
index b7f2dc5d..78885190 100755
--- a/blog/blog.pl
+++ b/blog/blog.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: blog.pl,v 1.26 2003/07/05 09:31:12 in2 Exp $
+# $Id: blog.pl,v 1.27 2003/07/05 09:58:53 in2 Exp $
 use CGI qw/:standard/;
 use lib qw/./;
 use LocalVars;
@@ -14,11 +14,11 @@ use DBI;
 use DBD::mysql;
 use POSIX;
 
-use vars qw/@emonth @cnumber %config %attr %article %th $dbh/;
+use vars qw/@emonth @cnumber %config %attr %article %th $dbh $brdname/;
 
 sub main
 {
-    my($brdname, $fn, $y, $m, $d);
+    my($fn, $y, $m, $d);
     my($tmpl);
 
     $dbh = undef;
@@ -227,7 +227,6 @@ sub main
 
     # Comments ---------------------------------------------------------------
     if( $attr{"$fn.loadRecentComments"} ){
-	print "here\n";
 	dodbi(sub {
 	    my($dbh) = @_;
 	    my($sth, $t);
@@ -295,13 +294,23 @@ sub main
 sub AddArticle($$$;$)
 {
     my($cl, $fields, $s, $score) = @_;
-    my($content, $short) = ();
+    my($content, $short, $nComments) = ();
     $content = applyfilter($article{"$s.content"}, $config{outputfilter})
 	if( $fields =~ /content/i );
 
     $short = applyfilter($article{"$s.short"}, $config{outputfilter})
 	if( $fields =~ /short/i );
 
+    if( $fields =~ /nComments/i ){
+	$nComments = dodbi(sub {
+	    my($dbh) = @_;
+	    my $sth = $dbh->prepare("select count(*) from comment ".
+				    "where brdname='$brdname'&&artid='$s'");
+	    $sth->execute();
+	    return $sth->fetchrow_hashref()->{'count(*)'};
+	}) || 0;
+    }
+
     my($y, $m, $d) = unpackdate($s);
     push @{$th{$cl}}, {year   => $y,
 		       month  => $m,
@@ -316,6 +325,7 @@ sub AddArticle($$$;$)
 				  $article{"$s.author"}),
 		       short  => $short,
 		       score  => $score,
+		       nComments => $nComments,
 		   }
         if( $article{"$s.title"} );
 }