Don't hide CorrectionR-PageAction

Fixes #128
2018-07-22 17:28:53 +02:00 · 2018-07-22 17:28:53 +02:00 · 8da542fb90
commit 8da542fb90
parent cc285e953d
1 changed files with 1 additions and 4 deletions
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@ -882,10 +882,7 @@ pageActions (CSubmissionR tid csh shn cid SubShowR) =
      { menuItemLabel = "Korrektur"
      , menuItemIcon  = Nothing
      , menuItemRoute = CSubmissionR tid csh shn cid CorrectionR
-      , menuItemAccessCallback' = do
-          smid <- decrypt cid
-          sm <- runDB $ get smid
-          return $ maybe False submissionRatingDone sm
+      , menuItemAccessCallback' = return True
      }
  ]
 pageActions (CSheetR tid csh shn SCorrR) =