chore(qualification): WIP add comments for further development

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:

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 }