From 87da9d9a280509bdf5821ad1888630ee079fb479 Mon Sep 17 00:00:00 2001
From: Scott Ostler <scottbot9000@gmail.com>
Date: Sun, 29 Aug 2010 23:53:58 -0400
Subject: Add check for tag type in fetch-tagged-dumps

---
 src/tags.clj | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/tags.clj b/src/tags.clj
index 3077b2a..d21531a 100644
--- a/src/tags.clj
+++ b/src/tags.clj
@@ -210,6 +210,7 @@ WHERE EXISTS
              :from   ["tags t, messages m, rooms r, users u"]
              :where [[(str "t.user_id = " select-user-id) nick]
                      "t.message_id = m.message_id"
+                     ["t.tag = ?" tag]
                      "m.user_id = u.user_id"
                      "m.room_id = r.room_id"
                      (if hide-vip "r.admin_only = false")
-- 
cgit v1.2.3-70-g09d2