for XHTML

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

1 files changed, 12 insertions, 7 deletions

diff --git a/blog/blog.pl b/blog/blog.pl
index 135bf63d..69e039b1 100755
--- a/blog/blog.pl
+++ b/blog/blog.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: blog.pl,v 1.7 2003/05/26 03:31:28 in2 Exp $
+# $Id: blog.pl,v 1.8 2003/05/26 04:01:40 in2 Exp $
 use CGI qw/:standard/;
 use LocalVars;
 use DB_File;
@@ -125,8 +125,7 @@ sub main
 
     # Counter ----------------------------------------------------------------
     if( $attr{"$fn.loadCounter"} ){
-	my($c);
-	$c = dodbi(sub {
+	$th{counter} = dodbi(sub {
 	    my($dbh) = @_;
 	    my($sth, $t);
 	    $dbh->do("update counter set v = v + 1 where k = '$brdname'");
@@ -139,13 +138,12 @@ sub main
 		     "values ('$brdname', 1)");
 	    return 1;
 	});
-	$th{counter} = $c;
     }
 
     # Calendar ---------------------------------------------------------------
     if( $attr{"$fn.loadCalendar"} ){
 	# 沒有合適的 module , 自己寫一個 |||b
-	my($c, $week, $day, $t, $link);
+	my($c, $week, $day, $t, $link, $newtr);
 	$c = ("<table border=\"0\" cellspacing=\"4\" cellpadding=\"0\">\n".
 	      "<caption class=\"calendarhead\">$emonth[$m] $y</caption>\n".
 	      "<tr>\n");
@@ -168,6 +166,8 @@ sub main
 		foreach( 1..$week );
 	}
 	foreach( 1..31 ){
+	    last if( !check_date($y, $m, $_) );
+	    $c .= "<tr>\n" if( $newtr );
 	    $c .= "<th abbr=\"$_\" align=\"center\"><span class=\"calendar\">";
 
 	    $t = packdate($y, $m, $_);
@@ -182,12 +182,17 @@ sub main
 		   
 	    $c .= "</span></th>\n";
 	    if( ++$week == 7 ){
-		$c .= "</tr>\n\n<tr>\n";
+		$c .= "</tr>\n\n";
 		$week = 0;
+		$newtr = 1;
+	    }
+	    else{
+		$newtr = 0;
 	    }
 	}
 
-	$c .= "</tr>\n</table>\n";
+	$c .= "</tr>\n" if( !$newtr );
+	$c .= "</table>\n";
 	$th{calendar} = $c;
 	#my $cal = HTML::Calendar::Simple->new({month => $m, year => $y});
 	#$th{calendar} = $cal->calendar_month;