From 0c9f9aa419b51d111a2724ca93453a1593574208 Mon Sep 17 00:00:00 2001 From: SJost Date: Wed, 30 Jan 2019 11:13:25 +0100 Subject: [PATCH] Bugfix access rights current & lastinactive --- routes | 4 ++-- src/Foundation.hs | 1 - 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/routes b/routes index ebd3e5973..99f6f5add 100644 --- a/routes +++ b/routes @@ -73,8 +73,8 @@ /subs CCorrectionsR GET POST /ex SheetListR GET !registered !materials !corrector !/ex/new SheetNewR GET POST - !/ex/current SheetCurrentR GET !free -- just a redirect - !/ex/lastinactive SheetOldUnassigned GET !free -- just a redirect + !/ex/current SheetCurrentR GET !registered !materials !corrector + !/ex/unassigned SheetOldUnassigned GET /ex/#SheetName SheetR: /show SShowR GET !timeANDregistered !timeANDmaterials !corrector /edit SEditR GET POST diff --git a/src/Foundation.hs b/src/Foundation.hs index 4840003f7..a01f6744f 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -1298,7 +1298,6 @@ pageActions (CourseR tid ssh csh SheetListR) = , menuItemRoute = SomeRoute $ CourseR tid ssh csh SheetOldUnassigned , menuItemModal = False , menuItemAccessCallback' = runDB . maybeT (return False) $ do - guardM $ (== Authorized) <$> evalAccessCorrector tid ssh csh void . MaybeT $ sheetOldUnassigned tid ssh csh return True }