diff options
Diffstat (limited to 'cljssss-g.clj')
| -rw-r--r-- | cljssss-g.clj | 10 |
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 "/")) |