diff options
| author | dumpfmprod <dumpfmprod@ubuntu.(none)> | 2010-04-08 05:09:34 -0400 |
|---|---|---|
| committer | dumpfmprod <dumpfmprod@ubuntu.(none)> | 2010-04-08 05:09:34 -0400 |
| commit | 25714fb55fdf6fa02721fec35c9105345e87c35b (patch) | |
| tree | ea05ce849aac99c5cf93a6cb25b7e55f900d2029 /src/site.clj | |
| parent | cfc2525c124d23ff4b76dff03bca005c1d7ba17a (diff) | |
| parent | 060d0a20fa9d8e1e0c9f9cb5218ef37b46015301 (diff) | |
Merge branch 'master' of /pichat/repo
Diffstat (limited to 'src/site.clj')
| -rwxr-xr-x | src/site.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/site.clj b/src/site.clj index ef4e773..43bbe7e 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 nick = ? LIMIT 1"] - (first (do-select [query nick])))) + (let [query "SELECT * FROM users WHERE LOWER(nick) = ? LIMIT 1"] + (first (do-select [query (s/lower-case nick)])))) (defn authorize-nick-hash [nick hash] (let [db-user (fetch-nick nick)] |