fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bugfix access rights current & lastinactive

Browse Source
This commit is contained in:
SJost 2019-01-30 11:13:25 +01:00
parent 02a0dc1435
commit 0c9f9aa419
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
routes
View File

@ -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

1
src/Foundation.hs
View File

@ -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
}