fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fast Bugfix: course Register from

Browse Source
This commit is contained in:
SJost 2019-01-30 19:27:10 +01:00
parent 73a19863b1
commit 0bde8d5888
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
messages/uniworx/de.msg
View File

@ -70,7 +70,7 @@ CourseSemester: Semester
CourseSchool: Institut CourseSchool: Institut
CourseSchoolShort: Fach CourseSchoolShort: Fach
CourseSecretTip: Anmeldung zum Kurs erfordert Eingabe des Passworts, sofern gesetzt 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 CourseRegisterToTip: Anmeldung darf auch ohne Begrenzung möglich sein
CourseDeregisterUntilTip: Abmeldung darf auch ohne Begrenzung möglich sein CourseDeregisterUntilTip: Abmeldung darf auch ohne Begrenzung möglich sein
CourseFilterSearch: Volltext-Suche CourseFilterSearch: Volltext-Suche

4
src/Foundation.hs
View File

@ -473,7 +473,7 @@ tagAccessPredicate AuthTime = APDB $ \route _ -> case route of
case mbc of case mbc of
(Just (Entity _ Course{courseRegisterFrom, courseRegisterTo})) (Just (Entity _ Course{courseRegisterFrom, courseRegisterTo}))
| not registered | not registered
, courseRegisterFrom <= nBot cTime , NTop courseRegisterFrom <= cTime -- Nothing => always False!
, NTop courseRegisterTo >= cTime -> return Authorized , NTop courseRegisterTo >= cTime -> return Authorized
(Just (Entity _ Course{courseDeregisterUntil})) (Just (Entity _ Course{courseDeregisterUntil}))
| registered | registered
@ -1459,7 +1459,7 @@ pageActions (CSubmissionR tid ssh csh shn cid SubShowR) =
, MenuItem , MenuItem
{ menuItemType = PageActionSecondary { menuItemType = PageActionSecondary
, menuItemLabel = MsgMenuSubmissionDelete , menuItemLabel = MsgMenuSubmissionDelete
, menuItemIcon = Nothing , menuItemIcon = Just "trash"
, menuItemRoute = SomeRoute $ CSubmissionR tid ssh csh shn cid SubDelR , menuItemRoute = SomeRoute $ CSubmissionR tid ssh csh shn cid SubDelR
, menuItemModal = False , menuItemModal = False
, menuItemAccessCallback' = return True , menuItemAccessCallback' = return True