aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--cljssss-g.clj10
1 files changed, 5 insertions, 5 deletions
diff --git a/cljssss-g.clj b/cljssss-g.clj
index e1cee88..a9e8ffe 100644
--- a/cljssss-g.clj
+++ b/cljssss-g.clj
@@ -36,12 +36,12 @@
(.getInstanceOf templates "login")
(.setAttributes {"logintext" "Login"})))))
(POST "/login"
- (dosync
- (with-db
- (sql/with-query-results [{id :id password :password}]
+ (dosync
+ (with-db
+ (sql/with-query-results [{id :id password :password}]
["SELECT id, password FROM user WHERE name = ?"
- (@params :name)]
- (if (= password (@params :password))
+ (@params :name)]
+ (if (= password (@params :password))
(do
(alter session assoc :id id)
(redirect-to "/"))