diff options
Diffstat (limited to 'src/site.clj')
| -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) |