diff options
| -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)) |