Bugfix sheetOldUnassigned

This commit is contained in:
SJost 2019-01-30 11:30:54 +01:00
parent 2e9320886f
commit b45d1c92f9

View File

@ -37,7 +37,7 @@ sheetOldUnassigned tid ssh csh = do
E.where_ . E.exists . E.from $ \submission ->
E.where_ $ submission E.^. SubmissionSheet E.==. sheet E.^. SheetId
E.&&. E.isNothing (submission E.^. SubmissionRatingBy)
E.orderBy [E.desc $ sheet E.^. SheetActiveTo]
E.orderBy [E.asc $ sheet E.^. SheetActiveTo]
E.limit 1
return $ sheet E.^. SheetName
return $ case sheets of