summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorScott Ostler <sostler@deathmachine.local>2010-02-25 20:15:53 -0500
committerScott Ostler <sostler@deathmachine.local>2010-02-25 20:15:53 -0500
commit4bb4fbe6f3abc01edcd402edd1f2c86bd690c062 (patch)
tree3baca3b0b0459f597693437e9fda004b580c84cc /src
parent3c0aa312a9cb6dce05ec20b93191700e17b1a170 (diff)
Rearranged profile func
Diffstat (limited to 'src')
-rwxr-xr-xsrc/site.clj7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/site.clj b/src/site.clj
index 48ba39e..cd2b82f 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -318,15 +318,16 @@
dump-offset (* offset *dumps-per-page*)
dumps (fetch-messages-by-nick profile-nick true dump-offset)
dump-count (count-messages-by-nick profile-nick true)
- st (fetch-template "profile" session)]
+ st (fetch-template "profile" session)
+ dumps (to-array (map process-message-for-output dumps))]
(do
(.setAttribute st "is_home" is-home)
(doseq [a [:nick :avatar :contact :bio]]
(let [v (user-info a)]
(.setAttribute st (name a)
(if (non-empty-string? v) (escape-html v)))))
- (.setAttribute st "dumps"
- (to-array (map process-message-for-output dumps)))
+ (if (> (count dumps) 0)
+ (.setAttribute st "dumps" dumps))
(if (< (+ dump-offset *dumps-per-page*) dump-count)
(.setAttribute st "next" (inc offset)))
(if (not= offset 0)