diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/site.clj | 17 | ||||
| -rwxr-xr-x | src/utils.clj | 1 |
2 files changed, 11 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))) diff --git a/src/utils.clj b/src/utils.clj index 628e4b8..3f3efab 100755 --- a/src/utils.clj +++ b/src/utils.clj @@ -22,6 +22,7 @@ ;; moved this to here which doesn't seem right... maybe a 'settings.clj' or something? (def *dumps-per-page* 20) +(def *vip-dumps-per-page* 200) ;; Misc |