summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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 "/")))))