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 }