diff options
| author | sostler <sbostler@gmail.com> | 2010-01-20 04:07:51 -0500 |
|---|---|---|
| committer | sostler <sbostler@gmail.com> | 2010-01-20 04:07:51 -0500 |
| commit | f69cd3b50f35c97eba1a4f1ed47e933edc2ec2f6 (patch) | |
| tree | 6152a22fc7b752c78d26096bb02c8e9cf5dd6e13 /src | |
| parent | 2d9360d877f795859065cf68596e15846e252461 (diff) | |
Added text to VIP log
Diffstat (limited to 'src')
| -rwxr-xr-x | src/site.clj | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/site.clj b/src/site.clj index 653e99a..4f6ca71 100755 --- a/src/site.clj +++ b/src/site.clj @@ -425,9 +425,10 @@ (let [st (fetch-template "log" session) offset (maybe-parse-int offset 0) dump-offset (* offset dumps-per-page) + image-only (not (room :admin_only)) dumps (to-array (map process-message-for-output - (fetch-messages-by-room (room :room_id) true dump-offset))) - dump-count (count-messages-by-room (room :room_id) true)] + (fetch-messages-by-room (room :room_id) image-only dump-offset))) + dump-count (count-messages-by-room (room :room_id) image-only)] (if (< (+ dump-offset dumps-per-page) dump-count) (.setAttribute st "next" (inc offset))) (if (not= offset 0) |