79d4ae20ee
Support course applications BREAKING CHANGE: auditing for course registrations and deregistrations, more tightly couple exam results, exam registration, and course registration (delete them together now)
30 lines
1.1 KiB
Haskell
30 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
|
|
import Handler.Course.Application 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.|]
|