diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs index 71c7c54cf..eeb179e33 100644 --- a/src/Handler/Course.hs +++ b/src/Handler/Course.hs @@ -25,10 +25,9 @@ getCourseListR = redirect TermShowR getCourseListTermR :: TermIdentifier -> Handler Html getCourseListTermR tidini = do - (term,courses) <- runDB $ do - term <- get $ TermKey tidini - courses <- selectList [CourseTermId ==. TermKey tidini] [Asc CourseShorthand] - return (term, courses) + (term,courses) <- runDB $ (,) + <$> get (TermKey tidini) + <*> selectList [CourseTermId ==. TermKey tidini] [Asc CourseShorthand] when (isNothing term) $ do setMessage [shamlet| Semester #{termToText tidini} nicht gefunden. |] redirect TermShowR @@ -57,7 +56,12 @@ getCourseListTermR tidini = do getCourseShowR :: TermIdentifier -> Text -> Handler Html getCourseShowR tid csh = do - courseEnt <- runDB $ getBy404 $ CourseTermShort (TermKey tid) csh + (courseEnt,(schoolMB,participants)) <- runDB $ do + courseEnt@(Entity cid course) <- getBy404 $ CourseTermShort (TermKey tid) csh + dependent <- (,) + <$> get (courseSchoolId course) + <*> count [CourseParticipantCourseId ==. cid] + return $ (courseEnt,dependent) let course = entityVal courseEnt defaultLayout $ do setTitle $ [shamlet| #{termToText tid} - #{csh}|] diff --git a/templates/course.hamlet b/templates/course.hamlet index d4e2612f7..8b2073aa2 100644 --- a/templates/course.hamlet +++ b/templates/course.hamlet @@ -3,37 +3,27 @@
#{descr} - - -
- You can also use this scaffolded site to explore some concepts, and best practices. - - -