From be0aa58591496d1df7fea5e621e3be2755274928 Mon Sep 17 00:00:00 2001
From: Jules Laplace <jules@okfoc.us>
Date: Thu, 13 Sep 2012 12:21:38 -0400
Subject: limit by 2000

---
 src/admin.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/admin.clj')

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)
-- 
cgit v1.2.3-70-g09d2