From 6d64686f27bcf30b50b1c0d1e787eea5177fff5f Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Fri, 2 Apr 2004 12:14:31 +0000
Subject: show events with , separator

---
 fml/lib/Calendar/Lite.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'fml/lib')

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;
 }
 
-- 
cgit v1.2.1