summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/logikorr/servlet.clj8
1 files changed, 3 insertions, 5 deletions
diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj
index 5ade9a8..79ff1e0 100644
--- a/src/logikorr/servlet.clj
+++ b/src/logikorr/servlet.clj
@@ -151,11 +151,9 @@
(let [users (UserServiceFactory/getUserService)
user (.getCurrentUser users)]
(if (and user
- (some #(= (.getEmail user) %)
- #{"mulkiatsch@gmail.com"
- "gpmfuchs@gmx.de"
- "kilian@fachschaften.uni-muenchen.de"
- "schwicht@mathematik.uni-muenchen.de"}))
+ (not (empty? (ds/find-all
+ (doto (Query. "user")
+ (.addFilter "email" Query$FilterOperator/EQUAL (.getEmail user)))))))
(thunk)
(redirect-to (.createLoginURL users "/")))))