chore(qualification): blocking on qualification page implemented

messages/uniworx/categories/qualification/de-de-formal.msg

@@ -23,8 +23,8 @@ TableQualificationFirstHeld: Erstmalig
 TableQualificationBlockedDue: Entzogen
 TableQualificationBlockedTooltip: Wann wurde die Qualifikation vorübergehend außer Kraft gesetzt und warum wurde dies veranlasst?
 TableQualificationBlockedTooltipSimple: Wann wurde die Qualifikation aus besonderem Grund wiederrufen?
-TableQualificationNoRenewal: Storniert
+TableQualificationNoRenewal: Auslaufend
-TableQualificationNoRenewalTooltip: Es wird keine Benachrichtigung mehr versendet, wenn diese Qualifikation ablaufen sollte. Die Qualifikation kann noch gültig sein.
+TableQualificationNoRenewalTooltip: Es wird keine Benachrichtigung mehr versendet, wenn diese Qualifikation ablaufen sollte. Die Qualifikation kann noch weiterhin gültig sein.
 QualificationUserNoRenewal: Läuft ohne Benachrichtigung aus
 QualificationUserNone: Für diese Person sind keine Qualifikationen registriert.
 QualificationBlockReason: Entzugsbegründung
@@ -71,13 +71,15 @@ MailSubjectQualificationExpired qname@Text: Qualifikation #{qname} ist ab sofort
 MailBodyQualificationRenewal qname@Text: Sie müssen die Qualifikation #{qname} demnächst durch einen E-Learning Kurs erneuern, siehe Anhang.
 MailBodyQualificationExpiry: Diese Qualifikation läuft bald ab. Tätigkeiten, welche diese Qualifikation voraussetzen dürfen dann nicht länger ausgeübt werden!
 MailBodyQualificationExpired: Diese Qualifikation is nun abgelaufen. Tätigkeiten, welche diese Qualifikation voraussetzen dürfen ab sofort nicht länger ausgeübt werden! Es ist möglich, dass die Qualifikation vorzeit ungültig wurde, z.B. wegen erfolgloser Teilnahme an einem verpflichtendem E-Learning.
-QualificationActExpire: Stornieren - Qualifikation läuft ohne Benachrichtigung ab
+QualificationActExpire: Auslaufend markieren - keine Benachrichtigung zur Erneuerung senden
-QualificationActUnexpire: Stornierung aufheben - Benachrichtigung bei anstehender Erneuerung senden
+QualificationActUnexpire: Auslaufend aufheben - kostenpflichtige Benachrichtigung bei anstehender Erneuerung senden
 QualificationSetExpire n@Int64: Benachrichtigung bei anstehender Erneuerung und E-Learning abgeschaltet für #{n} #{pluralDE n "Person" "Personen"}
 QualificationSetUnexpire n@Int64: Benachrichtigung bei anstehender Erneuerung und E-Learning aktiviert für #{n} #{pluralDE n "Person" "Personen"}
-QualificationActBlockSupervisor: Dauerhaft zurückgeben
+QualificationActBlockSupervisor: Dauerhaft aufheben, mit sofortiger Wirkung
 QualificationActBlock: Entziehen
 QualificationActUnblock: Entzug löschen
+QualificationStatusBlock   l@QualificationShorthand n@Int m@Int: #{n}/#{m} #{l} entzogen
+QualificationStatusUnblock l@QualificationShorthand n@Int m@Int: #{n}/#{m} #{l} reaktiviert
 LmsRenewalInstructions: Anweisungen zur Verlängerung finden Sie im angehängten PDF. Um Missbrauch zu verhindern wurde das PDF dem von Ihnen in FRADrive hinterlegten PDF-Passwort verschlüsselt. Falls kein PDF-Passwort manuell hinterlegt wurde, ist das PDF-Passwort Ihre Flughafen Ausweisnummer, inklusive Punkt und der Ziffer danach.
 LmsNoRenewal: Leider kann diese Qualifikation nicht alleine durch E-Learning verlängert werden.
 LmsActNotify: Benachrichtigung E-Learning erneut per Post oder E-Mail versenden

messages/uniworx/categories/qualification/en-eu.msg

@@ -23,7 +23,7 @@ TableQualificationFirstHeld: First held
 TableQualificationBlockedDue: Revoked
 TableQualificationBlockedTooltip: Why and when was this qualification temporarily suspended?
 TableQualificationBlockedTooltipSimple: When was this qualification revoked due to extraordinary reasons?
-TableQualificationNoRenewal: Cancelled
+TableQualificationNoRenewal: Discontinued
 TableQualificationNoRenewalTooltip: No renewal notifications will be send for this qualification upon expiry. The qualification may still be valid.
 QualificationUserNoRenewal: Expires without further notification
 QualificationUserNone: No registered qualifications for this person.
