From 736897998f030237f58f7c8f9257d163df09db33 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 12 Dec 2009 22:21:51 +0000
Subject: [PATCH] web: use today as default when adding with a blank date

---
 Commands/Web.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Commands/Web.hs b/Commands/Web.hs
index effb3e9ef..0bed87612 100644
--- a/Commands/Web.hs
+++ b/Commands/Web.hs
@@ -292,7 +292,7 @@ handleAddform l = do
     validate :: Hack.Env -> Day -> Failing Transaction
     validate env today =
         let inputs = Hack.Contrib.Request.inputs env
-            date  = decodeString $ fromMaybe "" $ lookup "date"  inputs
+            date  = decodeString $ fromMaybe "today" $ lookup "date"  inputs
             desc  = decodeString $ fromMaybe "" $ lookup "desc"  inputs
             acct1 = decodeString $ fromMaybe "" $ lookup "acct1" inputs
             amt1  = decodeString $ fromMaybe "" $ lookup "amt1"  inputs