diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg index da8e563fa..93ab4b266 100644 --- a/messages/uniworx/de.msg +++ b/messages/uniworx/de.msg @@ -65,8 +65,8 @@ CourseCapacity: Kapazität CourseCapacityTip: Anzahl erlaubter Kursanmeldungen, leer lassen für unbeschränkte Kurskapazität CourseNoCapacity: In diesem Kurs sind keine Plätze mehr frei. CourseNotEmpty: In diesem Kurs sind momentan Teilnehmer angemeldet. -CourseRegisterOk: Sie wurden angemeldet -CourseDeregisterOk: Sie wurden abgemeldet +CourseRegisterOk: Anmeldung erfolgreich +CourseDeregisterOk: Erfolgreich abgemeldet CourseStudyFeature: Assoziiertes Hauptfach CourseStudyFeatureTooltip: Korrekte Angabe kann Notenweiterleitungen beschleunigen CourseSecretWrong: Falsches Kennwort diff --git a/src/Handler/Admin.hs b/src/Handler/Admin.hs index 19b84adf3..4d53f5eed 100644 --- a/src/Handler/Admin.hs +++ b/src/Handler/Admin.hs @@ -305,7 +305,6 @@ postAdminFeaturesR = do unless (null infRedundant) . addMessageI Info . MsgRedundantCandidatesRemoved $ length infRedundant let newKeys = map (StudyTermsKey' . fst) infAccepted setSessionJson sessionKeyNewStudyTerms newKeys - -- addMessageI Error $ MsgPrintDebugForStupid $ tshow newKeys if | null infAccepted -> addMessageI Info MsgNoCandidatesInferred | otherwise @@ -324,7 +323,6 @@ postAdminFeaturesR = do _other -> runDB Candidates.conflicts newStudyTermKeys <- fromMaybe [] <$> lookupSessionJson sessionKeyNewStudyTerms - -- addMessageI Error $ MsgPrintDebugForStupid $ tshow newStudyTermKeys ( (degreeResult,degreeTable) , (studyTermsResult,studytermsTable) , ((), candidateTable)) <- runDB $ (,,) diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs index fd7ae019e..aa9e37fde 100644 --- a/src/Handler/Course.hs +++ b/src/Handler/Course.hs @@ -705,7 +705,7 @@ validateCourse CourseForm{..} = do uid <- liftHandlerT requireAuthId userAdmin <- liftHandlerT . runDB . getBy $ UniqueUserAdmin uid cfSchool -- FIXME: This /needs/ to be a call to `isAuthorized` on a route MsgRenderer mr <- getMsgRenderer - + return [ mr msg | (False, msg) <- [ @@ -852,8 +852,8 @@ makeCourseUserTable cid colChoices psValidator = , fltrUserMatriclenr queryUser , fltrUserNameEmail queryUser -- , ("course-user-degree", error "TODO") -- TODO - -- , ("course-user-field" , error "TODO") -- TODO - , ("course-user-semesternr", FilterColumn $ E.mkExactFilter $ queryFeaturesStudy >>> (E.?. StudyFeaturesSemester)) + -- , ("field" , FilterColumn $ queryFeaturesField error "TODO") -- TODO + , ("semesternr", FilterColumn $ E.mkExactFilter $ queryFeaturesStudy >>> (E.?. StudyFeaturesSemester)) -- , ("course-registration", error "TODO") -- TODO -- , ("course-user-note", error "TODO") -- TODO ]