Bugfix sheetOldUnassigned
This commit is contained in:
parent
2e9320886f
commit
b45d1c92f9
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user