fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 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 cc285e953d
commit 8da542fb90
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Foundation.hs
View File

@ -882,10 +882,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
return $ maybe False submissionRatingDone sm
} }
] ]
pageActions (CSheetR tid csh shn SCorrR) = pageActions (CSheetR tid csh shn SCorrR) =