diff --git a/src/Foundation.hs b/src/Foundation.hs
index f71fbd6e0..d49734af3 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -748,14 +748,6 @@ tagAccessPredicate AuthTime = APDB $ \mAuthId route _ -> case route of
     guard visible
     return Authorized
 
-  CourseR tid ssh csh (MaterialR mnm _) -> maybeT (unauthorizedI MsgUnauthorizedMaterialTime) $ do
-    cid <- $cachedHereBinary (tid, ssh, csh) . MaybeT . getKeyBy $ TermSchoolCourseShort tid ssh csh
-    Entity _mid Material{materialVisibleFrom} <- $cachedHereBinary (cid, mnm) . MaybeT . getBy $ UniqueMaterial cid mnm
-    cTime <- liftIO getCurrentTime
-    let visible = NTop materialVisibleFrom <= NTop (Just cTime)
-    guard visible
-    return Authorized
-
   CourseR tid ssh csh CRegisterR -> do
     now <- liftIO getCurrentTime
     mbc <- $cachedHereBinary (tid, ssh, csh) . getBy $ TermSchoolCourseShort tid ssh csh