diff --git a/src/Foundation.hs b/src/Foundation.hs index b76ad30f2..42fdbff39 100644 --- 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) =