diff options
| author | Jules Laplace <jules@okfoc.us> | 2012-09-13 12:21:38 -0400 |
|---|---|---|
| committer | Jules Laplace <jules@okfoc.us> | 2012-09-13 12:21:38 -0400 |
| commit | be0aa58591496d1df7fea5e621e3be2755274928 (patch) | |
| tree | 9c678a9498892768b076d62b90ebd0d8242d47e6 | |
| parent | 5213365b1b2dcdce6f2f61adf0e50861ee1010bc (diff) | |
limit by 2000
| -rw-r--r-- | src/admin.clj | 4 | ||||
| -rw-r--r-- | src/site.clj | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/admin.clj b/src/admin.clj index 53efedf..fc145c1 100644 --- a/src/admin.clj +++ b/src/admin.clj @@ -32,7 +32,7 @@ (def mute-refresh-period-sec 60) (def fetch-new-users-query " -SELECT * FROM users ORDER BY created_on DESC LIMIT 200 +SELECT * FROM users ORDER BY created_on DESC LIMIT 5000 ") (def fetch-active-mutes-query " @@ -180,7 +180,7 @@ AND cancelled = false ;; Recent users list -(defn show-users [session] +(defn show-users [session params] (if-vip (let [st (fetch-template "users" session) users (fetch-new-users) diff --git a/src/site.clj b/src/site.clj index 910a76c..577a899 100644 --- a/src/site.clj +++ b/src/site.clj @@ -1290,7 +1290,7 @@ WHERE user_id IN ;; Admin stuff (should be own route?) (GET "/debug" (debug-page session flash)) (POST "/debug" (debug-commmand! session params)) - (GET "/mutes" (show-mutes session)) + (GET "/mutes" (show-mutes session params)) (GET "/users" (show-users session)) (GET "/roomlist" (show-rooms session)) (POST "/mute" (mute! session params)) |