diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg index 115b31552..4fb54c59b 100644 --- a/messages/uniworx/de.msg +++ b/messages/uniworx/de.msg @@ -870,8 +870,8 @@ CourseLecInviteExplanation: Sie wurden eingeladen, Verwalter für einen Kurs zu CourseParticipantInviteHeading courseName@Text: Einladung zum Kursteilnahmer für #{courseName} CourseParticipantInviteExplanation: Sie wurden eingeladen, an einem Kurs teilzunehmen. -CourseParticipantEnlistDirectly: bekannte Teilnehmer sofort als Teilnehmer eintragen -CourseParticipantInviteField: einzuladende EMail Adressen +CourseParticipantEnlistDirectly: Bekannte Teilnehmer sofort als Teilnehmer eintragen +CourseParticipantInviteField: Einzuladende EMail Adressen CourseParticipantInvitationAccepted courseName@Text: Sie wurden als Teilnehmer für #{courseName} eingetragen diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs index c294b0b07..0c8b386c5 100644 --- a/src/Handler/Corrections.hs +++ b/src/Handler/Corrections.hs @@ -534,7 +534,7 @@ postCorrectionsR = do & restrictFilter (\name _ -> name /= "corrector") -- We need to be careful to restrict allowed sorting/filter to not expose sensitive information & restrictSorting (\name _ -> name /= "corrector") & defaultSorting [SortAscBy "israted", SortDescBy "ratingTime", SortAscBy "assignedtime" ] - & defaultFilter (Map.fromList [("israted",["no","Nein","No","False","Just False"]), ("sheet-search",["foo"])]) -- this does not work. "no" is the form value that we wanted + & defaultFilter (Map.fromList [("israted",["no"]), ("sheet-search",["foo"])]) -- this does not work. "no" is the form value that we wanted correctionsR whereClause colonnade filterUI psValidator $ Map.fromList [ downloadAction ] diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs index 594e307ce..a274dbd92 100644 --- a/src/Handler/Course.hs +++ b/src/Handler/Course.hs @@ -1511,7 +1511,7 @@ postCAddUserR tid ssh csh = do ((usersToEnlist,formWgt),formEncoding) <- runFormPost . renderWForm FormStandard $ do enlist <- wreq checkBoxField (fslI MsgCourseParticipantEnlistDirectly) (Just False) wreq (multiUserField (maybe True not $ formResultToMaybe enlist) Nothing) - (fslI MsgCourseParticipantInviteField) Nothing + (fslI MsgCourseParticipantInviteField & setTooltip MsgMultiEmailFieldTip) Nothing formResultModal usersToEnlist (CourseR tid ssh csh CUsersR) $ processUsers cid