From 7e4de1df000cd9c5b9f9b1ff8e78ce6450bdd6e8 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 7 Dec 2009 15:53:26 +0000
Subject: [PATCH] web: hide filter fields until they work right

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

diff --git a/Commands/Web.hs b/Commands/Web.hs
index 1a3f8a4c9..869c6a128 100644
--- a/Commands/Web.hs
+++ b/Commands/Web.hs
@@ -198,7 +198,7 @@ navbar env =
     <div id="navbar">
       <a href="http://hledger.org" id="hledgerorglink">hledger.org</a>
       <% navlinks env %>
-      <% searchform env %>
+--      <% searchform env %>
       <a href="http://hledger.org/README.html" id="helplink">help</a>
     </div>
 
@@ -236,7 +236,8 @@ addform env = do
   let inputs = Hack.Contrib.Request.inputs env
       date  = fromMaybe "" $ lookup "date"  inputs
       desc  = fromMaybe "" $ lookup "desc"  inputs
-  <div id="addform">
+  <div>
+   <div id="addform">
    <form action="" method="POST">
     <table border="0">
       <tr>
@@ -251,6 +252,8 @@ addform env = do
     </table>
    </form>
    </div>
+   <br clear="all" />
+   </div>
 
 transactionfields :: Int -> Hack.Env -> HSP XML
 transactionfields n env = do