diff options
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/site.clj b/src/site.clj index 00729fc..347100a 100644 --- a/src/site.clj +++ b/src/site.clj @@ -419,7 +419,13 @@ FROM users u has-avatar (non-empty-string? (user-info :avatar)) dump-cnt (count-dumps-posted profile-nick) fav-from-cnt (count-dumps-user-faved profile-nick) - score (lookup-score profile-nick)] + score (lookup-score profile-nick) + raw-dumps (logger tags/fetch-dumps-by-nick + :nick profile-nick + :amount 5) + dumps (map tags/add-favorited-flag (take 5 raw-dumps) (repeat session)) + dumps (map tags/remove-tags-for-output dumps) + dumps (logger doall (map process-message-for-output dumps))] (do (.setAttribute st "is_home" is-home) (doseq [a [:nick :avatar :contact :bio]] @@ -430,6 +436,8 @@ FROM users u (.setAttribute st "score_ent" (score-to-entity score)) (.setAttribute st "dump_cnt" (comma-format dump-cnt)) (.setAttribute st "dumps_user_faved_cnt" (comma-format fav-from-cnt)) + (if (not (empty? dumps)) + (.setAttribute st "dumps" dumps)) (.setAttribute st "debug_log_items" (logger)) (.toString st))) (resp-error "NO_USER")))) |