From 800f06e0ee21694e877352a6f6bec8ff1200878c Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 1 Aug 2018 18:37:51 +0200
Subject: [PATCH] =?UTF-8?q?Statistik=20f=C3=BCr=20=C3=9Cbungsbl=C3=A4tter?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 templates/widgets/sheetTypeSummary.hamlet | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 templates/widgets/sheetTypeSummary.hamlet

diff --git a/templates/widgets/sheetTypeSummary.hamlet b/templates/widgets/sheetTypeSummary.hamlet
new file mode 100644
index 000000000..59d00b453
--- /dev/null
+++ b/templates/widgets/sheetTypeSummary.hamlet
@@ -0,0 +1,23 @@
+<div>
+  $if 0 < sumNormalPoints sheetTypeSummary
+    Gesamtpunktzahl #{display (sumNormalPoints sheetTypeSummary)}
+    $maybe nPts <- (maybeAdd (achievedNormal sheetTypeSummary) (achievedBonus sheetTypeSummary))
+      \ davon #{display nPts} erreicht
+      $maybe bPts <- achievedBonus sheetTypeSummary
+        \ (inklusive #{display bPts} #
+        $if 0 < sumBonusPoints sheetTypeSummary
+          von #{display $ sumBonusPoints sheetTypeSummary} erreichbaren #
+        Bonuspunkten)
+      \ #{textPercent $ realToFrac $ nPts / (sumNormalPoints sheetTypeSummary)}
+
+
+<div>
+  $if 0 < numPassSheets sheetTypeSummary
+    Blätter zum Bestehen: #{display (numPassSheets sheetTypeSummary)}
+    $maybe passed <- achievedPasses sheetTypeSummary
+      \ davon #{display (achievedPasses sheetTypeSummary)} bestanden.
+
+<div>
+  $if 0 < numNotGraded sheetTypeSummary
+    Unbewertet: #{display (numNotGraded sheetTypeSummary)} Blätter
+