diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-06-17 02:57:55 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-06-17 02:57:55 -0400 |
| commit | 214002d7001f52d8d837bb628f045ec1ea26ee0b (patch) | |
| tree | 08b393c5ff12faacf337d831677df9858389efe3 | |
| parent | 437c7cd3ecff287a3aec3a0b08c850092c67e8dd (diff) | |
feed through :include-vip
| -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 e2947fc..74e7350 100644 --- a/src/site.clj +++ b/src/site.clj @@ -733,7 +733,8 @@ FROM users u (defnk tagged-dumps-template [session params tags url page-title :message-user-id false :tag-user-id false :avatar nil - :logger (make-time-logger)] + :logger (make-time-logger) + :include-vip false] (let [st (fetch-template "tagged_dumps" session) offset (maybe-parse-int (params :offset) 0) dump-offset (* offset *dumps-per-page*) @@ -742,7 +743,8 @@ FROM users u :amount (+ 1 *dumps-per-page*) :offset dump-offset :message-user-id message-user-id - :tag-user-id tag-user-id) + :tag-user-id tag-user-id + :include-vip include-vip) dumps (map tags/add-favorited-flag (take *dumps-per-page* raw-dumps) (repeat session)) dumps (map tags/remove-tags-for-output dumps) dumps (logger doall (map process-message-for-output dumps))] |