diff --git a/messages/uniworx/de-de-formal.msg b/messages/uniworx/de-de-formal.msg index 81f167a74..13d8acbbc 100644 --- a/messages/uniworx/de-de-formal.msg +++ b/messages/uniworx/de-de-formal.msg @@ -1435,8 +1435,6 @@ TutorialRoomPlaceholder: Raum TutorialTutors: Tutoren TutorialTutorAlreadyAdded: Ein Tutor mit dieser E-Mail ist bereits für dieses Tutorium eingetragen -TutorialActionsHead: Aktionen - OccurrenceNoneScheduled: (Noch) keine planmäßigen Termine OccurrenceNoneExceptions: (Noch) keine Termin-Ausnahmen @@ -1663,6 +1661,8 @@ ExamUserMarkedSynchronised n@Int: #{n} #{pluralDE n "Prüfungsleistung" "Prüfun ExamOfficeExamUsersHeading: Prüfungsleistungen +ActionsHead: Aktionen + CsvFile: CSV-Datei CsvImport: CSV-Import CsvExport: CSV-Export diff --git a/messages/uniworx/en-eu.msg b/messages/uniworx/en-eu.msg index 0651e5591..b49b918f8 100644 --- a/messages/uniworx/en-eu.msg +++ b/messages/uniworx/en-eu.msg @@ -1433,8 +1433,6 @@ TutorialRoomPlaceholder: Room TutorialTutors: Tutors TutorialTutorAlreadyAdded: An user with this email address is already registered as tutor -TutorialActionsHead: Actions - OccurrenceNoneScheduled: No regular occurrences (yet) OccurrenceNoneExceptions: No exceptions (yet) @@ -1661,6 +1659,8 @@ ExamUserMarkedSynchronised n: Successfully marked #{n} #{pluralEN n "exam achiev ExamOfficeExamUsersHeading: Exam achievements +ActionsHead: Actions + CsvFile: CSV file CsvImport: CSV import CsvExport: CSV export diff --git a/src/Handler/Course/Show.hs b/src/Handler/Course/Show.hs index fa0951c5f..278df79e8 100644 --- a/src/Handler/Course/Show.hs +++ b/src/Handler/Course/Show.hs @@ -153,7 +153,7 @@ getCShowR tid ssh csh = do E.where_ $ participant E.^. TutorialParticipantTutorial E.==. E.val tutid in return $ E.val tutorialCapacity' E.-. numParticipants return . toWidget $ tshow freeCapacity - , sortable Nothing (mempty & cellAttrs <>~ pure ("uw-hide-columns--hider-label", mr MsgTutorialActionsHead)) $ \DBRow{ dbrOutput = Entity tutId Tutorial{..} } -> sqlCell $ do + , sortable Nothing (mempty & cellAttrs <>~ pure ("uw-hide-columns--hider-label", mr MsgActionsHead)) $ \DBRow{ dbrOutput = Entity tutId Tutorial{..} } -> sqlCell $ do mayRegister <- (== Authorized) <$> evalAccessDB (CTutorialR tid ssh csh tutorialName TRegisterR) True isRegistered <- case mbAid of Nothing -> return False diff --git a/src/Handler/Tutorial/List.hs b/src/Handler/Tutorial/List.hs index dc936bd63..67094db9f 100644 --- a/src/Handler/Tutorial/List.hs +++ b/src/Handler/Tutorial/List.hs @@ -52,7 +52,7 @@ getCTutorialListR tid ssh csh = do , sortable (Just "register-from") (i18nCell MsgTutorialRegisterFrom) $ \DBRow{ dbrOutput = (Entity _ Tutorial{..}, _) } -> maybeDateTimeCell tutorialRegisterFrom , sortable (Just "register-to") (i18nCell MsgTutorialRegisterTo) $ \DBRow{ dbrOutput = (Entity _ Tutorial{..}, _) } -> maybeDateTimeCell tutorialRegisterTo , sortable (Just "deregister-until") (i18nCell MsgTutorialDeregisterUntil) $ \DBRow{ dbrOutput = (Entity _ Tutorial{..}, _) } -> maybeDateTimeCell tutorialDeregisterUntil - , sortable Nothing (mempty & cellAttrs <>~ pure ("uw-hide-columns--hider-label", mr MsgTutorialActionsHead)) $ \DBRow{ dbrOutput = (Entity _ Tutorial{..}, _) } -> cell $ do + , sortable Nothing (mempty & cellAttrs <>~ pure ("uw-hide-columns--hider-label", mr MsgActionsHead)) $ \DBRow{ dbrOutput = (Entity _ Tutorial{..}, _) } -> cell $ do linkButton mempty [whamlet|_{MsgTutorialEdit}|] [BCIsButton] . SomeRoute $ CTutorialR tid ssh csh tutorialName TEditR linkButton mempty [whamlet|_{MsgTutorialDelete}|] [BCIsButton, BCDanger] . SomeRoute $ CTutorialR tid ssh csh tutorialName TDeleteR ] diff --git a/src/Handler/Users.hs b/src/Handler/Users.hs index a803af4df..2a580d03f 100644 --- a/src/Handler/Users.hs +++ b/src/Handler/Users.hs @@ -71,6 +71,7 @@ instance Button UniWorX AllUsersAction where getUsersR, postUsersR :: Handler Html getUsersR = postUsersR postUsersR = do + MsgRenderer mr <- getMsgRenderer let dbtColonnade = mconcat $ [ dbRow @@ -100,7 +101,7 @@ postUsersR = do $forall (E.Value sh) <- schools
  • #{sh} |] - , sortable Nothing mempty $ \inp@DBRow{ dbrOutput = Entity uid _ } -> FormCell + , sortable Nothing (mempty & cellAttrs <>~ pure ("hide-columns--hider-label", mr MsgActionsHead)) $ \inp@DBRow{ dbrOutput = Entity uid _ } -> FormCell { formCellAttrs = [] , formCellLens = id , formCellContents = do