From bf1d95a899de9fcf71bd45082a9de19ffef1fe7f Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Fri, 26 Jan 2001 17:55:16 +0000
Subject: create $date->{YYYY/MM/DD} value define YYYY_MM_DD() method for it

---
 fml/lib/FML/Date.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/fml/lib/FML/Date.pm b/fml/lib/FML/Date.pm
index 53b23764..8c6541ca 100644
--- a/fml/lib/FML/Date.pm
+++ b/fml/lib/FML/Date.pm
@@ -93,6 +93,9 @@ sub _date
 
     $date->{'YYYYMMDD'} = 
 	sprintf("%04d%02d%02d", 1900 + $year, $mon + 1, $mday);
+
+    $date->{'YYYY/MM/DD'} = 
+	sprintf("%04d/%02d/%02d", 1900 + $year, $mon + 1, $mday);
 		
     $date->{'current_time'} = 
 	sprintf("%04d%02d%02d%02d%02d", 
@@ -130,6 +133,14 @@ sub YYYYMMDD
 }
 
 
+sub YYYY_MM_DD
+{
+    my ($self, $time) = @_;
+    my $p = _date($time || time);
+    $p->{'YYYY/MM/DD'};
+}
+
+
 sub current_time
 {
     my ($self, $time) = @_;
-- 
cgit v1.2.1