@@ -71,13 +71,15 @@ MailSubjectQualificationExpired qname: Qualification #{qname} is no longer valid
 MailBodyQualificationRenewal qname: You will soon need to renew qualification #{qname} by completing an e-learning course. For details see attachment.
 MailBodyQualificationExpiry: This qualification expires soon. You may then no longer execute any duties that require this qualification as a precondition!
 MailBodyQualificationExpired: This qualification is now expired. You may no longer execute any duties that require this qualification as a precondition! It is possible that the qualification expired prematurely, e.g. due to a failed compulsory e-learning.
-QualificationActExpire: Cancel - qualification expires silently
+QualificationActExpire: Discontinue - qualification expires silently
-QualificationActUnexpire: Uncancel - notify upon due renewal
+QualificationActUnexpire: Continue - send a possibly fee-paying notification upon due renewal
 QualificationSetExpire n: Expiry notification and e-learning deactivated for #{n} #{pluralENs n "person"}
 QualificationSetUnexpire n: Expiry notification and e-learning activated for #{n} #{pluralENs n "person"}
-QualificationActBlockSupervisor: Waive permanently
+QualificationActBlockSupervisor: Waive permanently, effective immediately
 QualificationActBlock: Revoke
 QualificationActUnblock: Clear revocation
+QualificationStatusBlock   l n m: #{n}/#{m} #{l} revoked
+QualificationStatusUnblock l n m: #{n}/#{m} #{l} reactivated
 LmsRenewalInstructions: Instruction on how to accomplish the renewal are enclosed in the attached PDF. In order to avoid misuse, the PDF is encrypted with your chosen FRADrive PDF-Password. If you have not yet chosen a PDF-Password yet, then the password is your Fraport id card number, inkluding the punctuation mark and the Digit thereafter.
 LmsNoRenewal: Unfortunately, this particular qualification cannot be renewed through E-learning only. 
 LmsActNotify: Resend e-learning notification by post or email

src/Handler/Qualification.hs

@@ -73,7 +73,7 @@ getSupervisees = do
 mkQualificationAllTable :: DB (Any, Widget)
 mkQualificationAllTable = do 
   svs <- getSupervisees 
-  now <- liftIO getCurrentTime  
+  now <- liftIO getCurrentTime
   let    
     resultDBTable = DBTable{..}
       where
@@ -466,19 +466,39 @@ postQualificationR sid qsh = do
     tbl <- mkQualificationTable isAdmin qent acts colChoices psValidator
     return (tbl, qent)
   
-  formResult lmsRes $ \case
+  formResult lmsRes $ \case    
-    -- TODO: continue here
+    (action, selectedUsers) | isExpiryAct action -> do
-    _ | not isAdmin -> addMessageI Error MsgUnauthorized -- only admins can use the form on this page for now
-    (action, selectedUsers) | isExpiryAct action -> do 
       let isUnexpire = action == QualificationActUnexpireData
-      upd <- runDB $ updateWhereCount 
+      upd <- runDB $ updateWhereCount
               [QualificationUserQualification ==. qid, QualificationUserUser <-. Set.toList selectedUsers]
               [QualificationUserScheduleRenewal =. isUnexpire]
       let msgKind = if upd > 0  then Success else Warning
           msgVal  = upd & if isUnexpire then MsgQualificationSetUnexpire else MsgQualificationSetExpire
       addMessageI msgKind msgVal
       redirect currentRoute
-    _ -> addMessageI Error MsgUnauthorized -- TODO continue here
+    (action, selectedUsers) | isBlockAct action && (isAdmin || action == QualificationActBlockSupervisorData)  -> do
+      now <- liftIO getCurrentTime
+      let nowaday = utctDay now 
+          qubr = case action of 
+              QualificationActUnblockData         -> Nothing
+              QualificationActBlockSupervisorData -> Just $ mkQualificationBlocked QualificationBlockReturnedByCompany nowaday
+              QualificationActBlockData{..}       -> Just $ QualificationBlocked
+                                                      { qualificationBlockedDay     = nowaday
+                                                      , qualificationBlockedReason  = qualTableActBlockReason
+                                                      }
+              _ -> error "Handle.Qualification.isBlockAct returned non-block action"
+      oks <- runDB $ qualificationUserBlocking qid (Set.toList selectedUsers) qubr
+      let nrq = length selectedUsers
+          warnLevel = if
+            | oks < 0    -> Error
+            | oks == nrq -> Success
+            | otherwise  -> Warning
+          fbmsg = if
+            | isNothing qubr -> MsgQualificationStatusUnblock
+            | otherwise      -> MsgQualificationStatusBlock
+      addMessageI warnLevel $ fbmsg qsh oks nrq
+      redirect currentRoute
+    _ -> addMessageI Error MsgUnauthorized 
 
   let heading = citext2widget $ qualificationName quali
   siteLayout heading $ do