diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-11-29 12:36:44 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-11-29 12:36:44 +0100 |
| commit | e26aa2d8befbf396bd61d7042c6a33ca4f7f2a28 (patch) | |
| tree | d902fff57060647334a121b90cad880daad80a0c | |
| parent | 57c8a2c909ded2dedeaa16dd1b8dd2edc96d6ac1 (diff) | |
Fix authentication.
| -rw-r--r-- | src/logikorr/servlet.clj | 9 |
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 "/"))))) |