diff options
| author | fukachan <fukachan> | 2001-04-01 23:32:04 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-01 23:32:04 +0000 |
| commit | d7cd20ba3d62ddded24745e73780679d717534b7 (patch) | |
| tree | 6a3f00ff1926e5817cdc28de74c0b1ed8862cbac /fml/lib | |
| parent | 265af515d0f0058bd620616ff28241a98c6016f6 (diff) | |
| download | fml8-d7cd20ba3d62ddded24745e73780679d717534b7.tar.gz fml8-d7cd20ba3d62ddded24745e73780679d717534b7.tar.bz2 fml8-d7cd20ba3d62ddded24745e73780679d717534b7.zip | |
fix trap pattern to pick up MM/DD and MMDD
modify tht title
nuke ^0 in DD to put into calender object
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/TinyScheduler.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/fml/lib/TinyScheduler.pm b/fml/lib/TinyScheduler.pm index a6b68def..7f197236 100644 --- a/fml/lib/TinyScheduler.pm +++ b/fml/lib/TinyScheduler.pm @@ -89,8 +89,8 @@ sub parse my @pat; $pat[0] = sprintf("^%04d%02d(\\d{1,2})\\s+(.*)", $year, $month); $pat[1] = sprintf("^%04d/%02d/(\\d{1,2})\\s+(.*)", $year, $month); - $pat[2] = sprintf("^%02d(\\d{1,2})\\s+(.*)", $year, $month); - $pat[3] = sprintf("^%02d/(\\d{1,2})\\s+(.*)", $year, $month); + $pat[2] = sprintf("^%02d(\\d{1,2})\\s+(.*)", $month); + $pat[3] = sprintf("^%02d/(\\d{1,2})\\s+(.*)", $month); # use HTML::CalendarMonthSimple; @@ -106,7 +106,7 @@ sub parse $cal->width('50%'); $cal->border(10); - $cal->header("$year/$month schedule"); + $cal->header(sprintf("%04d/%02d %s", $year, $month, "schedule")); $cal->bgcolor('pink'); if (-f $data_file) { @@ -129,6 +129,7 @@ sub _parse { my ($self, $day, $buf) = @_; my $cal = $self->{ _schedule }; + $day =~ s/^0//; $cal->addcontent($day, "<p>". $buf); } |