diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs index 840601eb1..8feceb2bf 100644 --- a/src/Handler/Sheet.hs +++ b/src/Handler/Sheet.hs @@ -187,10 +187,11 @@ getSheetListR tid ssh csh = do $ \(Entity _ Sheet{sheetType=sType}, _, mbSub) -> case mbSub of (Just (Entity _ Submission{submissionRatingPoints=Just sPoints})) -> case preview (_grading . _maxPoints) sType of - (Nothing) -> mempty - (Just maxPoints) -> + Just maxPoints + | maxPoints /= 0 -> let percent = sPoints / maxPoints in textCell $ textPercent $ realToFrac percent + _other -> mempty _other -> mempty ] psValidator = def diff --git a/templates/widgets/sheetTypeSummary.hamlet b/templates/widgets/sheetTypeSummary.hamlet index 38fc7db3d..b3bb512f7 100644 --- a/templates/widgets/sheetTypeSummary.hamlet +++ b/templates/widgets/sheetTypeSummary.hamlet @@ -12,7 +12,9 @@ $with realGrades <- normalSummary <> bonusSummary $maybe achievedBonus <- positiveSum (sumGradePoints bonusSummary) von #{display achievedBonus} erreichbaren # Bonuspunkten) - \ #{textPercent $ realToFrac $ nPts / realPoints} + $if realPoints /= 0 + \ #{textPercent $ realToFrac $ nPts / realPoints} + \. $maybe fakePoints <- positiveSum (sumGradePoints informationalSummary)