diff options
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/site.clj b/src/site.clj index e26d15a..16f89ea 100644 --- a/src/site.clj +++ b/src/site.clj @@ -567,13 +567,15 @@ ORDER BY msg_count DESC") (is-vip? session))))) (defn chat [session room template] - (let [now (System/currentTimeMillis) - nick (session :nick) - st (fetch-template template session) - ; TODO: remove db query - message-list (reverse (tags/fetch-dumps-by-room :room-id (room :room_id) :image-only false)) - message-list (map tags/add-favorited-flag message-list (repeat session)) - message-list (to-array (map process-message-for-output message-list))] + (let [now (System/currentTimeMillis) + nick (session :nick) + st (fetch-template template session) + limit (if (:admin_only room) *vip-dumps-per-page* *dumps-per-page*) + message-list (reverse (tags/fetch-dumps-by-room :room-id (room :room_id) + :image-only false + :amount limit)) + message-list (map tags/add-favorited-flag message-list (repeat session)) + message-list (to-array (map process-message-for-output message-list))] (if nick (dosync (login-user (user-struct-from-session session) room))) @@ -1028,6 +1030,7 @@ ORDER BY msg_count DESC") (GET "/error/ie" (serve-template "error_ie" session)) (GET "/:nick" (profile session (params :nick) "0")) + (GET "/:nick/:offset" (profile session (params :nick) (params :offset))) (ANY "*" (unknown-page))) |