diff --git a/messages/uniworx/de.msg b/messages/uniworx/de.msg index a6fce2d21..fdc6a6a8c 100644 --- a/messages/uniworx/de.msg +++ b/messages/uniworx/de.msg @@ -150,7 +150,7 @@ CourseAllocationMinCapacity: Minimale Teilnehmeranzahl CourseAllocationMinCapacityTip: Wenn der Veranstaltung bei der Zentralanmeldung weniger als diese Anzahl von Teilnehmern zugeteilt würden, werden diese stattdessen auf andere Kurse umverteilt CourseAllocationMinCapacityMustBeNonNegative: Minimale Teilnehmeranzahl darf nicht negativ sein CourseAllocationInstructions: Anweisungen zur Bewerbung -CourseAllocationInstructionsTip: Wird den Studierenden angezeigt, wenn sie diese Veranstaltung in ihre Präferenzliste aufnehmen +CourseAllocationInstructionsTip: Wird den Studierenden angezeigt, wenn diese sich für Ihre Veranstaltung bewerben CourseAllocationApplicationTemplate: Bewerbungsvorlagen CourseAllocationApplicationText: Text-Bewerbungen CourseAllocationApplicationTextTip: Sollen die Studierenden Bewerbungen (ggf. zusätzlich zu abgegebenen Dateien) als unformatierten Text einreichen? @@ -1209,7 +1209,7 @@ ExamBonusMaxPointsNonPositive: Maximaler Klausurbonus muss positiv und größer ExamBonusOnlyPassed: Bonus nur nach Bestehen anrechnen ExamOccurrenceRule: Automatische Termin- bzw. Raumzuteilung -ExamOccurrenceRuleParticipant: Termin- bzw. Raumzuteilung +ExamOccurrenceRuleParticipant: Termin- bzw. Raumzuteilungsverfahren ExamRoomManual': Keine automatische Zuteilung ExamRoomSurname': Nach Nachname ExamRoomMatriculation': Nach Matrikelnummer @@ -1332,7 +1332,7 @@ Action: Aktion DBCsvDuplicateKey: Zwei Zeilen der CSV-Dateien referenzieren den selben internen Datensatz und können daher nicht verarbeitet werden. DBCsvDuplicateKeyTip: Entfernen Sie eine der unten aufgeführten Zeilen aus Ihren CSV-Dateien und versuchen Sie es erneut. DBCsvKeyException: Für eine Zeile der CSV-Dateien konnte nicht festgestellt werden, ob sie zu einem bestehenden internen Datensatz korrespondieren. -DBCsvException: Bei der Berechnung der auszuführenden Aktionen für einen Datensatz ist ein Fehler aufgetreten. +DBCsvException: Bei der Berechnung der auszuführenden Aktionen für einen Datensatz ist ein Fehler aufgetreten. ExamUserCsvCourseRegister: Benutzer zum Kurs und zur Klausur anmelden ExamUserCsvRegister: Kursteilnehmer zur Klausur anmelden diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs index 881ad8eac..87d36f53a 100644 --- a/src/Handler/Home.hs +++ b/src/Handler/Home.hs @@ -206,10 +206,13 @@ homeUpcomingExams uid = do E.where_ $ E.exists $ E.from $ \participant -> E.where_ $ participant E.^. CourseParticipantUser E.==. E.val uid E.&&. participant E.^. CourseParticipantCourse E.==. course E.^. CourseId - E.where_ $ E.isJust (exam E.^. ExamRegisterFrom) - E.&&. exam E.^. ExamRegisterFrom E.<=. E.just (E.val fortnight) - E.where_ $ E.isJust (exam E.^. ExamEnd) - E.&&. exam E.^. ExamEnd E.>=. E.just (E.val now) + let regFromJustFortnight = + E.isJust (exam E.^. ExamRegisterFrom) + E.&&. exam E.^. ExamRegisterFrom E.<=. E.just (E.val fortnight) + regToJustNow = + E.isJust (exam E.^. ExamEnd) + E.&&. exam E.^. ExamEnd E.>=. E.just (E.val now) + E.where_ $ regFromJustFortnight E.&&. regToJustNow return (course, exam) dbtRowKey = queryExam >>> (E.^. ExamId) dbtProj r@DBRow{ dbrOutput } = do diff --git a/templates/exam-show.hamlet b/templates/exam-show.hamlet index 9fa543452..d14dbcf52 100644 --- a/templates/exam-show.hamlet +++ b/templates/exam-show.hamlet @@ -80,7 +80,7 @@ $maybe desc <- examDescription $if not occurrenceAssignmentsVisible \ ^{isVisible False}
- $# TODO + _{classifyExamOccurrenceRule examOccurrenceRule} $maybe registerWdgt <- registerWidget
_{MsgExamRegistration}
^{registerWdgt} @@ -99,21 +99,25 @@ $if not (null occurrences) $if occurrenceNamesShown _{MsgExamRoomName} - ^{isVisible False} - _{MsgExamRoom} - $if not examTimes - _{MsgExamRoomTime} - _{MsgExamRoomDescription} + \ ^{isVisible False} $if occurrenceAssignmentsShown _{MsgExamRoomRegistered} $if not occurrenceAssignmentsVisible \ ^{isVisible False} + _{MsgExamRoom} + $if not examTimes + _{MsgExamRoomTime} + _{MsgExamRoomDescription} $forall (Entity _occId ExamOccurrence{examOccurrenceName, examOccurrenceRoom, examOccurrenceStart, examOccurrenceEnd, examOccurrenceDescription}, registered) <- occurrences $if occurrenceNamesShown #{examOccurrenceName} + $if occurrenceAssignmentsShown + + $if registered + #{iconOK} #{examOccurrenceRoom} $if not examTimes @@ -121,10 +125,6 @@ $if not (null occurrences) $maybe desc <- examOccurrenceDescription #{desc} - $if occurrenceAssignmentsShown - - $if registered - #{iconOK} $if gradingShown && not (null parts)