minor

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

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 $ (,,)

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
         ]