From cf819e2ef377ee827a5f35cdfb816f346f3a58b7 Mon Sep 17 00:00:00 2001
From: tmu <tmu>
Date: Wed, 29 Mar 2006 10:49:54 +0000
Subject: change monthly_index.html's table output in
 _update_id_montly_index_master() see also fml-devel 798

---
 fml/lib/Mail/Message/ToHTML.pm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'fml/lib/Mail/Message/ToHTML.pm')

diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm
index d9bce15c..675c858d 100644
--- a/fml/lib/Mail/Message/ToHTML.pm
+++ b/fml/lib/Mail/Message/ToHTML.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: ToHTML.pm,v 1.78 2005/08/19 11:15:23 fukachan Exp $
+# $FML: ToHTML.pm,v 1.79 2005/08/25 13:13:35 fukachan Exp $
 #
 
 package Mail::Message::ToHTML;
@@ -17,7 +17,7 @@ my $debug = 0;
 my $URL   =
     "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>";
 
-my $version = q$FML: ToHTML.pm,v 1.78 2005/08/19 11:15:23 fukachan Exp $;
+my $version = q$FML: ToHTML.pm,v 1.79 2005/08/25 13:13:35 fukachan Exp $;
 my $versionid = 0;
 if ($version =~ /,v\s+([\d\.]+)\s+/) {
     $versionid = "$1";
@@ -1556,29 +1556,29 @@ sub _update_id_montly_index_master
     my (@list)  = sort __sort_yyyymm keys %$mlist;
     my ($years) = _yyyy_range(\@list);
 
-    _print_raw_str($wh, "<TABLE>", $code);
+    _print_raw_str($wh, "<table border='1'>", $code);
 
     for my $year (sort {$b <=> $a} @$years) {
-	_print_raw_str($wh, "<TR>", $code);
+	_print_raw_str($wh, "<tr>", $code);
+	_print_raw_str($wh, "<th> $year </th>", $code);
 
 	for my $month (1 .. 12) {
-	    _print_raw_str($wh, "<TR>", $code) if $month == 7;
-
-	    my $id = sprintf("%04d/%02d", $year, $month); # YYYY/MM
 	    my $xx = sprintf("%04d%02d",  $year, $month); # YYYYMM
 	    my $fn = "month.$xx.html";
 
 	    use File::Spec;
 	    my $file = File::Spec->catfile($html_base_dir, $fn);
 	    if (-f $file) {
-		_print_raw_str($wh, "<TD><A HREF=\"$fn\"> $id </A>", $code);
+		_print_raw_str($wh, "<td><a href=\"$fn\"> $month </a>", $code);
 	    }
 	    else {
-		_print_raw_str($wh, "<TD>", $code);
+		_print_raw_str($wh, "<td>", $code);
 	    }
+	    _print_raw_str($wh, "</td>", $code);
 	}
+	_print_raw_str($wh, "</tr>", $code);
     }
-    _print_raw_str($wh, "</TABLE>", $code);
+    _print_raw_str($wh, "</table>", $code);
 
     $self->_print_index_end( $htmlinfo );
 }
-- 
cgit v1.2.1