diff options
| author | sostler <sbostler@gmail.com> | 2010-04-27 23:30:17 -0400 |
|---|---|---|
| committer | sostler <sbostler@gmail.com> | 2010-04-27 23:30:17 -0400 |
| commit | c111da7fd591d1b9335cd7b2221ccf54bd5fcc64 (patch) | |
| tree | affd78804623e9e5d2f32233385d10051abd00b2 | |
| parent | 0843de1a643dee969f496398312fa2268d8227a0 (diff) | |
Fixed reg bug take 2
| -rw-r--r-- | src/site.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/site.clj b/src/site.clj index 089bba2..f48f560 100644 --- a/src/site.clj +++ b/src/site.clj @@ -345,7 +345,7 @@ (defn nick-reserved? [nick] (let [query "SELECT * FROM users WHERE LOWER(nick) = ? LIMIT 1"] (or (contains? (poll *reserved-nicks*) nick) - (= (count (do-select [query (lower-case nick)])) 0)))) + (> (count (do-select [query (lower-case nick)])) 0)))) (defn register [session params] (let [nick (params :nick) |