From 4d46d9d843c7ef771087208f48a104e3fa4b3022 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Mon, 27 Feb 2023 12:39:22 +0100 Subject: [PATCH] chore(lms): increase limit for pagination problem workaround --- src/Foundation/Navigation.hs | 8 ++++---- src/Handler/LMS.hs | 4 ++-- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Foundation/Navigation.hs b/src/Foundation/Navigation.hs index 7c7aac815..904ce580d 100644 --- a/src/Foundation/Navigation.hs +++ b/src/Foundation/Navigation.hs @@ -2333,15 +2333,15 @@ pageActions (LmsLSR sid qsh pagLimit pagOffset) = return [ NavPageActionPrimary { navLink = defNavLink MsgMenuPrevPage $ LmsLSR sid qsh pagLimit $ pred pagOffset , navChildren = - [ defNavLink MsgMenuPageIncrease $ LmsLSR sid qsh (pagLimit + 50) pagOffset - , defNavLink MsgMenuPageDecrease $ LmsLSR sid qsh (pagLimit - 50) pagOffset + [ defNavLink MsgMenuPageIncrease $ LmsLSR sid qsh (pagLimit + 500) pagOffset + , defNavLink MsgMenuPageDecrease $ LmsLSR sid qsh (pagLimit - 500) pagOffset ] } , NavPageActionPrimary { navLink = defNavLink MsgMenuNextPage $ LmsLSR sid qsh pagLimit $ succ pagOffset , navChildren = - [ defNavLink MsgMenuPageIncrease $ LmsLSR sid qsh (pagLimit + 50) pagOffset - , defNavLink MsgMenuPageDecrease $ LmsLSR sid qsh (pagLimit - 50) pagOffset + [ defNavLink MsgMenuPageIncrease $ LmsLSR sid qsh (pagLimit + 500) pagOffset + , defNavLink MsgMenuPageDecrease $ LmsLSR sid qsh (pagLimit - 500) pagOffset ] } , NavPageActionPrimary diff --git a/src/Handler/LMS.hs b/src/Handler/LMS.hs index d54862667..d618fac25 100644 --- a/src/Handler/LMS.hs +++ b/src/Handler/LMS.hs @@ -514,12 +514,12 @@ mkLmsTable nlimit noffset isAdmin (Entity qid quali) acts cols psValidator = do getLmsR, postLmsR :: SchoolId -> QualificationShorthand -> Handler Html getLmsR = postLmsR -postLmsR sid qsh = redirect $ LmsLSR sid qsh 500 0 +postLmsR sid qsh = redirect $ LmsLSR sid qsh 2000 0 getLmsLSR, postLmsLSR :: SchoolId -> QualificationShorthand -> Int64 -> Int64 -> Handler Html getLmsLSR = postLmsLSR postLmsLSR sid qsh nlimit noffset - | nlimit < 0 || noffset < 0 = redirect $ LmsLSR sid qsh 500 0 + | nlimit < 0 || noffset < 0 = redirect $ LmsLSR sid qsh 2000 0 | otherwise = do isAdmin <- hasReadAccessTo AdminR currentRoute <- fromMaybe (error "correctionsR called from 404-handler") <$> getCurrentRoute -- This should never be called from a 404 handler