diff options
| author | tmu <tmu> | 2006-03-29 10:49:54 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2006-03-29 10:49:54 +0000 |
| commit | cf819e2ef377ee827a5f35cdfb816f346f3a58b7 (patch) | |
| tree | de794d44f110257cbbb12ff383afc8cd262c0897 /fml/lib/Mail | |
| parent | 7dc46fcf33231e4d030e321ebf2f551690766df2 (diff) | |
| download | fml8-cf819e2ef377ee827a5f35cdfb816f346f3a58b7.tar.gz fml8-cf819e2ef377ee827a5f35cdfb816f346f3a58b7.tar.bz2 fml8-cf819e2ef377ee827a5f35cdfb816f346f3a58b7.zip | |
change monthly_index.html's table output in _update_id_montly_index_master()
see also fml-devel 798
Diffstat (limited to 'fml/lib/Mail')
| -rw-r--r-- | fml/lib/Mail/Message/ToHTML.pm | 20 |
1 files changed, 10 insertions, 10 deletions
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 ); } |