fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

feat(schedule-opts): enhance course schedule opt messages

Browse Source
This commit is contained in:
Sarah Vaupel 2020-11-09 11:30:14 +01:00
parent 716f31d925
commit 2ceced4b64
3 changed files with 25 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
messages/uniworx/de-de-formal.msg
View File

@ -152,6 +152,17 @@ ScheduleOptDeleteSuccess: Terminabonnement erfolgreich zurückgesetzt
ScheduleOptError: Termin konnte nicht (de)abonniert werden
ScheduleOptDeleteError: Terminabonnement konnte nicht zurückgesetzt werden
CourseScheduleOptIn: Kurs abonnieren
CourseScheduleOptOut: Kurs deabonnieren
CourseScheduleOptDelete: Auf Standard zurücksetzen
CourseScheduleOptInSuccess: Kurs erfolgreich abonniert
CourseScheduleOptOutSuccess: Kurs erfolgreich deabonniert
CourseScheduleOptDeleteSuccess: Kursabonnement erfolgreich zurückgesetzt
CourseScheduleOptError: Kurs konnte nicht (de)abonniert werden
CourseScheduleOptDeleteError: Kursabonnement konnte nicht zurückgesetzt werden
ScheduleReset: Standard
ScheduleTableHeadTime: Zeit

11
messages/uniworx/en-eu.msg
View File

@ -153,6 +153,17 @@ ScheduleOptDeleteSuccess: Successfully reset occurrence subscription
ScheduleOptError: An error occurred while subscribing to / unsubscribing from occurrence
ScheduleOptDeleteError: An error occurred while resetting occurrence subscription
CourseScheduleOptIn: Subscribe to course
CourseScheduleOptOut: Unsubscribe from course
CourseScheduleOptDelete: Reset to default
CourseScheduleOptInSuccess: Successfully subscribed to course
CourseScheduleOptOutSuccess: Successfully unsubscribed from course
CourseScheduleOptDeleteSuccess: Successfully reset course subscription
CourseScheduleOptError: An error occurred while subscribing to / unsubscribing from course
CourseScheduleOptDeleteError: An error occurred while resetting course subscription
ScheduleReset: Default
ScheduleTableHeadTime: Time

6
src/Handler/Course/Schedule.hs
View File

@ -23,8 +23,8 @@ postCScheduleOptSetR tid ssh csh opt = do
return $ Just scheduleOpt
case mResult of
Just (Entity _ CourseScheduleOpt{..}) -> addMessageI Success $ bool MsgScheduleOptOutSuccess MsgScheduleOptInSuccess courseScheduleOptOpt
Nothing -> addMessageI Error MsgScheduleOptError
Just (Entity _ CourseScheduleOpt{..}) -> addMessageI Success $ bool MsgCourseScheduleOptOutSuccess MsgCourseScheduleOptInSuccess courseScheduleOptOpt
Nothing -> addMessageI Error MsgCourseScheduleOptError
redirect $ CourseR tid ssh csh CShowR
@ -37,5 +37,5 @@ postCScheduleOptDelR tid ssh csh = do
cid <- MaybeT . getKeyBy $ TermSchoolCourseShort tid ssh csh
lift . deleteBy $ UniqueCourseScheduleOpt cid uid
addMessageI Success MsgScheduleOptDeleteSuccess
addMessageI Success MsgCourseScheduleOptDeleteSuccess
redirect $ CourseR tid ssh csh CShowR