From db06f5fe42961238ff073c7073699f113c639449 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Thu, 21 Sep 2023 09:10:32 +0000 Subject: [PATCH] chore(lms): deactivate debug column lms view --- src/Handler/LMS.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/LMS.hs b/src/Handler/LMS.hs index e3862a3e3..eff51bb81 100644 --- a/src/Handler/LMS.hs +++ b/src/Handler/LMS.hs @@ -648,7 +648,7 @@ postLmsR sid qsh = do , sortable (Just "blocked") (i18nCell MsgQualificationValidIndicator & cellTooltip MsgTableQualificationBlockedTooltip) $ \row -> qualificationValidReasonCell'' (Just $ LmsUserR sid qsh) isAdmin nowaday (row ^? resultQualBlock) row (row ^. resultValidQualification) -- TODO: resultValidQualification for debugging only -- DEBUG - , sortable Nothing (i18nCell MsgQualificationValidIndicator) $ \(view resultValidQualification -> b) -> iconBoolCell b -- TODO: just for debugging + -- , sortable Nothing (i18nCell MsgQualificationValidIndicator) $ \(view resultValidQualification -> b) -> iconBoolCell b -- TODO: just for debugging -- DEBUG , sortable (Just "schedule-renew")(i18nCell MsgTableQualificationNoRenewal & cellTooltip MsgTableQualificationNoRenewalTooltip ) $ \( view $ resultQualUser . _entityVal . _qualificationUserScheduleRenewal -> b) -> ifIconCell (not b) IconNoNotification