From f07eb3dcc33fffb823fb490e36576a202328a0f4 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 31 Jul 2019 09:58:02 +0200 Subject: [PATCH] feat(exams): better explain "enlist directly" --- messages/uniworx/de.msg | 1 + src/Handler/Exam/AddUser.hs | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg index e79b4b3e2..bc00b4d24 100644 --- a/messages/uniworx/de.msg +++ b/messages/uniworx/de.msg @@ -1110,6 +1110,7 @@ ExamRegistrationRegisteredWithoutField n@Int: #{n} Teilnehmer #{pluralDE n "wurd ExamRegistrationParticipantsRegistered n@Int: #{n} Teilnehmer #{pluralDE n "wurde" "wurden"} zur Klausur angemeldet ExamRegistrationInviteDeadline: Einladung nur gültig bis ExamRegistrationEnlistDirectly: Bekannte Nutzer sofort als Teilnehmer eintragen +ExamRegistrationEnlistDirectlyTip: Sollen, wenn manche der E-Mail Addressen bereits in Uni2work mit Nutzern assoziiert sind, jene Nutzer direkt zur Klausur hinzugefügt werden? Ansonsten werden Einladung an alle E-Mail Addressen (nicht nur unbekannte) versandt, die die Nutzer zunächst akzeptieren müssen um Klausurteilnehmer zu werden. ExamRegistrationRegisterCourse: Nutzer auch zum Kurs anmelden ExamRegistrationRegisterCourseTip: Nutzer, die keine Kursteilnehmer sind, werden sonst nicht zur Klausur angemeldet. ExamRegistrationInviteField: Einzuladende EMail Addressen diff --git a/src/Handler/Exam/AddUser.hs b/src/Handler/Exam/AddUser.hs index dc6e80202..f100a8d38 100644 --- a/src/Handler/Exam/AddUser.hs +++ b/src/Handler/Exam/AddUser.hs @@ -67,7 +67,7 @@ postEAddUserR tid ssh csh examn = do = tomorrowEndOfDay deadline <- wreq utcTimeField (fslI MsgExamRegistrationInviteDeadline) (Just defDeadline) - enlist <- wpopt checkBoxField (fslI MsgExamRegistrationEnlistDirectly) (Just False) + enlist <- wpopt checkBoxField (fslI MsgExamRegistrationEnlistDirectly & setTooltip MsgExamRegistrationEnlistDirectlyTip) (Just False) registerCourse <- wpopt checkBoxField (fslI MsgExamRegistrationRegisterCourse & setTooltip MsgExamRegistrationRegisterCourseTip) (Just False) occurrence <- wopt (examOccurrenceField eid) (fslI MsgExamOccurrence) Nothing users <- wreq (multiUserField (maybe True not $ formResultToMaybe enlist) Nothing)