diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-07-02 13:09:41 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-07-02 13:09:41 -0400 |
| commit | d562238fc38d9aec655f115a02d4902168c1172d (patch) | |
| tree | e8bc839bd7464ab533d2f3136b31e3871444ee63 | |
| parent | 24b9cf2370e55639ca5f5ad387364a5ded750586 (diff) | |
Show 40 pics in /popular
| -rw-r--r-- | src/site.clj | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/site.clj b/src/site.clj index f398d11..5530348 100644 --- a/src/site.clj +++ b/src/site.clj @@ -552,10 +552,12 @@ and m.room_id = r.room_id and m.is_image = true and r.admin_only = false and t.tag = 'favorite' and t.user_id != u.user_id and t.user_id = u2.user_id group by u.nick, u.avatar, r.key, m.message_id, m.content, m.created_on -order by count desc limit 20 offset 0") +order by count desc limit ? offset ?") + +(def num-popular-dumps 40) (defn get-popular-dumps [nick user-id] - (for [d (do-select [popular-dumps-qry user-id nick])] + (for [d (do-select [popular-dumps-qry user-id nick 40 0])] (let [fav-nicks (.getArray (:user_nicks d))] (assoc d :favers (sort-by :t (comp #(* -1 %) compare) |