fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Don't hide CorrectionR-PageAction

Browse Source 
Fixes #128
This commit is contained in:
Gregor Kleen 2018-07-22 17:28:53 +02:00
parent b80f9e79e4
commit e0c8e6edf0
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Foundation.hs
View File

@ -872,12 +872,7 @@ pageActions (CSubmissionR tid csh shn cid SubShowR) =
{ menuItemLabel = "Korrektur" { menuItemLabel = "Korrektur"
, menuItemIcon = Nothing , menuItemIcon = Nothing
, menuItemRoute = CSubmissionR tid csh shn cid CorrectionR , menuItemRoute = CSubmissionR tid csh shn cid CorrectionR
, menuItemAccessCallback' = do , menuItemAccessCallback' = return True
smid <- decrypt cid
sm <- runDB $ get smid
case sm of
(Just (Submission { submissionRatingTime=Just _})) -> return True
_ -> return False
} }
] ]
pageActions (CSheetR tid csh shn SCorrR) = pageActions (CSheetR tid csh shn SCorrR) =