webyesod: make filter form work in chrome 6

This commit is contained in:
Simon Michael 2010-07-08 02:04:20 +00:00
parent 63de5e0127
commit 2e3c5bc281

View File

@ -187,14 +187,14 @@ navlinks here a p = [$hamlet|
searchform :: HledgerWebAppRoute -> String -> String -> Hamlet HledgerWebAppRoute searchform :: HledgerWebAppRoute -> String -> String -> Hamlet HledgerWebAppRoute
searchform here a p = [$hamlet| searchform here a p = [$hamlet|
%form#searchform %form#searchform!method=GET
filter by: $ filter by: $
%input!name=a!size=20!value=$string.a$ %input!name=a!size=20!value=$string.a$
^ahelp^ $ ^ahelp^ $
in period: $ in period: $
%input!name=p!size=20!value=$string.p$ %input!name=p!size=20!value=$string.p$
^phelp^ $ ^phelp^ $
%input!name=submit!type=submit!value=filter!style=display:none; %input!type=submit!value=filter
^resetlink^ ^resetlink^
|] |]
where where