summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-11-29 12:36:44 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-11-29 12:36:44 +0100
commite26aa2d8befbf396bd61d7042c6a33ca4f7f2a28 (patch)
treed902fff57060647334a121b90cad880daad80a0c /src
parent57c8a2c909ded2dedeaa16dd1b8dd2edc96d6ac1 (diff)
Fix authentication.
Diffstat (limited to 'src')
-rw-r--r--src/logikorr/servlet.clj9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj
index dc48ce5..d27bee1 100644
--- a/src/logikorr/servlet.clj
+++ b/src/logikorr/servlet.clj
@@ -145,10 +145,11 @@
(let [users (UserServiceFactory/getUserService)
user (.getCurrentUser users)]
(if (and user
- (some #(= user %) #{"mulkiatsch@gmail.com"
- "gpmfuchs@gmx.de"
- "kilian@fachschaften.uni-muenchen.de"
- "schwicht@mathematik.uni-muenchen.de"}))
+ (some #(= (.getEmail user) %)
+ #{"mulkiatsch@gmail.com"
+ "gpmfuchs@gmx.de"
+ "kilian@fachschaften.uni-muenchen.de"
+ "schwicht@mathematik.uni-muenchen.de"}))
(thunk)
(redirect-to (.createLoginURL users "/")))))