29 lines
1.1 KiB
Haskell
29 lines
1.1 KiB
Haskell
module Handler.Course
|
|
( module Handler.Course
|
|
) where
|
|
|
|
import Import
|
|
|
|
|
|
import Handler.Course.Communication as Handler.Course
|
|
import Handler.Course.Delete as Handler.Course
|
|
import Handler.Course.Edit as Handler.Course
|
|
import Handler.Course.LecturerInvite as Handler.Course
|
|
import Handler.Course.List as Handler.Course
|
|
import Handler.Course.ParticipantInvite as Handler.Course
|
|
import Handler.Course.Register as Handler.Course
|
|
import Handler.Course.Show as Handler.Course
|
|
import Handler.Course.User as Handler.Course
|
|
import Handler.Course.Users as Handler.Course
|
|
|
|
|
|
getCHiWisR :: TermId -> SchoolId -> CourseShorthand -> Handler Html
|
|
getCHiWisR = error "CHiWisR: Not implemented"
|
|
|
|
getCNotesR, postCNotesR :: TermId -> SchoolId -> CourseShorthand -> Handler Html
|
|
-- NOTE: The route getNotesR is abused for correctorORlecturer access rights!
|
|
-- PROBLEM: Correctors usually don't know Participants by name (anonymous), maybe notes are not shared?
|
|
-- If they are shared, adjust MsgCourseUserNoteTooltip
|
|
getCNotesR = postCNotesR
|
|
postCNotesR _ _ _ = defaultLayout [whamlet|You have corrector access to this course.|]
|