From 378ba01ba8a4b67fb5d01dd5adc57fb72e3c86a5 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Fri, 11 Jun 2010 15:07:46 -0400 Subject: load testing code --- src/rooms.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/rooms.clj') diff --git a/src/rooms.clj b/src/rooms.clj index dd02219..c1b596b 100644 --- a/src/rooms.clj +++ b/src/rooms.clj @@ -36,7 +36,7 @@ (= (lower-case key) *default-room*)) (defn lookup-room [key] - (@rooms (lower-case key))) + (and key (@rooms (lower-case key)))) (defn fetch-room [key] (first (do-select ["SELECT * FROM rooms WHERE key = LOWER(?) AND active" key]))) -- cgit v1.2.3-70-g09d2