web: reset link did not work in all browsers

This commit is contained in:
Simon Michael 2009-07-09 14:59:05 +00:00
parent d9f7027216
commit 235797034c

View File

@ -87,7 +87,7 @@ searchform r a p' =
-- another way to get them
-- a = fromMaybe "" $ queryValue "a" r
-- p = fromMaybe "" $ queryValue "p" r
u = dropWhile (=='/') $ rqUri r
u = rqUri r
s = "20"
resetlink | null a && null p' = noHtml
| otherwise = spaceHtml +++ anchor ! [href u] << stringToHtml "reset"