diff options
| author | fukachan <fukachan> | 2004-04-02 12:14:31 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-04-02 12:14:31 +0000 |
| commit | 6d64686f27bcf30b50b1c0d1e787eea5177fff5f (patch) | |
| tree | 09c4fa1122c01803351a3475d5f45896445be87c /fml/lib | |
| parent | af4bcc0ffd4bbbee715f0c22db1ebd3992b59a14 (diff) | |
| download | fml8-6d64686f27bcf30b50b1c0d1e787eea5177fff5f.tar.gz fml8-6d64686f27bcf30b50b1c0d1e787eea5177fff5f.tar.bz2 fml8-6d64686f27bcf30b50b1c0d1e787eea5177fff5f.zip | |
show events with , separator
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Calendar/Lite.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fml/lib/Calendar/Lite.pm b/fml/lib/Calendar/Lite.pm index 6a773fbe..72a98d7c 100644 --- a/fml/lib/Calendar/Lite.pm +++ b/fml/lib/Calendar/Lite.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: Lite.pm,v 1.19 2004/01/31 04:59:05 fukachan Exp $ +# $FML: Lite.pm,v 1.20 2004/02/15 04:38:24 fukachan Exp $ # package Calendar::Lite; @@ -442,7 +442,8 @@ sub _print_specific_day my ($sec,$min,$hour,$mday,$month,$year,$wday) = localtime($time); my $buf = $cal->getcontent($mday) || ''; $buf =~ s/^\s*//; - $buf =~ s/<p>//g; + $buf =~ s/<p>//; + $buf =~ s/<p>/,/g; printf $fh "%02d: %s\n", $mday, $buf; } |