From e26aa2d8befbf396bd61d7042c6a33ca4f7f2a28 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 29 Nov 2009 12:36:44 +0100 Subject: Fix authentication. --- src/logikorr/servlet.clj | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src') 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 "/"))))) -- cgit v1.2.3