diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg index c7c7f8574..be30c01cf 100644 --- a/messages/uniworx/de.msg +++ b/messages/uniworx/de.msg @@ -70,7 +70,7 @@ CourseSemester: Semester CourseSchool: Institut CourseSchoolShort: Fach CourseSecretTip: Anmeldung zum Kurs erfordert Eingabe des Passworts, sofern gesetzt -CourseRegisterFromTip: Ohne Datum ist keine eigenständige Anmeldung von Studierenden möglich +CourseRegisterFromTip: Ohne Datum ist KEINE eigenständige Anmeldung von Studierenden möglich CourseRegisterToTip: Anmeldung darf auch ohne Begrenzung möglich sein CourseDeregisterUntilTip: Abmeldung darf auch ohne Begrenzung möglich sein CourseFilterSearch: Volltext-Suche diff --git a/src/Foundation.hs b/src/Foundation.hs index 9ac8fb834..c77329d52 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -473,7 +473,7 @@ tagAccessPredicate AuthTime = APDB $ \route _ -> case route of case mbc of (Just (Entity _ Course{courseRegisterFrom, courseRegisterTo})) | not registered - , courseRegisterFrom <= nBot cTime + , NTop courseRegisterFrom <= cTime -- Nothing => always False! , NTop courseRegisterTo >= cTime -> return Authorized (Just (Entity _ Course{courseDeregisterUntil})) | registered @@ -1459,7 +1459,7 @@ pageActions (CSubmissionR tid ssh csh shn cid SubShowR) = , MenuItem { menuItemType = PageActionSecondary , menuItemLabel = MsgMenuSubmissionDelete - , menuItemIcon = Nothing + , menuItemIcon = Just "trash" , menuItemRoute = SomeRoute $ CSubmissionR tid ssh csh shn cid SubDelR , menuItemModal = False , menuItemAccessCallback' = return True