diff --git a/src/Handler/LMS.hs b/src/Handler/LMS.hs index f8b08ac15..d5818ce6b 100644 --- a/src/Handler/LMS.hs +++ b/src/Handler/LMS.hs @@ -387,7 +387,7 @@ mkLmsTable (Entity qid quali) acts restrict cols psValidator = do forMM_ (view $ _dbtProjFilter . _ltProjFilterMayAccess) $ \b -> do euid <- encrypt $ user ^. _entityKey guardM . lift . lift . fmap (== b) . hasReadAccessTo . urlRoute $ ForProfileDataR euid -- TODO create a page with proper rights; this is only for admins! - return (qusr,user,lusr,pjob,pjac) + return (qusr,user,lusr,pjob,E.Value pjac) dbtColonnade = cols dbtSorting = mconcat