Mercurial > hg > chronicle
changeset 48:29464ede63dd
2007-10-10 21:30:50 by steve
Output the month name too.
author | steve |
---|---|
date | Wed, 10 Oct 2007 21:30:50 +0000 |
parents | 5e36b70db064 |
children | 0c4f7753c9d3 |
files | bin/chronicle |
diffstat | 1 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/bin/chronicle Wed Oct 10 20:09:43 2007 +0000 +++ b/bin/chronicle Wed Oct 10 21:30:50 2007 +0000 @@ -155,7 +155,7 @@ -- http://www.steve.org.uk/ - $Id: chronicle,v 1.20 2007-10-10 20:09:24 steve Exp $ + $Id: chronicle,v 1.21 2007-10-10 21:30:50 steve Exp $ =cut @@ -458,7 +458,7 @@ if ( $VERSION ) { - my $REVISION = '$Revision: 1.20 $'; + my $REVISION = '$Revision: 1.21 $'; if ( $REVISION =~ /1.([0-9.]+) / ) { $REVISION = $1; @@ -1068,11 +1068,18 @@ my $template = loadTemplate( "month.template", die_on_bad_params => 0 ); + my @names = qw( January February March April May June July August September October November December ); + # - # The entries. + # The entries # $template->param( entries => $entries ) if ( $entries ); + + # + # Output the month + year. + # $template->param( year => $year, month => $month ); + $template->param( month_name => $names[$month - 1 ] ); # # The clouds @@ -1102,6 +1109,7 @@ $template = loadTemplate( "month.xml.template", die_on_bad_params => 0 ); $template->param( entries => $entries ) if ( $entries ); $template->param( month => $month, year => $year ); + $template->param( month_name => $names[$month - 1 ] ); outputTemplate( $template, "$dir/$month.rss" ); }