Workaround for unfixed issue #223

src/Handler/Sheet.hs

@@ -200,7 +200,23 @@ getSheetListR tid ssh csh = do
       ]
     psValidator = def
       & defaultSorting [("submission-since", SortAsc)]
-  (SheetTypeSummary{..}, table) <- dbTable psValidator $ DBTable
+  ------------------------------------------------------
+  -- ISSUE #223
+  -- The following line does not work; something is wrong with the tell in line 189 above.
+  -- (SheetTypeSummary{..}, table) <- dbTable psValidator $ DBTable
+  --
+  -- If fixed, remove the following workaround code:
+  SheetTypeSummary{..} <- do
+    rows <- runDB $ E.select $ E.from $ \(sheet `E.LeftOuterJoin` (submission `E.InnerJoin` submissionUser)) -> do
+      E.on $ submission E.?. SubmissionId E.==. submissionUser E.?. SubmissionUserSubmission
+      E.on $  (E.just $ sheet E.^. SheetId) E.==. submission E.?. SubmissionSheet
+        E.&&. submissionUser E.?. SubmissionUserUser E.==. E.val muid
+      E.where_ $ sheet E.^. SheetCourse E.==. E.val cid
+      return (sheet E.^. SheetType, submission E.?. SubmissionRatingPoints)
+    return $ foldMap (\(E.Value st, E.Value mbPts) -> sheetTypeSum st (join mbPts)) rows
+  (_, table) <- dbTable psValidator $ DBTable
+  -- END ISSUE #223
+  -----------------------------------------------------
     { dbtSQLQuery  = sheetData
     , dbtColonnade = sheetCol
     , dbtProj = \DBRow{ dbrOutput = dbrOutput@(Entity _ Sheet{..}, _, _) }

templates/widgets/sheetTypeSummary.hamlet

@@ -1,7 +1,9 @@
 $with realGrades <- normalSummary <> bonusSummary 
   $with allGrades <- realGrades <> informationalSummary
     <div>
+      <ul>    
         $maybe realPoints <- positiveSum (sumGradePoints realGrades) 
+          <li>     
             Gesamtpunktzahl #{display realPoints}
             $maybe nPts <- getSum <$> achievedPoints realGrades
               \ davon #{display nPts} erreicht
@@ -12,6 +14,7 @@ $with realGrades <- normalSummary <> bonusSummary
                 Bonuspunkten)
               \ #{textPercent $ realToFrac $ nPts / realPoints}    
         $maybe fakePoints <- positiveSum (sumGradePoints informationalSummary)
+          <li>
             <em>Hinweis: 
             \ #{display fakePoints} Punkte gab es für Aufgabenblätter, #
             welche nicht gewertet wurden, sondern nur informativen Charakter besitzen
@@ -19,15 +22,17 @@ $with realGrades <- normalSummary <> bonusSummary
               , davon wurden #{display achievedFakes} erreicht
               \ #{textPercent $ realToFrac $ achievedFakes / fakePoints}    
             .
-    <div>
+      
         $maybe reqPasses <- positiveSum (numGradePasses normalSummary)      
+          <li>
             Aufgaben zum Bestehen: #{display reqPasses}
             $maybe passed <- getSum <$> achievedPasses realGrades
               \ davon #{display passed} bestanden
               $maybe bonusPassed <- getSum <$> achievedPasses bonusSummary
                 \ (inklusive #{display bonusPassed} Bonusaufgaben)
               .
-    <div>
+      
         $maybe noGradeSheets <- positiveSum numNotGraded
+          <li>
             #{display noGradeSheets} unbewertete Aufgabenblätter.