From ee7f2b534ab7ec7abae38d4f9d0ee658709d80db Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Thu, 6 Jun 2019 10:09:35 +0200
Subject: [PATCH 1/2] minor refactor

---
 src/Handler/Corrections.hs | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 20182e398..eb053bce9 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -1062,17 +1062,13 @@ assignHandler tid ssh csh rawSids = do
   -- process form
   currentRoute <- getCurrentRoute
   ((btnResult, btnWdgt), btnEnctype) <- runFormPost $ identifyForm FIDAssignSubmissions buttonForm
-  assignmentStatus <- case btnResult of
-      FormSuccess BtnSubmissionsAssign -> do -- Button was pressed, assign and report
-          -- Assign submissions
-          runDB $ (\f -> foldM f Map.empty sids) $
-            \acc sid -> flip (Map.insert sid) acc <$> assignSubmissions sid Nothing
-          -- Too much important information for an alert. Display proper info page instead
-      other -> do
-          formFailure2Alerts other -- show possible allerts
-          return Map.empty -- no assignments performed
+  assignmentStatus <- fmap (fromMaybe Map.empty) . formResultMaybe btnResult $ \BtnSubmissionsAssign ->
+      -- Assign submissions
+      fmap Just . runDB $ (\f -> foldM f Map.empty sids) $
+        \acc sid -> flip (Map.insert sid) acc <$> assignSubmissions sid Nothing
+      -- Too much important information for an alert message. Display proper info page instead
   let btnForm = wrapForm btnWdgt def
-                { formAction = SomeRoute <$> currentRoute
+                { formAction = SomeRoute <$> currentRoute -- TODO: should be a modal route
                 , formEncoding = btnEnctype
                 , formSubmit = FormNoSubmit
                 }

From 04e37a9ae7896c296597cc3afe435653c1d51e54 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Thu, 6 Jun 2019 10:27:47 +0200
Subject: [PATCH 2/2] Fixes #397

---
 messages/uniworx/de.msg                                  | 2 ++
 templates/widgets/grading-summary/grading-summary.hamlet | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg
index e0a5882a3..993bffa46 100644
--- a/messages/uniworx/de.msg
+++ b/messages/uniworx/de.msg
@@ -439,6 +439,8 @@ AccessibleSince: Verfügbar seit
 
 
 Corrected: Korrigiert
+CorrectionAchievedPoints: Erzielte Punkte
+CorrectionAchievedPass: Bestanden
 FileCorrected: Korrigiert (Dateien)
 FileCorrectedDeleted: Korrigiert (gelöscht)
 RatingUpdated: Korrektur gespeichert
diff --git a/templates/widgets/grading-summary/grading-summary.hamlet b/templates/widgets/grading-summary/grading-summary.hamlet
index 248c4b085..86008771c 100644
--- a/templates/widgets/grading-summary/grading-summary.hamlet
+++ b/templates/widgets/grading-summary/grading-summary.hamlet
@@ -15,11 +15,11 @@ $# --
         <th>
           $# empty cell for row headers
         $maybe _ <- hasMarkedPasses
-          <th .table__th colspan=2>_{MsgCorrected}
+          <th .table__th colspan=2>_{MsgCorrectionAchievedPass}
         $maybe _ <- hasPasses
           <th .table__th>_{MsgSheetGradingPassing'}
         $maybe _ <- hasMarkedPoints
-          <th .table__th colspan=2>_{MsgCorrected}
+          <th .table__th colspan=2>_{MsgCorrectionAchievedPoints}
         $maybe _ <- hasPoints
           <th .table__th>_{MsgSheetGradingPoints'}
         <th .table__th>_{MsgSheetGradingCount'}