From dbc5e99109285d4427832820a77a6b47a8098f62 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Tue, 28 Dec 2021 21:27:04 +0100
Subject: [PATCH] feat(course): show study module on course overview page

---
 src/Handler/Course/Show.hs |  1 +
 templates/course.hamlet    | 14 ++++++++++++++
 2 files changed, 15 insertions(+)

diff --git a/src/Handler/Course/Show.hs b/src/Handler/Course/Show.hs
index 1f25a0b29..a488e0d7b 100644
--- a/src/Handler/Course/Show.hs
+++ b/src/Handler/Course/Show.hs
@@ -14,6 +14,7 @@ import Handler.Utils.Tutorial
 import qualified Data.CaseInsensitive as CI
 
 import qualified Data.Map as Map
+import qualified Data.Set as Set
 
 import qualified Database.Esqueleto.Legacy as E
 import qualified Database.Esqueleto.Utils as E
diff --git a/templates/course.hamlet b/templates/course.hamlet
index de6452829..9dcd69070 100644
--- a/templates/course.hamlet
+++ b/templates/course.hamlet
@@ -69,6 +69,20 @@ $#                     #{summary}
       <div>
         #{descr}
 
+  $if not (Set.null (courseStudyModules course))
+    <dt .deflist__dt>_{MsgCourseStudyModules}
+    <dd .deflist__dd>
+      <ul>
+        $forall studyModule <- Set.toList (courseStudyModules course)
+          <li>
+            $case studyModule
+              $of StudyModuleModule{..}
+                #{CI.original stdModRegulation} #
+                (^{formatTimeW SelFormatDate stdModRegVersion}): #
+                #{CI.original stdModModule}
+              $of StudyModuleFreeModule{..}
+                #{CI.original stdModFreeModule}
+
   <dt .deflist__dt>_{MsgTableCourseSchool}
   <dd .deflist__dd>
     #{schoolName}