Fixes #225

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

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)
         <li>
           <em>Hinweis: 
@@ -20,8 +22,9 @@ $with realGrades <- normalSummary <> bonusSummary
           welche nicht gewertet wurden, sondern nur informativen Charakter besitzen
           $maybe achievedFakes <- getSum <$> achievedPoints informationalSummary
             , davon wurden #{display achievedFakes} erreicht
-            \ #{textPercent $ realToFrac $ achievedFakes / fakePoints}    
-          .
+            $if fakePoints /= 0
+              \ #{textPercent $ realToFrac $ achievedFakes / fakePoints}    
+          \.
 
       $maybe reqPasses <- positiveSum (numGradePasses normalSummary)      
         <li>
@@ -30,7 +33,7 @@ $with realGrades <- normalSummary <> bonusSummary
             \ davon #{display passed} bestanden
             $maybe bonusPassed <- getSum <$> achievedPasses bonusSummary
               \ (inklusive #{display bonusPassed} Bonusaufgaben)
-            .
+            \.
 
       $maybe noGradeSheets <- positiveSum numNotGraded
         <li>