diff options
| author | sostler <sbostler@gmail.com> | 2010-05-20 13:22:43 -0400 |
|---|---|---|
| committer | sostler <sbostler@gmail.com> | 2010-05-20 13:22:43 -0400 |
| commit | be5ae0f99e685177d51ff82304eb525e6790ea7d (patch) | |
| tree | 73e6200538c8128fd1ec8bb1c9f503643f3f1305 /src/rooms.clj | |
| parent | c500b9133d80d1e9757fa62237f772404e5fa298 (diff) | |
Enable room disabling
Diffstat (limited to 'src/rooms.clj')
| -rw-r--r-- | src/rooms.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/rooms.clj b/src/rooms.clj index 5e1feb1..32239d2 100644 --- a/src/rooms.clj +++ b/src/rooms.clj @@ -35,10 +35,10 @@ (@rooms (lower-case key))) (defn fetch-room [key] - (first (do-select ["SELECT * FROM rooms WHERE key = LOWER(?)" key]))) + (first (do-select ["SELECT * FROM rooms WHERE key = LOWER(?) AND active" key]))) (defn fetch-rooms [] - (do-select ["SELECT * FROM ROOMS"])) + (do-select ["SELECT * FROM ROOMS WHERE active"])) (defn count-messages-by-room [room-id image-only] (let [query (str "SELECT COUNT(*) |