summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rwxr-xr-xsrc/site.clj4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/site.clj b/src/site.clj
index e0a03e4..43e17a8 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -211,7 +211,7 @@
(defn fetch-messages-by-nick
([nick image-only] (fetch-messages-by-nick nick image-only 0))
([nick image-only offset]
- (let [query (str "SELECT m.content, m.created_on, u.nick, u.avatar
+ (let [query (str "SELECT m.content, m.created_on, m.message_id, u.nick, u.avatar
FROM messages m, users u, rooms r
WHERE m.user_id = u.user_id AND u.nick = ?
AND r.room_id = m.room_id AND r.admin_only = false "
@@ -412,7 +412,7 @@
(min (count directory)
(* (inc offset) *per-directory-page*)))
user-ids (apply str (interpose ", " (map #(%1 :user_id) users)))
- qry (str "SELECT u.user_id, u.nick, u.avatar, m.content
+ qry (str "SELECT u.user_id, u.nick, u.avatar, m.content, m.message_id
FROM users u, messages m
WHERE u.user_id in (" user-ids ")
AND m.user_id = u.user_id