From 3bc6dfdbb08028fae24b17ad07d6ccbb06e809cb Mon Sep 17 00:00:00 2001 From: dumpfmprod Date: Thu, 8 Apr 2010 05:27:40 -0400 Subject: Remove check for username caps, added tim banner --- src/site.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/site.clj b/src/site.clj index 43bbe7e..ef4e773 100755 --- a/src/site.clj +++ b/src/site.clj @@ -105,8 +105,8 @@ (not (re-matches nick-regex n)) "NICK_INVALID_CHARS")) (defn fetch-nick [nick] - (let [query "SELECT * FROM users WHERE LOWER(nick) = ? LIMIT 1"] - (first (do-select [query (s/lower-case nick)])))) + (let [query "SELECT * FROM users WHERE nick = ? LIMIT 1"] + (first (do-select [query nick])))) (defn authorize-nick-hash [nick hash] (let [db-user (fetch-nick nick)] -- cgit v1.2.3-70-g09d2