From 64ea50ebf6575cafa4363d9c2417e383037b9696 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Fri, 26 May 2023 10:44:04 +0000 Subject: [PATCH] chore(qualification): WIP add comments for further development --- models/lms.model | 7 +++++-- src/Handler/Qualification.hs | 2 ++ 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/models/lms.model b/models/lms.model index c8329b72f..8dc2e1bbe 100644 --- a/models/lms.model +++ b/models/lms.model @@ -70,9 +70,12 @@ QualificationUser QualificationUserBlock qualificationUser QualificationUserId OnDeleteCascade OnUpdateCascade + unblock Bool from Day - until Day Maybe -- if Nothing then the block holds indefinitely - reason Text + -- until Day Maybe -- if Nothing then the block holds indefinitely + reason Text + -- company -- to be encoded in reason + blocker UserId Maybe deriving Eq Ord Read Show Generic -- LMS Interface Tables, need regular processing by background jobs, per QualificationId: diff --git a/src/Handler/Qualification.hs b/src/Handler/Qualification.hs index a1863add9..9ce89fc8e 100644 --- a/src/Handler/Qualification.hs +++ b/src/Handler/Qualification.hs @@ -270,6 +270,8 @@ data QualificationTableActionData | QualificationActUnexpireData | QualificationActBlockSupervisorData | QualificationActBlockData { qualTableActBlockReason :: Text, qualTableActNotify :: Bool, qualTableActRemoveSupervisors :: Bool } + -- idea: implement some standard answers in addition to a free form answer + | QualificationActBlockData { qualTableActBlockStandard :: QualificationBlockStandardReason, qualTableActNotify :: Bool, qualTableActRemoveSupervisors :: Bool } | QualificationActUnblockData | QualificationActRenewData | QualificationActGrantData { qualTableActGrantUntil :: Day }