fix(lms): negate learner locking condition
This commit is contained in:
parent
172b5086dc
commit
a452b032c4
@ -161,7 +161,7 @@ lmsUserToResetTries LmsUser{..} = lmsUserResetTries && lmsUserLocked &&
|
||||
-- | Answers "Should the LMS lock a user out?"
|
||||
-- Note that LmsUserLocked only logs the current LMS state, not what it should be.
|
||||
lmsUserToLock :: LmsUser -> Bool
|
||||
lmsUserToLock LmsUser{..} = isNothing lmsUserStatus -- only open LMS should be accessible
|
||||
lmsUserToLock LmsUser{..} = isJust lmsUserStatus -- only open LMS should be accessible
|
||||
|
||||
lmsUserStaff :: LmsUser -> Bool
|
||||
lmsUserStaff = const False -- legacy, currently ignored
|
||||
|
||||
Reference in New Issue
Block a user