From 1a910bfabaf892b2e8d86f3560eea1a7f23961d2 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 26 Feb 2010 00:52:06 +0000
Subject: [PATCH] web: pre-fill add form with today's date

---
 Commands/Web.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Commands/Web.hs b/Commands/Web.hs
index 86c90ffc4..c7d31cd2d 100644
--- a/Commands/Web.hs
+++ b/Commands/Web.hs
@@ -240,12 +240,13 @@ searchform env = do
 
 addform :: Hack.Env -> HSP XML
 addform env = do
+  today <- io $ liftM showDate $ getCurrentDay
   let inputs = Hack.Contrib.Request.inputs env
 #if __GLASGOW_HASKELL__ <= 610
-      date  = decodeString $ fromMaybe "" $ lookup "date"  inputs
+      date  = decodeString $ fromMaybe today $ lookup "date"  inputs
       desc  = decodeString $ fromMaybe "" $ lookup "desc"  inputs
 #else
-      date  = fromMaybe "" $ lookup "date"  inputs
+      date  = fromMaybe today $ lookup "date"  inputs
       desc  = fromMaybe "" $ lookup "desc"  inputs
 #endif
   <div>