diff options
Diffstat (limited to 'src/logikorr/servlet.clj')
| -rw-r--r-- | src/logikorr/servlet.clj | 8 |
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 "/"))))) |