added more dummies to fill-db

fill-db.hs

@@ -14,6 +14,7 @@ main :: IO ()
 main = db $ do
   now <- liftIO getCurrentTime
   let
+    summer2017 = TermIdentifier 2017 Summer
     winter2017 = TermIdentifier 2017 Winter
     summer2018 = TermIdentifier 2018 Summer
   gkleen <- insert User
@@ -23,6 +24,29 @@ main = db $ do
     , userEmail  = "G.Kleen@campus.lmu.de"
     , userDisplayName = "Gregor Kleen"
     }
+  fhamann <- insert User
+    { userPlugin = "LDAP"
+    , userIdent  = "felix.hamann@campus.lmu.de"
+    , userMatrikelnummer = Nothing
+    , userEmail  = "felix.hamann@campus.lmu.de"
+    , userDisplayName = "Felix Hamann"
+    }
+  jost <- insert User
+    { userPlugin = "LDAP"
+    , userIdent  = "jost@tcs.ifi.lmu.de"
+    , userMatrikelnummer = Nothing
+    , userEmail  = "jost@tcs.ifi.lmu.de"
+    , userDisplayName = "Steffen Jost"
+    }
+  void . insert $ Term
+    { termName     = summer2017
+    , termStart    = fromGregorian 2017 04 09
+    , termEnd      = fromGregorian 2017 07 14
+    , termHolidays = []
+    , termLectureStart = fromGregorian 2017 04 09
+    , termLectureEnd   = fromGregorian 2018 07 14
+    , termActive       = False
+    }
   void . insert $ Term
     { termName     = winter2017
     , termStart    = fromGregorian 2017 10 16
@@ -45,9 +69,16 @@ main = db $ do
   mi <- insert $ School "Institut für Mathematik" "MI"
   void . insert $ UserAdmin gkleen ifi
   void . insert $ UserAdmin gkleen mi
+  void . insert $ UserAdmin fhamann ifi
+  void . insert $ UserAdmin jost ifi
+  void . insert $ UserAdmin jost mi
   void . insert $ UserLecturer gkleen ifi
+  void . insert $ UserLecturer fhamann ifi
+  void . insert $ UserLecturer jost ifi
   ifiBsc <- insert $ Degree "Bachelor Informatik" ifi
   ifiMsc <- insert $ Degree "Master Informatik" ifi
+  miBsc <- insert $ Degree "Bachelor Mathematik" mi
+  -- FFP
   ffp <- insert Course
     { courseName = "Fortgeschrittene Funktionale Programmierung"
     , courseDescription = Nothing
@@ -69,3 +100,99 @@ main = db $ do
   void . insert $ Lecturer gkleen ffp
   void . insert $ Corrector gkleen ffp (ByProportion 1)
   void . insert $ Sheet ffp "Blatt 1" Nothing NotGraded Nothing now now Nothing Nothing now now gkleen gkleen
+  -- EIP
+  eip <- insert Course
+    { courseName = "Einführung in die Programmierung"
+    , courseDescription = Nothing
+    , courseLinkExternal = Nothing
+    , courseShorthand = "eip"
+    , courseTermId = TermKey summer2017
+    , courseSchoolId = ifi
+    , courseCapacity = Just 20
+    , courseCreated = now
+    , courseChanged = now
+    , courseCreatedBy = fhamann
+    , courseChangedBy = fhamann
+    , courseHasRegistration = False
+    , courseRegisterFrom = Nothing
+    , courseRegisterTo = Nothing
+    }
+  void . insert $ DegreeCourse ifiBsc eip
+  void . insert $ DegreeCourse ifiMsc eip
+  void . insert $ Lecturer fhamann eip
+  -- interaction design
+  ixd <- insert Course
+    { courseName = "Interaction Design (User Experience Design I & II)"
+    , courseDescription = Nothing
+    , courseLinkExternal = Nothing
+    , courseShorthand = "ixd"
+    , courseTermId = TermKey summer2018
+    , courseSchoolId = ifi
+    , courseCapacity = Just 20
+    , courseCreated = now
+    , courseChanged = now
+    , courseCreatedBy = fhamann
+    , courseChangedBy = fhamann
+    , courseHasRegistration = True
+    , courseRegisterFrom = Just now
+    , courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now )
+    }
+  void . insert $ DegreeCourse ifiBsc ixd
+  void . insert $ Lecturer fhamann ixd
+  -- concept development
+  ux3 <- insert Course
+    { courseName = "Concept Development (User Experience Design III)"
+    , courseDescription = Nothing
+    , courseLinkExternal = Nothing
+    , courseShorthand = "ux3"
+    , courseTermId = TermKey winter2017
+    , courseSchoolId = ifi
+    , courseCapacity = Just 30
+    , courseCreated = now
+    , courseChanged = now
+    , courseCreatedBy = fhamann
+    , courseChangedBy = fhamann
+    , courseHasRegistration = False
+    , courseRegisterFrom = Nothing
+    , courseRegisterTo = Nothing
+    }
+  void . insert $ DegreeCourse ifiBsc ux3
+  void . insert $ Lecturer fhamann ux3
+  -- promo
+  pmo <- insert Course
+    { courseName = "Programmierung und Modellierung"
+    , courseDescription = Nothing
+    , courseLinkExternal = Nothing
+    , courseShorthand = "pmo"
+    , courseTermId = TermKey summer2017
+    , courseSchoolId = ifi
+    , courseCapacity = Just 50
+    , courseCreated = now
+    , courseChanged = now
+    , courseCreatedBy = jost
+    , courseChangedBy = jost
+    , courseHasRegistration = False
+    , courseRegisterFrom = Nothing
+    , courseRegisterTo = Nothing
+    }
+  void . insert $ DegreeCourse ifiBsc pmo
+  void . insert $ Lecturer jost pmo
+  -- datenbanksysteme
+  dbs <- insert Course
+    { courseName = "Datenbanksysteme"
+    , courseDescription = Nothing
+    , courseLinkExternal = Nothing
+    , courseShorthand = "dbs"
+    , courseTermId = TermKey summer2018
+    , courseSchoolId = ifi
+    , courseCapacity = Just 50
+    , courseCreated = now
+    , courseChanged = now
+    , courseCreatedBy = jost
+    , courseChangedBy = jost
+    , courseHasRegistration = False
+    , courseRegisterFrom = Nothing
+    , courseRegisterTo = Nothing
+    }
+  void . insert $ DegreeCourse ifiBsc dbs
+  void . insert $ Lecturer jost dbs