Don't hide CorrectionR-PageAction

Fixes #128
2018-07-22 17:28:53 +02:00 · 2018-07-22 17:28:53 +02:00 · e0c8e6edf0
commit e0c8e6edf0
parent b80f9e79e4
1 changed files with 1 additions and 6 deletions
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@ -872,12 +872,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
-          case sm of
-            (Just (Submission { submissionRatingTime=Just _})) -> return True
-            _ -> return False
+      , menuItemAccessCallback' = return True
      }
  ]
 pageActions (CSheetR tid csh shn SCorrR) =