diff --git a/templates/course/lecturerMassInput/add.hamlet b/templates/course/lecturerMassInput/add.hamlet
new file mode 100644
index 000000000..da5411bc4
--- /dev/null
+++ b/templates/course/lecturerMassInput/add.hamlet
@@ -0,0 +1,6 @@
+$newline never
+
+ #{csrf}
+ ^{fvInput addView}
+ |
+ ^{fvInput btn}
diff --git a/templates/course/lecturerMassInput/cellInvitation.hamlet b/templates/course/lecturerMassInput/cellInvitation.hamlet
new file mode 100644
index 000000000..523d9577b
--- /dev/null
+++ b/templates/course/lecturerMassInput/cellInvitation.hamlet
@@ -0,0 +1,12 @@
+ $newline never
+ |
+ #{csrf}
+
+ #{lEmail}
+ |
+
+
+
+ _{MsgEmailInvitationWarning}
+
+ ^{fvInput lrwView}
diff --git a/templates/course/lecturerMassInput/cellKnown.hamlet b/templates/course/lecturerMassInput/cellKnown.hamlet
new file mode 100644
index 000000000..0b55c7902
--- /dev/null
+++ b/templates/course/lecturerMassInput/cellKnown.hamlet
@@ -0,0 +1,6 @@
+$newline never
+ |
+ #{csrf}
+ ^{nameEmailWidget userEmail userDisplayName userSurname} #
+ |
+ ^{fvInput lrwView}
diff --git a/templates/course/lecturerMassInput/layout.hamlet b/templates/course/lecturerMassInput/layout.hamlet
new file mode 100644
index 000000000..65352dd95
--- /dev/null
+++ b/templates/course/lecturerMassInput/layout.hamlet
@@ -0,0 +1,11 @@
+$newline never
+
+
+ $forall coord <- review liveCoords lLength
+
+ ^{cellWdgts ! coord}
+ |
+ ^{fvInput (delButtons ! coord)}
+ |
+
+ ^{addWdgts ! (0, 0)}
diff --git a/templates/default-layout-wrapper.hamlet b/templates/default-layout-wrapper.hamlet
index c293b607a..9626ad816 100644
--- a/templates/default-layout-wrapper.hamlet
+++ b/templates/default-layout-wrapper.hamlet
@@ -1,20 +1,28 @@
$newline never
\
-\
-\
-\
-\
-
+
- #{pageTitle pc}
<meta name="viewport" content="width=device-width,initial-scale=1">
+ $case currentTheme
+ $of ThemeDefault
+ <meta name="theme-color" content="#0a9342">
+ $of ThemeLavender
+ <meta name="theme-color" content="#584c9c">
+ $of ThemeNeutralBlue
+ <meta name="theme-color" content="#3e606f">
+ $of ThemeAberdeenReds
+ <meta name="theme-color" content="#820333">
+ $of ThemeMossGreen
+ <meta name="theme-color" content="#5c996b">
+ $of ThemeSkyLove
+ <meta name="theme-color" content="#87abe5">
+
+ $# title-tag is required even if it is empty
+ <title>#{pageTitle pc}
+
^{pageHead pc}
- <body .no-js .theme--#{toPathPiece currentTheme} :isAuth:.logged-in :isModal:.modal>
- <!-- removes no-js class from body if client supports javascript -->
- <script>
- document.body.classList.remove('no-js');
-
+ <body .theme--#{toPathPiece currentTheme} :isAuth:.logged-in>
^{pageBody pc}
diff --git a/templates/default-layout.hamlet b/templates/default-layout.hamlet
index f43282fb0..21ac81042 100644
--- a/templates/default-layout.hamlet
+++ b/templates/default-layout.hamlet
@@ -1,3 +1,4 @@
+$newline never
$if not isModal
<!-- secondary navigation at the side -->
^{asidenav}
@@ -6,7 +7,7 @@ $if not isModal
<div .main>
- <div .main__content>
+ <div .main__content uw-poc>
$if not isModal
<!-- breadcrumbs -->
@@ -15,16 +16,15 @@ $if not isModal
<div .main__content-body>
- <section>
- $maybe headline <- contentHeadline
- <h1 .headline-one>
- <!-- $maybe back <- lastMaybe parents
- <a .breadcrumbs__link href="@{fst back}">#{snd back} -->
- ^{headline}
+ $maybe headline <- contentHeadline
+ <h1 .headline-one>
+ <!-- $maybe back <- lastMaybe parents
+ <a .breadcrumbs__link href="@{fst back}">#{snd back} -->
+ ^{headline}
- $if not isModal && hasPageActions
- <!-- page actions -->
- ^{pageaction}
+ $if not isModal && hasPageActions
+ <!-- page actions -->
+ ^{pageaction}
<!-- actual content -->
^{widget}
diff --git a/templates/default-layout.julius b/templates/default-layout.julius
index d83daccd0..d9260db0d 100644
--- a/templates/default-layout.julius
+++ b/templates/default-layout.julius
@@ -1,50 +1,5 @@
-function setupDatepicker(wrapper) {
- "use strict";
-
- var config = {
- dtLocal: {
- enableTime: true,
- altInput: true,
- altFormat: "j. F Y, H:i", // maybe interpolate these formats for locale
- dateFormat: "Y-m-dTH:i",
- time_24hr: true
- },
- d: {
- altFormat: "j. F Y",
- dateFormat: "Y-m-d",
- altInput: true
- },
- t: {
- enableTime: true,
- noCalendar: true,
- altFormat: "H:i",
- dateFormat: "H:i",
- altInput: true,
- time_24hr: true
- }
- };
-
- Array.from(wrapper.querySelectorAll('input[type="date"]')).forEach(function(el) {
- flatpickr(el, config.d);
- });
- Array.from(wrapper.querySelectorAll('input[type="time"]')).forEach(function(el) {
- flatpickr(el, config.t);
- });
- Array.from(wrapper.querySelectorAll('input[type="datetime-local"]')).forEach(function(el) {
- flatpickr(el, config.dtLocal);
- });
+if (window.App) {
+ window.App.i18n.addMany(#{frontendI18n});
+} else {
+ throw new Error('I18n JavaScript service is missing!');
}
-
-// this global I18N object will be picked up automatically by the setup util
-window.I18N = {
- filesSelected: 'Dateien ausgewählt', // TODO: interpolate these to be translated
- selectFile: 'Datei auswählen',
- selectFiles: 'Datei(en) auswählen',
- asyncFormFailure: 'Da ist etwas schief gelaufen, das tut uns Leid.<br>Falls das erneut passiert schicke uns gerne eine kurze Beschreibung dieses Ereignisses über das Hilfe-Widget rechts oben.<br><br>Vielen Dank für deine Hilfe',
-};
-
-document.addEventListener('DOMContentLoaded', function() {
- window.utils.setup('flatpickr', document.body, { setupFunction: setupDatepicker });
- window.utils.setup('showHide', document.body);
- window.utils.setup('inputs', document.body);
-});
diff --git a/templates/default-layout.lucius b/templates/default-layout.lucius
index 8a78a21fc..2fdc1b3de 100644
--- a/templates/default-layout.lucius
+++ b/templates/default-layout.lucius
@@ -189,27 +189,21 @@ h4 {
}
@media (min-width: 426px) {
- :not(.modal) {
- .main__content {
- margin-left: var(--asidenav-width-md, 50px);
- }
+ .main__content {
+ margin-left: var(--asidenav-width-md, 50px);
}
}
@media (min-width: 769px) {
- :not(.modal) {
- .main__content {
- margin-left: var(--asidenav-width-lg, 20%);
- margin-top: var(--header-height);
- }
+ .main__content {
+ margin-left: var(--asidenav-width-lg, 20%);
+ margin-top: var(--header-height);
}
}
@media (min-width: 1200px) {
- :not(.modal) {
- .main__content {
- margin-left: var(--asidenav-width-xl, 250px);
- }
+ .main__content {
+ margin-left: var(--asidenav-width-xl, 250px);
}
}
@@ -471,6 +465,17 @@ ul.list--inline {
}
}
+.list--space-separated li {
+ &::after {
+ content: ' ';
+ white-space: pre;
+ }
+
+ &:last-of-type::after {
+ content: none;
+ }
+}
+
/* DEFINITION LIST */
.deflist {
display: grid;
@@ -497,7 +502,7 @@ ul.list--inline {
@media (min-width: 768px) {
.deflist {
- grid-template-columns: max-content minmax(auto, max-content);
+ grid-template-columns: max-content minmax(0, max-content);
.deflist {
margin-top: -10px;
@@ -547,5 +552,88 @@ section {
}
.headline-one {
- margin-bottom: 15px;
+ margin-bottom: 10px;
+}
+
+/* Notification style used as requested by @hamanf in #298, but class was not globally available. Copied from dead-code. For @hamanf to clean up: */
+
+.notification {
+ position: relative;
+ border-radius: 3px;
+ padding: 10px 20px 20px;
+ margin: 40px 0;
+ color: var(--color-dark);
+ box-shadow: 0 0 4px 2px inset currentColor;
+ padding-left: 20%;
+ min-height: 100px;
+
+ &::before {
+ content: 'i';
+ position: absolute;
+ display: flex;
+ left: 0;
+ top: 0;
+ height: 100%;
+ width: 20%;
+ font-size: 100px;
+ align-items: center;
+ justify-content: center;
+ }
+}
+
+.form-group__input > .notification {
+ margin: 0;
+}
+
+@media (max-width: 768px) {
+
+ .notification {
+
+ padding-left: 40px;
+
+ &::before {
+ height: auto;
+ width: 45px;
+ font-size: 40px;
+ top: 15px;
+ }
+ }
+}
+
+.notification-danger {
+ color: #c51919 ;
+
+ &::before {
+ content: '!';
+ }
+}
+
+.notification__content {
+ color: var(--color-font);
+}
+
+
+
+
+/*
+ "Heated" element.
+ Set custom property "--hotness" to a value from 0 to 1 to turn
+ the element's background to a color on a gradient from green to red.
+
+ TBD:
+ - move to a proper place
+ - think about font-weight...
+
+ Example:
+ <div .heated style="--hotness: 0.2">Lorem ipsum
+*/
+
+.heated {
+ --hotness: 0;
+ --red: calc(var(--hotness) * 200);
+ --green: calc(255 - calc(var(--hotness) * 255));
+ --opacity: calc(calc(var(--red) / 600) + 0.1);
+
+ font-weight: var(--weight, 600);
+ background-color: rgba(var(--red), var(--green), 0, var(--opacity));
}
diff --git a/templates/deletedUser.hamlet b/templates/deletedUser.hamlet
index 373057fb9..19ec61702 100644
--- a/templates/deletedUser.hamlet
+++ b/templates/deletedUser.hamlet
@@ -6,13 +6,13 @@
<div .container>
#{mailtoHtml userEmail}
<div .container>
- #{display deletedSubmissions} Abgaben wurden unwiederruflich gelöscht.
+ #{deletedSubmissions} Abgaben wurden unwiederruflich gelöscht.
$if groupSubmissions > 0
<div .container>
- #{display groupSubmissions} Gruppenabgaben verbleiben in der Datenbank,
+ #{groupSubmissions} Gruppenabgaben verbleiben in der Datenbank,
aber die Zuordnung zum Benutzer wurden gelöscht.
Gruppenabgaben können dadurch zu Einzelabgaben werden,
welche dann vom letzten Benutzer gelöscht werden können.
$if deletedSubmissionGroups > 0
<div .container>
- #{display deletedSubmissionGroups} benannte Abgabengruppen wurden gelöscht, da diese dadurch leer wurden.
+ #{deletedSubmissionGroups} benannte Abgabengruppen wurden gelöscht, da diese dadurch leer wurden.
diff --git a/templates/exam-edit.hamlet b/templates/exam-edit.hamlet
new file mode 100644
index 000000000..e11d0926b
--- /dev/null
+++ b/templates/exam-edit.hamlet
@@ -0,0 +1,2 @@
+$newline never
+^{editExamForm}
diff --git a/templates/exam-list.hamlet b/templates/exam-list.hamlet
new file mode 100644
index 000000000..b39bba56d
--- /dev/null
+++ b/templates/exam-list.hamlet
@@ -0,0 +1,2 @@
+$newline never
+^{examTable}
diff --git a/templates/exam-new.hamlet b/templates/exam-new.hamlet
new file mode 100644
index 000000000..2b87f350b
--- /dev/null
+++ b/templates/exam-new.hamlet
@@ -0,0 +1,2 @@
+$newline never
+^{newExamForm}
diff --git a/templates/exam-show.cassius b/templates/exam-show.cassius
new file mode 100644
index 000000000..b0f051fcb
--- /dev/null
+++ b/templates/exam-show.cassius
@@ -0,0 +1,6 @@
+.occurrence--not-registered
+ text-decoration: strike-through;
+
+.result
+ padding-left: 2em;
+ font-size: 20px;
diff --git a/templates/exam-show.hamlet b/templates/exam-show.hamlet
new file mode 100644
index 000000000..3603fee38
--- /dev/null
+++ b/templates/exam-show.hamlet
@@ -0,0 +1,153 @@
+$newline never
+$maybe Entity _ ExamResult{examResultResult} <- result
+ $if gradingShown
+ <section>
+ <h2>
+ _{MsgExamResult}
+ $if gradingShown && not gradingVisible
+ \ ^{isVisible False}
+ <p .result>
+ $case examResultResult
+ $of ExamAttended grade
+ $if examShowGrades
+ _{grade}
+ $else
+ $if passingGrade grade
+ _{MsgExamPassed}
+ $else
+ _{MsgExamNotPassed}
+ $of ExamNoShow
+ _{MsgExamNoShow}
+ $of ExamVoided
+ _{MsgExamVoided}
+
+$maybe desc <- examDescription
+ <section>
+ #{desc}
+
+<section>
+ <dl .deflist>
+ $if not examVisible
+ <dt .deflist__dt>_{MsgExamVisibleFrom}
+ <dd .deflist__dd>
+ $maybe from <- examVisibleFrom
+ ^{formatTimeW SelFormatDateTime from}
+ $nothing
+ _{MsgNever}
+ \ ^{isVisible False}
+ $maybe regFrom <- examRegisterFrom
+ <dt .deflist__dt>_{MsgExamRegisterFrom}
+ <dd .deflist__dd>^{formatTimeW SelFormatDateTime regFrom}
+ $maybe regTo <- examRegisterTo
+ <dt .deflist__dt>_{MsgExamRegisterTo}
+ <dd .deflist__dd>^{formatTimeW SelFormatDateTime regTo}
+ $maybe deregUntil <- examDeregisterUntil
+ <dt .deflist__dt>_{MsgExamDeregisterUntil}
+ <dd .deflist__dd>^{formatTimeW SelFormatDateTime deregUntil}
+ <dt .deflist__dt>_{MsgExamPublishOccurrenceAssignmentsParticipant}
+ <dd .deflist__dd>^{formatTimeW SelFormatDateTime examPublishOccurrenceAssignments}
+ $if examTimes
+ <dt .deflist__dt>_{MsgExamTime}
+ <dd .deflist__dd>
+ ^{formatTimeW SelFormatDateTime examStart}
+ $maybe end <- examEnd
+ \ – ^{formatTimeW (bool SelFormatDateTime SelFormatTime ((on (==) utctDay) examStart end)) end}
+ $maybe finished <- examFinished
+ <dt .deflist__dt>_{MsgExamFinishedParticipant}
+ <dd .deflist__dd>^{formatTimeW SelFormatDateTime finished}
+ $if gradingShown
+ $if examGradingRule /= ExamGradingManual
+ <dt .deflist__dt>
+ _{MsgExamGradingRule}
+ $if not gradingVisible
+ \ ^{isVisible False}
+ <dd .deflist__dd>
+ $case examGradingRule
+ $of ExamGradingManual
+ _{MsgExamGradingManual'}
+ $of ExamGradingKey{..}
+ ^{gradingKeyW examGradingKey}
+ $if examBonusRule /= ExamNoBonus
+ <dt .deflist__dt>
+ _{MsgExamBonusRule}
+ $if not gradingVisible
+ \ ^{isVisible False}
+ <dd .deflist__dd>
+ ^{examBonusW examBonusRule}
+ $if occurrenceAssignmentsShown
+ <dt .deflist__dt>
+ _{MsgExamOccurrenceRuleParticipant}
+ $if not occurrenceAssignmentsVisible
+ \ ^{isVisible False}
+ <dd .deflist__dd>
+ $# TODO
+ $maybe registerWdgt <- registerWidget
+ <dt .deflist__dt>_{MsgExamRegistration}
+ <dd .deflist__dd>^{registerWdgt}
+
+
+$if not (null occurrences)
+ <section>
+ <h2>
+ _{MsgExamOccurrences}
+ <table .table .table--striped .table--hover>
+ <thead>
+ <tr .table__row .table__row--head>
+ <th .table__th>_{MsgExamRoom}
+ $if not examTimes
+ <th .table__th>_{MsgExamRoomTime}
+ <th .table__th>_{MsgExamRoomDescription}
+ $if occurrenceAssignmentsShown
+ <th .table__th>
+ _{MsgExamRoomRegistered}
+ $if not occurrenceAssignmentsVisible
+ \ ^{isVisible False}
+ <tbody>
+ $forall (Entity _occId ExamOccurrence{examOccurrenceRoom, examOccurrenceStart, examOccurrenceEnd, examOccurrenceDescription}, registered) <- occurrences
+ <tr .table__row :occurrenceAssignmentsShown && not registered:.occurrence--not-registered>
+ <td .table__td>#{examOccurrenceRoom}
+ $if not examTimes
+ <td .table__td>
+ ^{formatTimeW SelFormatDateTime examOccurrenceStart}
+ $maybe end <- examOccurrenceEnd
+ \ – ^{formatTimeW (bool SelFormatDateTime SelFormatTime ((on (==) utctDay) examStart end)) end}
+ <td .table__td>
+ $maybe desc <- examOccurrenceDescription
+ #{desc}
+ $if occurrenceAssignmentsShown
+ <td .table__td>
+ $if registered
+ #{fontAwesomeIcon "check"}
+
+$if gradingShown && not (null parts)
+ <section>
+ <h2>
+ _{MsgExamParts}
+ $if gradingShown && not gradingVisible
+ \ ^{isVisible False}
+ <table .table .table--striped .table--hover >
+ <thead>
+ <tr .table__row .table__row--head>
+ <th .table__th>_{MsgExamPartName}
+ <th .table__th>_{MsgExamPartMaxPoints}
+ <th .table__th>_{MsgExamPartResultPoints}
+ <tbody>
+ $forall Entity partId ExamPart{examPartName, examPartWeight, examPartMaxPoints} <- parts
+ <tr .table__row>
+ <td .table__td>#{examPartName}
+ <td .table__td>
+ $maybe mPoints <- examPartMaxPoints
+ #{showFixed True (fromRational examPartWeight * mPoints)}
+ <td .table__td>
+ $case fmap (examPartResultResult . entityVal) (results !? partId)
+ $of Nothing
+ $of Just (ExamAttended (Just ps))
+ #{showFixed True ps}
+ $of Just (ExamAttended Nothing)
+ #{fontAwesomeIcon "check"}
+ $of Just ExamNoShow
+ _{MsgExamNoShow}
+ $of Just ExamVoided
+ _{MsgExamVoided}
+
+$# TODO: Statistics
diff --git a/templates/help.hamlet b/templates/help.hamlet
index 073bac477..4b09217cb 100644
--- a/templates/help.hamlet
+++ b/templates/help.hamlet
@@ -1,3 +1,4 @@
-<p>
+<section>
_{MsgHelpIntroduction}
-^{formWidget}
+<section>
+ ^{formWidget}
diff --git a/templates/home/openCourses.hamlet b/templates/home/openCourses.hamlet
index d578cf404..913275128 100644
--- a/templates/home/openCourses.hamlet
+++ b/templates/home/openCourses.hamlet
@@ -1,3 +1,4 @@
+$newline never
<section>
<h2>_{MsgHomeOpenCourses}
^{courseTable}
diff --git a/templates/home/upcomingSheets.hamlet b/templates/home/upcomingSheets.hamlet
index d109294c9..f82dcf616 100644
--- a/templates/home/upcomingSheets.hamlet
+++ b/templates/home/upcomingSheets.hamlet
@@ -1,3 +1,4 @@
+$newline never
<section>
<h2>_{MsgHomeUpcomingSheets}
^{sheetTable}
diff --git a/templates/i18n/README_i18n.txt b/templates/i18n/README_i18n.txt
new file mode 100644
index 000000000..9915cdd0b
--- /dev/null
+++ b/templates/i18n/README_i18n.txt
@@ -0,0 +1,6 @@
+This directories contains all language dependent widgets.
+
+Each widget requires its own directories, the name of which is needed in the source code, e.g. for directory "imprint"
+ $(i18nWidgetFile "imprint")
+inside this directory must be one file per language "de.hamlet", etc.
+
diff --git a/templates/i18n/changelog/de.hamlet b/templates/i18n/changelog/de.hamlet
new file mode 100644
index 000000000..5202a50d5
--- /dev/null
+++ b/templates/i18n/changelog/de.hamlet
@@ -0,0 +1,124 @@
+$newline never
+<dl .deflist>
+ <dt .deflist__dt>26.06.2019
+ <dd .deflist__dd>
+ <ul>
+ <li>Rudimentäre Unterstützung für Klausurbetrieb
+
+ <dt .deflist__dt>07.06.2019
+ <dd .deflist__dd>
+ <ul>
+ <li>Abgaben können bestimmte Dateinamen und Endungen erzwingen
+ <li>Übungsblätter bieten nun Zip-Archive für alle veröffentlichte Dateien, bzw. Dateigruppen an
+
+ <dt .deflist__dt>20.05.2019
+ <dd .deflist__dd>
+ <ul>
+ <li>Komplett überarbeitete Funktionalität zur automatischen Verteilung von Korrekturen
+
+ <dt .deflist__dt>13.05.2019
+ <dd .deflist__dd>
+ <ul>
+ <li>Kursverwalter können Teilnehmer hinzufügen
+
+ <dt .deflist__dt>10.05.2019
+ <dd .deflist__dd>
+ <ul>
+ <li>Besseres Interface zum Einstellen von Abgebenden
+ <li>Download von allen Dateien pro Kursmaterial/Übungsblatt
+
+ <dt .deflist__dt>04.05.2019
+ <dd .deflist__dd>
+ <ul>
+ <li>Kursmaterial
+
+ <dt .deflist__dt>29.04.2019
+ <dd .deflist__dd>
+ <ul>
+ <li>Tutorien
+ <li>Anzeige von Korrektoren auf den Kursseiten
+
+ <dt .deflist__dt>20.04.2019
+ <dd .deflist__dd>
+ <ul>
+ <li>Versand von Benachrichtigungen an Kursteilnehmer
+ <li>Eintragen von Korrektoren und Kursverwaltern auch ohne bestehenden Account
+
+ <dt .deflist__dt>27.03.2019
+ <dd .deflist__dd>
+ <ul>
+ <li>Kurse Veranstalter können nun mehrere Dozenten und Assistenten selbst eintragen
+ <li>Erfassung Studiengangsdaten
+
+ <dt .deflist__dt>20.03.2019
+ <dd .deflist__dd>
+ <ul>
+ <li>Kursanmeldung benötigen assoziertes Hauptfach (für Studierende mit mehreren Hauptfächern)
+
+ <dt .deflist__dt>30.01.2019
+ <dd .deflist__dd>
+ <ul>
+ <li>Designänderungen
+
+ <dt .deflist__dt>16.01.2019
+ <dd .deflist__dd>
+ <ul>
+ <li>Links für Bequemlichkeiten hinzugefügt (z.B. aktuelles Übungsblatt)
+ <li>Liste zugewiesener Abgaben lassen sich nun filtern
+ <li><i>Bugfix</i>: Wenn zwischen Anzeige und Empfang eines Tabellen-Formulars Zeilen verschwinden wird nun eine sinnvolle Fehlermeldung angezeigt
+
+ <dt .deflist__dt>30.11.2018
+ <dd .deflist__dd>
+ <ul>
+ <li><i>Bugfix</i>: Übungsblätter im "bestehen nach Punkten"-Modus werden wieder korrekt gespeichert
+
+ <dt .deflist__dt>29.11.2018
+ <dd .deflist__dd>
+ <ul>
+ <li><i>Bugfix</i>: Formulare innerhalb von Tabellen funktionieren nun auch nach Javascript-Seitenwechsel oder Ändern der Sortierung
+
+ <dt .deflist__dt>09.11.2018
+ <dd .deflist__dd>
+ <ul>
+ <li><i>Bugfix</i>: Zahlreiche Knöpfe/Formulare funktionieren wieder bei eingeschaltetem Javascript
+ <li>Verschiedene Verbesserungen für Korrektoren
+
+ <dt .deflist__dt>19.10.2018
+ <dd .deflist__dd>
+ <ul>
+ <li>Benutzer können sich in der Testphase komplett selbst löschen
+ <li>Hilfe Widget
+ <li>Benachrichtigungen per eMail für einige Ereignisse
+
+ <dt .deflist__dt>18.09.2018
+ <dd .deflist__dd>
+ <ul>
+ <li>Tooltips funktionieren auch ohne JavaScript
+ <li>Kurskürzel müssen nur innerhalb eines Instituts eindeutig sein
+ <li>User Data zeigt nun alle momentan gespeicherten Datensätze an
+ <li>Unterstützung von Tabellenzusammenfassungen, z.B. Punktsummen
+ <li>Intelligente Verteilung von Abgaben auf Korrektoren (z.B. bei Krankheit)
+ <li>Übungsblätter können Abgabe von Dateien verbieten und angeben ob ZIP-Archive entpackt werden sollen
+
+ <dt .deflist__dt>06.08.2018
+ <dd .deflist__dd>
+ <ul>
+ <li>Einführung einer Option, ob Dateien automatisch heruntergeladen werden sollen
+
+ <dt .deflist__dt>01.08.2018
+ <dd .deflist__dd>
+ <ul>
+ <li>Verbesserter Campus-Login <br />
+ (Ersatz einer C-Bibliothek mit undokumentierter Abhängigkeit durch selbst entwickelten Haskell-Code erlaubt nun auch Umlaute)
+
+ <dt .deflist__dt>31.07.2018
+ <dd .deflist__dd>
+ <ul>
+ <li>Viele Verbesserung zur Anzeige von Korrekturen
+ <li>Kursliste über alle Semester hinweg (Top-Level-Navigation "Kurse"), wird in Zukunft Filter/Suchfunktion erhalten
+
+ <dt .deflist__dt>10.07.2018
+ <dd .deflist__dd>
+ <ul>
+ <li>Bugfixes
+ <li>Wählbares Format für Datum
diff --git a/templates/i18n/corrections-upload-instructions/de.hamlet b/templates/i18n/corrections-upload-instructions/de.hamlet
new file mode 100644
index 000000000..44e5deb4d
--- /dev/null
+++ b/templates/i18n/corrections-upload-instructions/de.hamlet
@@ -0,0 +1,26 @@
+<section>
+ <p>
+ Das Hochladen einer Korrekturen markiert die entsprechende
+ Abgabe automatisch als "korrigiert", falls Ihnen die Abgabe zugeteilt gewesen war.
+ <p>
+ Lädt jedoch ein Assistent Korrekturen hoch, welche anderen Korrektoren
+ oder noch nicht zugeteilt wurden, so werden diese Abgaben noch nicht als "korrigiert" markiert.
+ <p>
+ Es ist geplant, dass die Bewertungsdatei in Zukunft ein eigenes Feld enthält,
+ in dem Korrektoren angeben können, ob die Korrektur abgeschlossen ist oder nicht.
+ <p>
+ Im Gegensatz zu UniWorX enthalten die heruntergeladenen Abgaben immer den
+ aktuellen Stand der Bewertung. Dies betrifft ggf. auch geänderte Dateien!
+
+<section>
+ <p>
+ Bei der Korrektur können Dateien verändert, hinzugefügt und gelöscht werden.
+ Die Abgebenden werden entsprechend informiert, sobald die Abgabe als "korrigiert" markiert wurde.
+ <p>
+ Temporäre Dateien einer eventuellen Vorkorrektur müssen also durch das Hochladen der
+ Korrekturen des letzten Korrektors gelöscht werden, falls diese den Abgabenden
+ nicht zur Verfügung gestellt werden sollen.
+
+ $maybe maxUpload <- maxUploadMB
+ <p>
+ Das Limit für die Dateigröße beträgt momentan #{textBytes maxUpload}
\ No newline at end of file
diff --git a/templates/data-protection/de.hamlet b/templates/i18n/data-protection/de.hamlet
similarity index 97%
rename from templates/data-protection/de.hamlet
rename to templates/i18n/data-protection/de.hamlet
index 8158b4709..31bd6a038 100644
--- a/templates/data-protection/de.hamlet
+++ b/templates/i18n/data-protection/de.hamlet
@@ -73,7 +73,7 @@
<h4>Welche Daten werden erhoben
Der Webserver protokolliert
<ul>
- <li>IP-Adresse des Webclients des Nutzers dieses Dienstes
+ <li>Pseudonymisierte IP-Adresse des Webclients des Nutzers dieses Dienstes
<li>Datum und Uhrzeit des Abrufs eines Elementes der Webseite
<li>Adresse des abgerufenen Elementes
<li>übertragene Datenmenge
@@ -84,6 +84,8 @@
<p>
Im Falle einer Störung oder eines Sicherheitsvorfalles wird für die Dauer des Vorfalles
die Anonymisierung der IP-Adresse aufgehoben.
+ <p>
+ Zur Pseudonymisierung der IP-Adressen wird ipscrub (<a href="http://www.ipscrub.org">http://www.ipscrub.org</a>) verwendet.
<h4>Zweckbindung
<p>
@@ -190,4 +192,4 @@ $# <p>
$# Der Nutzer ist bei Nutzung dieses Dienstes verpflichtet die Daten bereitzustellen und
$# verarbeiten zu lassen. Wir behalten uns das Recht vor,
$# Nutzer, die die Daten nicht bereitstellen, von der Nutzung des Dienstes auszuschließen.
-$#
\ No newline at end of file
+$#
diff --git a/templates/featureList.hamlet b/templates/i18n/featureList/de.hamlet
similarity index 89%
rename from templates/featureList.hamlet
rename to templates/i18n/featureList/de.hamlet
index e700604e3..b2f1257a0 100644
--- a/templates/featureList.hamlet
+++ b/templates/i18n/featureList/de.hamlet
@@ -6,8 +6,6 @@
<h4>
aus UniWorX bekannt:
<ul>
- <li> Übungsgruppen
- <li> Klausuren
<li> Zentralanmeldungen
<li>
<h4>
diff --git a/templates/i18n/html-input/de.hamlet b/templates/i18n/html-input/de.hamlet
new file mode 100644
index 000000000..71e8396e2
--- /dev/null
+++ b/templates/i18n/html-input/de.hamlet
@@ -0,0 +1,8 @@
+<h3>Hinweis: Leerzeilen werden entfernt!
+<p>
+ Das Eingabefeld für Mitteilungstext/Beschreibung akzeptiert derzeit nur Html.
+ Zeilumbrüche spielen dementsprechend keine Rolle, können aber mit
+ <code><br>
+ eingefügt werden.
+<p>
+ Für die Zukunft ist Markdown Unterstützung inklusive Editor geplant.
diff --git a/templates/imprint/de.hamlet b/templates/i18n/imprint/de.hamlet
similarity index 100%
rename from templates/imprint/de.hamlet
rename to templates/i18n/imprint/de.hamlet
diff --git a/templates/i18n/info-lecturer/de.hamlet b/templates/i18n/info-lecturer/de.hamlet
new file mode 100644
index 000000000..b01937d50
--- /dev/null
+++ b/templates/i18n/info-lecturer/de.hamlet
@@ -0,0 +1,331 @@
+$newline text
+<section>
+ UniWorX erfahrene Veranstalter finden
+ hier die wichtigsten Neuerungen.
+
+<section>
+ <h2>Bekannte Probleme in Bearbeitung
+
+ <dl .deflist>
+ <dt .deflist__dt>Klausuren #{iconNew}
+ <dd .deflist__dd>
+ Klausuren werden ab sofort teilweise unterstüzt.
+ Der genaue Stand der Entwicklung ist weiter unter auf dieser
+ Seite in einem eigenem Abschnitt detailliert.
+
+ <dt .deflist__dt>Benachrichtigungen
+ <dd .deflist__dd>
+ Benachrichtigungen werden momentan oft mit großer Verzögerung versandt.
+ Die Ursache ist derzeit noch unbekannt, da das Problem noch nicht genauer untersucht werden konnte.
+
+ $#
+ $# MOVE ITEM TO SECTION "VERANSTALTUNGEN", once it is implemented:
+ $#
+
+<section>
+ <h2>Veranstaltungen
+
+ <dl .deflist>
+ <dt .deflist__dt> Kurskürzel
+ <dd .deflist__dd>
+ <p>
+ Alle Veranstaltungen müssen ein Kürzel zur Identifikation besitzen,
+ z.B. EiP, ProMo, SysPrak, etc.
+ <p>
+ Das Kürzel muss innerhalb Institut und Semester eindeutig sein.
+
+ <dt .deflist__dt> Kurse klonen
+ <dd .deflist__dd>
+ <p>
+ Veranstalter können <em>alle</em> Kurse Ihres Instituts für das aktuelle Semesters klonen.
+
+ Dabei werden vor allem Kurskürzel und die Kursbeschreibung übernommen;
+ nicht jedoch Übungsblätter, Klausuren oder Anmeldungen.
+ <pr>
+ Die Kursbeschreibung kann in Html verfasst werden und
+ <em>sollte die Modulbeschreibung enthalten!
+
+ <dt .deflist__dt> Materialzugriff
+ <dd .deflist__dd>
+ Der Zugriff auf Übungsblätter, Folien und andere Materialien
+ kann von der Anmeldung zum Kurs abhängig gemacht werden.
+
+ <dt .deflist__dt> Materialien veröffentlichen
+ <dd .deflist__dd>
+ Folien, Code-Bündel, usw. können nun bequem
+ per Uni2work an die Teilnehmer verteilt werden, ggf.\ auch geschützt.
+
+ <dt .deflist__dt> Kurs Passwort
+ <dd .deflist__dd> Die Anmeldung zum Kurs kann durch ein Passwort geschützt werden.
+
+ <dt .deflist__dt> Kurs Assistenten
+ <dd .deflist__dd>
+ <p>
+ Kurs-Veranstalter dürfen <em>beliebige</em> Personen
+ ebenfalls zu Veranstaltern des Kurses machen.
+
+ Innerhalb des Kurses haben alle Kurs-Veranstalter die
+ gleichen Befugnisse und können insbesondere auch die
+ Liste der Veranstalter dieses Kurses bearbeiten.
+
+ <p>
+ <h4>Unterschied zu UniWorX:
+
+ In Uni2work gibt es die Rollen "Dozent"
+ und "Assistent":
+ Dozenten dürfen im Wesentlichen neue Kurse erstellen.
+ Die Dozenten Berechtigung wird nach Instituten unterschieden.
+
+ Assistenten haben nur Zugriff auf einen speziellen Kurs,
+ aber innerhalb dieses Kurses die gleichen Rechte wie Dozenten.
+
+ <p>
+ In UniWorX gab es die Rolle "Assistent",
+ d.h. alle "Veranstalter" mussten auch "Dozent" sein;
+ eine Unterscheidung nach Instituten gab es nicht.
+
+ <dt .deflist__dt> Kurs Teilnehmer
+ <dd .deflist__dd>
+ <p>
+ Für die Teilnehmer eines Kurses werden nun Studiengangsinformationen angzeigt.
+ Studierende mit mehreren simultanen Studiengängen müssen bei der
+ Kursanmeldung ein Hauptfach auswählen, was die Notenmeldung beschleunigen kann.
+
+ <p>
+ Falls Anstatt eines Studienganges oder eines Studienabschlusses nur eine
+ Nummer angzeigt wird, so hat Uni2work die Zuordnung dieser Schlüsselnummern
+ leider noch nicht erlernt. Dies muss leider sukzessive erfolgen, da wir
+ von der Studentenkanzelei keine aktuelle und vollständige Schlüsselzuordnung
+ bekommen können.
+
+ <dt .deflist__dt> Aus Studentensicht
+ <dd .deflist__dd>
+ <p>
+ UniWorX hatte spezielle Links "Aus Studentensicht", welche in Uni2work überflüssig geworden sind.
+ Stattdessen kann man sich in Uni2work #
+ <a href=@{AuthPredsR}>Berechtigungen hier temporär selbst entziehen
+ . Um die eigene Veranstaltung aus Sicht eines Teilnehmers zu sehen, deaktiviert man #
+ die Berechtigungsprüfungen "_{MsgAuthTagLecturer}" und/oder "_{MsgAuthTagCorrector}"
+
+<section>
+ <h2>Übungsbetrieb
+
+ <dl .deflist>
+ <dt .deflist__dt> Korrektoren
+ <dd .deflist__dd>
+ Korrektoren und Korrekturweise werden ad hoc pro Übungsblatt vom Veranstalter festgelegt;
+ es gibt keine Eintragung von Korrektoren in der Veranstaltungskonfiguration mehr.
+ Um reinen Tutoren vorab Zugriff auf Lösungen zu gewähren, sollten diese
+ als Korrektoren mit Korrekturanteil 0 eingetragen werden.
+
+ Für ein neues Blatt werden die Einstellung des vorangegangenen
+ Blattes automatisch vorgeschlagen.
+
+ <dt .deflist__dt> Verteilung
+ <dd .deflist__dd>
+ Korrektoren können pro Blatt auch als Abwesend oder Entschuldigt
+ markiert werden und bekommen dann keine Abgaben automatisch zugeteilt.
+
+ Abwesende Korrektoren bekommen in späteren Blättern
+ mehr Abgaben zugeteilt, entsprechend ihres
+ Anteils am verpassten Blatt.
+
+ <dt .deflist__dt> Dateien
+ <dd .deflist__dd>
+ Ein einzelnes Übungsblatt kann nun aus mehreren Dateien beliebigen Typs
+ für Angabe und Lösung bestehen.
+ Im Gegensatz zu den bisher verpflichtenden Zip-Archiven
+ können nun einzelne Dateien in einem Schritt verändert werden.
+
+ <dt .deflist__dt> Lösungshinweise
+ <dd .deflist__dd>
+ Zusätzlich zu Aufgabe und Lösung können Hinweise ab einem
+ Datum vor Ende des Abgabezeitraums freigeschaltet werden,
+ z.B. Lösungen zu Präsenzaufgaben.
+
+ <dt .deflist__dt> Sichtbarkeit
+ <dd .deflist__dd>
+ <p>
+ Übungsblätter können bis zu einem Datum "Sichtabr ab" vor allen Teilnehmern versteckt werden.
+ Das kann nützlich sein, um Tutoren und Korrektoren ein provisorisches Übungsblatt verfügbar zu machen,
+ dessen Bewertungsmodalitäten und Fristen sich noch ändern können.
+ <p>
+ Erst wenn das Blatt sichtbar wird, sehen die Teilnehmer in Ihrer Übersichtsliste.
+ Alle Dateien zur Aufgabenstellung sind aber erst mit Beginn des Abgabezeitraums erhältlich,
+ so wie bisher in UniWorX auch.
+
+ <dt .deflist__dt> Zeitstempel
+ <dd .deflist__dd>
+ <p>
+ Alle Dateien eines Übungsblattes sind mit einem
+ für Teilnehmer sichtbaren Zeitstempel versehen.
+ <p>
+ Eine visuelle Hervorhebung geänderter/neuer Dateien
+ und entsprechende Benachrichtigungen sind geplant,
+ aber noch nicht verfügbar.
+
+ <dt .deflist__dt> Papierabgaben
+ <dd .deflist__dd>
+ Externe Abgaben Form (z.B. Papierabgaben)
+ können mit Pseudonymen verwaltet werden:
+ <ul>
+ <li>
+ Übungsblatt mit Abgabe-Modus
+ <i>Abgabe extern mit Pseudonym
+ anlegen
+ <li>
+ Studierende können sich auf
+ der Seite des Übungsblattes ein
+ Pseudonym generieren und ihre Abgabe
+ damit markieren.
+ <p>
+ Für jedes Übungsblatt müssen sich die
+ Studierenden ein neues Pseudonym
+ erstellen, damit eine anonyme Korrektur
+ gewährleistet werden kann.
+ Dadurch wird aber noch keine Abgabe im System angelegt,
+ da ich nicht alle Teilnehmer, welche ein Pseudonym anfordern,
+ auch tatsächlich abgeben.
+ <li>
+ <p>
+ Korrektoren bekommen die externen Abgaben
+ ausgehändigt.
+ Anhand der Pseudonyme
+ muss der Korrektor dann in Uni2work
+ <a href="@{CorrectionsCreateR}">
+ Abgaben anlegen
+ , welche danach wie üblich korrigiert werden können.
+ <p>
+ Solche angelgten Abgaben werden bei der nächsten
+ Verteilung von Übungsblättern
+ dem jeweiligen Korrektor zum Arbeitspensum angerechnet.
+
+<section>
+ <h2>Tutorien
+
+ <dl .deflist>
+ <dt .deflist__dt> Termine
+ <dd .deflist__dd>
+ Tutorien können beliebig viele reguläre Termine haben, die sich wöchentlich wiederholen.
+ <br />
+ Zusätzlich können beliebig viele <i>Ausnahmen</i> angelegt werden.
+ <br />
+ Hierbei überschreibt eine Ausnahme, dass ein Termin nicht stattfindet, die reguläre Terminplanung (man gibt hierbei einen beliebigen Zeitpunkt innerhalb des regulären Termins an).
+ <br />
+ Eine Ausnahme, dass ein Termin außerplanmäßig stattfindet, überschreibt wiederrum Ausnahmen, die Termine ausfallen lassen.
+ <br />
+ Dieses Verhalten kann genutzt werden um einzelne Termine zeitlich zu verschieben, indem der reguläre Termin ausfällt und stattdessen ein außerplanmäßiger mit versetzter Zeit stattfindet.
+
+ <dt .deflist__dt> Tutoren
+ <dd .deflist__dd>
+ <p>
+ Tutoren werden ad hoc pro Tutoriumsgruppe festgelegt.
+ <br />
+ Eine Tutoriumsgruppe kann beliebig viele Tutoren haben und ein Tutor kann beliebig viele Tutoriengruppen betreuen.
+
+ <p>
+ Tutoren haben Zugriff auf die Namen und Studiendaten ihrer Tutoriums-Teilnehmer und können auch Mitteilungen an sie verschicken (analog zu Kursmitteilungen).
+
+ <dt .deflist__dt> Anmeldung
+ <dd .deflist__dd>
+ <p>
+ Studenten können sich auf der Kursseite selbst zu Tutorien anmelden.
+ <br />
+ Die Anmeldung erfolgt momentan noch auf <i>first come, first served</i>-Basis
+ <br />
+ Eine vorherige Anmeldung zum Kurs ist Voraussetzung
+ <p>
+ Die Anmeldung kann pro Tutoriumsgruppe zeitlich beschränkt werden.
+ <p>
+ Tutoriumsgruppen können mit einer <i>Registrierungs-Gruppe</i> versehen werden.
+ <br />
+ Es handelt sich hierbei um einen beliebig wählbaren Text der ansonsten keine Bedeutung hat.
+ <br />
+ Studenten wird die Anmeldung nur in einem Tutorium pro Registrierungs-Gruppe erlaubt.
+
+ Leere Registrierungs-Gruppen zählen hierbei als <i>verschieden</i>.
+ <p>
+ Um die Anmeldung in beliebig viele Tutoriumsgruppen zuzulassen können alle Registrierungs-Gruppen leer gelassen werden.
+
+
+<section>
+ <h2> Klausuren
+ <p> Das Verwalten von Klausuren und Notenmeldungen wurde nun teilweise implementiert und ist ab sofort einsetzbar.
+ <dl .deflist>
+ <dt .deflist__dt> Anlegen/Editieren
+ <dd .deflist__dd>
+ Klausuren können von Dozenten und Assistenten angelegt werden.
+ Eine Vielzahl von optionalen Eigenschaften können sofort oder später angegeben werden,
+ z.B. Sichtbarkeit und Anmeldezeitraum.
+
+ <dt .deflist__dt> Prüfungen
+ <dd .deflist__dd>
+ Eine Klausur kann in mehrere Prüfungen unterteilt sein, welche jeweils einen eigenen Ort und Zeitraum besitzen.
+ <p>
+ Im einfachsten Fall lassen sich damit Klausuren abbilden, welche gleichzeitig in verschiedenen Räumen stattfinden.
+ <p>
+ Es lassen sich aber auch zeitlich getrennte Prüfungen verwalten, wie z.B. mündliche Prüfungen bei Seminaren oder Praktika.
+ Teilnehmern wird eine übersichtliche Tabelle aller Prüfungen angezeigt.
+
+ <dt .deflist__dt> #{iconProblem} Prüfungszuteilung
+ <dd .deflist__dd>
+ Auf Wunsch kann Uni2work die Zuteilung der Teilnehmer auf die Prüfungen (Räume bzw. Prüfungstermine)
+ nach verschiedenen Kriterien wie Name oder Matrikelnummer vornehmen.
+
+ <dt .deflist__dt> #{iconWarning} Anmeldungen
+ <dd .deflist__dd>
+ Teilnehmer können sich bereits zu sichtbaren Klausur innerhalb des eingestellten
+ Anmeldezeitraums anmelden.
+ <p>
+ <em>
+ Achtung: #
+ Die Liste der angemeldeten Teilnehmer ist momentan noch nicht einsehbar oder exportierbar, wird aber sicher gespeichert.
+ Dieses Feature folgt in Kürze.
+
+ <dt .deflist__dt> #{iconProblem} Korrekturen
+ <dd .deflist__dd>
+ <p>
+ Korrekturen können derzeit noch nicht eingetragen werden.
+ Die Realisierung sollte in wenigen Wochen erfolgen.
+ <p>
+ Die Eintragung von Korrekturen erfolgt immer pro Teilaufgabe.
+ Optional kann aus der erreichten Punktesumme dann automatisch eine Gesamtnote berechnet werden.
+ <p>
+ Optional können Klausurkorrektoren angegeben werden, die ab Durchführung der Klausur berechtigt sind eigenständig Korrekturergebnisse einzutragen.
+ Es kann das Recht Ergebnisse einzutragen pro Korrektor auf bestimmte Teilaufgaben beschränkt werden.
+
+ <dt .deflist__dt> #{iconProblem} Klausurbonus
+ <dd .deflist__dd>
+ Es werden verschiedene Möglichkeiten angebotenen werden,
+ die erzielten Bewertungen der Hausübungen
+ unter einstellbaren Bedingungen
+ in einen Klausurbonus umzurechnen (z.B. anrechnung nur, falls bereits ohne Bonus bestanden).
+
+ <dt .deflist__dt> #{iconProblem} Notenmeldung
+ <dd .deflist__dd>
+ <p>
+ Endnoten können leider noch nicht ans Prüfungsamt gemeldet werden.
+ <p>
+ Im Unterschied zum alten UniWorX gibt es keinen Knopf mehr zu Notenmeldung.
+ Stattdessen kann ein Datum eingetragen werden, ab dem die Klausur an das Prüfungsamt übergeben wird.
+ Dadurch kann die Notenmeldung nicht mehr vergessen werden.
+ <p>
+ Damit nachträgliche Änderungen nicht mehr verloren gehen können,
+ dürfen Dozenten nach dem Übergabedatum an das Prüfungsamt
+ keine Änderungen mehr an der Klausur vornehmen, da diese dann
+ ein Teil der Unterlagen des Prüfungsamtes ist.
+ <p>
+ Dozenten können jedoch explizit kleinere nachträgliche Änderungen an das
+ Prüfungsamt übermitteln. Für größere Änderungen kann das Prüfungsamt
+ die Klausur auch wieder an den Dozenten zurück übergeben;
+ der Dozent trägt dann einfach ein späteres Datum für die Übergabe ein.
+<section>
+ <h2>Sonstiges
+ <dl .deflist>
+
+ <dt .deflist__dt> Wartung
+ <dd .deflist__dd>
+ Planmäßige Wartungen werden ohne Ankündigung
+ immer um 2:00h nachts durchgeführt.
+ Es wird daher empfohlen, keine kritischen Abgabefristen
+ um oder kurz nach dieser Zeit einzustellen.
diff --git a/templates/i18n/knownBugs/de.hamlet b/templates/i18n/knownBugs/de.hamlet
new file mode 100644
index 000000000..f609cd287
--- /dev/null
+++ b/templates/i18n/knownBugs/de.hamlet
@@ -0,0 +1,6 @@
+$newline never
+<p>
+ Stand: Mai 2019
+<ul>
+ <li>
+ Format von Bewertungsdateien ist noch provisorisch
diff --git a/templates/i18n/profile/tokenExplanation/de.hamlet b/templates/i18n/profile/tokenExplanation/de.hamlet
new file mode 100644
index 000000000..2237bddee
--- /dev/null
+++ b/templates/i18n/profile/tokenExplanation/de.hamlet
@@ -0,0 +1,13 @@
+<p>
+ Das System stellt gelegentlich Benutzer-bezogene <i>Authorisierungs-Tokens</i> aus.
+ Diese Tokens erlauben es jedem, der in Besitz dieses Tokens ist, bestimmte Ihrer Benutzer-Rechte anzunehmen.
+
+<p>
+ Dies ist insbesondere notwendig um verschickten Emails einen Link beifügen zu können, der das Deabonnieren von Benachrichtigungen erlaubt.
+
+<p>
+ Mit dem untigen Knopf können Sie alle Authorisierungs-Tokens, die bisher für Sie ausgestellt wurden, als ungültig markieren.
+ Dies ist zum Beispiel dann notwendig, wenn Sie Grund haben zu vermuten, dass Dritte Zugriff auf eines Ihrer Tokens gehabt haben könnten.
+
+<p>
+ Für die sichere Verwahrung Ihnen ausgehändigter Tokens sind immer Sie selbst verantwortlich.
diff --git a/templates/i18n/sheet-edit/de.hamlet b/templates/i18n/sheet-edit/de.hamlet
new file mode 100644
index 000000000..08e231090
--- /dev/null
+++ b/templates/i18n/sheet-edit/de.hamlet
@@ -0,0 +1,22 @@
+<section>
+ ^{sheetEditForm}
+
+<section>
+ <h2>Hinweise
+ <ul>
+ <li>
+ <p>
+ Reine Tutoren haben keinen Vorab Zugriff auf Musterlösungen.
+ <p>
+ Wenn reine Tutoren vorab Zugriff auf Musterlösungen erhalten sollen,
+ dann sind diese momentan als Korrektoren mit Anteil 0 einzutragen.
+ <li>
+ <p>
+ Korrektoren haben nur Zugriff auf das jeweilige Übungsblatt.
+ <p>
+ Auf andere Übungsblätter, bei denen jemand nicht als Korrektor
+ eingetragen ist, gibt es keinen Zugriff auf Lösungen.
+ <li>
+ <p>
+ Alle für diesen Kurs eingetragenen Dozenten und Assistenten
+ haben vollen Zugriff auf alle Dateien der Übungsblatter dieses Kurses.
\ No newline at end of file
diff --git a/templates/info-lecturer/de.hamlet b/templates/info-lecturer/de.hamlet
deleted file mode 100644
index a7bcf0057..000000000
--- a/templates/info-lecturer/de.hamlet
+++ /dev/null
@@ -1,199 +0,0 @@
-$newline text
-<section>
- UniWorX erfahrene Veranstalter finden
- hier die wichtigsten Neuerungen.
-
-<section>
- <h2>Bekannte Probleme in Bearbeitung
-
- <dl .deflist>
- <dt .deflist__dt>Derzeit keine bekannt.
-
-
- $#
- $# MOVE ITEM TO SECTION "VERANSTALTUNGEN", once it is implemented:
- $#
-
-<section>
- <h2>Veranstaltungen
-
- <dl .deflist>
- <dt .deflist__dt> Kurskürzel
- <dd .deflist__dd>
- <p>
- Alle Veranstaltungen müssen ein Kürzel zur Identifikation besitzen,
- z.B. EiP, ProMo, SysPrak, etc.
- <p>
- Das Kürzel muss innerhalb Institut und Semester eindeutig sein.
-
- <dt .deflist__dt> Kurse klonen
- <dd .deflist__dd>
- <p>
- Veranstalter können <em>alle</em> Kurse Ihres Instituts für das aktuelle Semesters klonen.
-
- Dabei werden vor allem Kurskürzel und die Kursbeschreibung übernommen;
- nicht jedoch Übungsblätter, Klausuren oder Anmeldungen.
- <pr>
- Die Kursbeschreibung kann in Html verfasst werden und
- <em>sollte die Modulbeschreibung enthalten!
-
- <dt .deflist__dt> Materialzugriff
- <dd .deflist__dd>
- Der Zugriff auf Übungsblätter, Folien und andere Materialien
- kann von der Anmeldung zum Kurs abhängig gemacht werden.
-
- <dt .deflist__dt> Kurs Passwort
- <dd .deflist__dd> Die Anmeldung zum Kurs kann durch ein Passwort geschützt werden.
-
- <dt .deflist__dt> Kurs Assistenten
- <dd .deflist__dd>
- <p>
- Kurs-Veranstalter dürfen <em>beliebige</em> Personen
- ebenfalls zu Veranstaltern des Kurses machen.
-
- Innerhalb des Kurses haben alle Kurs-Veranstalter die
- gleichen Befugnisse und können insbesondere auch die
- Liste der Veranstalter dieses Kurses bearbeiten.
-
- <p>
- <h4>Unterschied zu UniWorX:
-
- In Uni2work gibt es die Rollen "Dozent"
- und "Assistent":
- Dozenten dürfen im Wesentlichen neue Kurse erstellen.
- Die Dozenten Berechtigung wird nach Instituten unterschieden.
-
- Assistenten haben nur Zugriff auf einen speziellen Kurs,
- aber innerhalb dieses Kurses die gleichen Rechte wie Dozenten.
-
- <p>
- In UniWorX gab es die Rolle "Assistent",
- d.h. alle "Veranstalter" mussten auch "Dozent" sein;
- eine Unterscheidung nach Instituten gab es nicht.
-
- <dt .deflist__dt> Kurs Teilnehmer
- <dd .deflist__dd>
- <p>
- Für die Teilnehmer eines Kurses werden nun Studiengangsinformationen angzeigt.
- Studierende mit mehreren simultanen Studiengängen müssen bei der
- Kursanmeldung ein Hauptfach auswählen, was die Notenmeldung beschleunigen kann.
-
- <p>
- Falls Anstatt eines Studienganges oder eines Studienabschlusses nur eine
- Nummer angzeigt wird, so hat Uni2work die Zuordnung dieser Schlüsselnummern
- leider noch nicht erlernt. Dies muss leider sukzessive erfolgen, da wir
- von der Studentenkanzelei keine aktuelle und vollständige Schlüsselzuordnung
- bekommen können.
-
- <dt .deflist__dt> Aus Studentensicht
- <dd .deflist__dd>
- <p>
- UniWorX hatte spezielle Links "Aus Studentensicht", welche in Uni2work überflüssig geworden sind.
- Stattdessen kann man sich in Uni2work #
- <a href=@{AuthPredsR}>Berechtigungen hier temporär selbst entziehen
- . Um die eigene Veranstaltung aus Sicht eines Teilnehmers zu sehen, deaktiviert man #
- die Berechtigungsprüfungen "_{MsgAuthTagLecturer}" und/oder "_{MsgAuthTagCorrector}"
-
-<section>
- <h2>Übungsbetrieb
-
- <dl .deflist>
- <dt .deflist__dt> Korrektoren
- <dd .deflist__dd>
- Korrektoren und Korrekturweise werden ad hoc pro Übungsblatt vom Veranstalter festgelegt;
- es gibt keine Eintragung von Korrektoren in der Veranstaltungskonfiguration mehr.
- Um reinen Tutoren vorab Zugriff auf Lösungen zu gewähren, sollten diese
- als Korrektoren mit Korrekturanteil 0 eingetragen werden.
-
- Für ein neues Blatt werden die Einstellung des vorangegangenen
- Blattes automatisch vorgeschlagen.
-
- <dt .deflist__dt> Verteilung
- <dd .deflist__dd>
- Korrektoren können pro Blatt auch als Abwesend oder Entschuldigt
- markiert werden und bekommen dann keine Abgaben automatisch zugeteilt.
-
- Abwesende Korrektoren bekommen in späteren Blättern
- mehr Abgaben zugeteilt, entsprechend ihres
- Anteils am verpassten Blatt.
-
- <dt .deflist__dt> Dateien
- <dd .deflist__dd>
- Ein einzelnes Übungsblatt kann nun aus mehreren Dateien beliebigen Typs
- für Angabe und Lösung bestehen.
- Im Gegensatz zu den bisher verpflichtenden Zip-Archiven
- können nun einzelne Dateien in einem Schritt verändert werden.
-
- <dt .deflist__dt> Lösungshinweise
- <dd .deflist__dd>
- Zusätzlich zu Aufgabe und Lösung können Hinweise ab einem
- Datum vor Ende des Abgabezeitraums freigeschaltet werden,
- z.B. Lösungen zu Präsenzaufgaben.
-
- <dt .deflist__dt> Sichtbarkeit
- <dd .deflist__dd>
- <p>
- Übungsblätter können bis zu einem Datum "Sichtabr ab" vor allen Teilnehmern versteckt werden.
- Das kann nützlich sein, um Tutoren und Korrektoren ein provisorisches Übungsblatt verfügbar zu machen,
- dessen Bewertungsmodalitäten und Fristen sich noch ändern können.
- <p>
- Erst wenn das Blatt sichtbar wird, sehen die Teilnehmer in Ihrer Übersichtsliste.
- Alle Dateien zur Aufgabenstellung sind aber erst mit Beginn des Abgabezeitraums erhältlich,
- so wie bisher in UniWorX auch.
-
- <dt .deflist__dt> Zeitstempel
- <dd .deflist__dd>
- <p>
- Alle Dateien eines Übungsblattes sind mit einem
- für Teilnehmer sichtbaren Zeitstempel versehen.
- <p>
- Eine visuelle Hervorhebung geänderter/neuer Dateien
- und entsprechende Benachrichtigungen sind geplant,
- aber noch nicht verfügbar.
-
- <dt .deflist__dt> Übungsgruppen
- <dd .deflist__dd>
- Eine Anmeldung zu Übungsgruppen wie bisher
- ist leider noch nicht fertig implementiert.
-
- <dt .deflist__dt> Papierabgaben
- <dd .deflist__dd>
- Externe Abgaben Form (z.B. Papierabgaben)
- können mit Pseudonymen verwaltet werden:
- <ul>
- <li>
- Übungsblatt mit Abgabe-Modus
- <i>Abgabe extern mit Pseudonym
- anlegen
- <li>
- Studierende können sich auf
- der Seite des Übungsblattes ein
- Pseudonym generieren und ihre Abgabe
- damit markieren.
- <p>
- Für jedes Übungsblatt müssen sich die
- Studierenden ein neues Pseudonym
- erstellen, damit eine anonyme Korrektur
- gewährleistet werden kann.
- <li>
- Korrektoren bekommen die externen Abgaben
- ausgehändigt.
- Anhand der Pseudonyme werden
- in Uni2work Abgaben angelegt,
- welche wie üblich korrigiert werden können.
-
-<section>
- <h2>Klausuren
- Das Verwalten von Klausuren und Notenmeldungen
- ist leider noch nicht fertig implementiert.
-
-<section>
- <h2>Sonstiges
- <dl .deflist>
-
- <dt .deflist__dt> Wartung
- <dd .deflist__dd>
- Planmäßige Wartungen werden ohne Ankündigung
- immer um 2:00h nachts durchgeführt.
- Es wird daher empfohlen, keine kritischen Abgabefristen
- um oder kurz nach dieser Zeit einzustellen.
diff --git a/templates/mail/correctorInvitation.hamlet b/templates/mail/correctorInvitation.hamlet
new file mode 100644
index 000000000..6583dfa09
--- /dev/null
+++ b/templates/mail/correctorInvitation.hamlet
@@ -0,0 +1,11 @@
+$newline never
+\<!doctype html>
+<html>
+ <head>
+ <meta charset="UTF-8">
+ <body>
+ <p>
+ _{MsgSheetCorrInviteExplanation}
+ <p>
+ <a href=#{invitationUrl'}>
+ _{MsgInvitationAcceptDecline}
diff --git a/templates/mail/editNotifications.hamlet b/templates/mail/editNotifications.hamlet
index 7ca5d9f8b..6e701e511 100644
--- a/templates/mail/editNotifications.hamlet
+++ b/templates/mail/editNotifications.hamlet
@@ -1,4 +1,3 @@
<p>
- <a href=@{ProfileR}>
- _{MsgProfileHeading}
- \ _{MsgMailEditNotifications}
\ No newline at end of file
+ <a href=#{editNotificationsUrl'}>
+ _{MsgMailEditNotifications}
diff --git a/templates/mail/invitation.hamlet b/templates/mail/invitation.hamlet
new file mode 100644
index 000000000..ef3b004e5
--- /dev/null
+++ b/templates/mail/invitation.hamlet
@@ -0,0 +1,11 @@
+$newline never
+\<!doctype html>
+<html>
+ <head>
+ <meta charset="UTF-8">
+ <body>
+ <p>
+ #{jInvitationExplanation}
+ <p>
+ <a href=#{jInvitationUrl}>
+ _{MsgInvitationAcceptDecline}
diff --git a/templates/mail/lecturerInvitation.hamlet b/templates/mail/lecturerInvitation.hamlet
new file mode 100644
index 000000000..13a752f92
--- /dev/null
+++ b/templates/mail/lecturerInvitation.hamlet
@@ -0,0 +1,11 @@
+$newline never
+\<!doctype html>
+<html>
+ <head>
+ <meta charset="UTF-8">
+ <body>
+ <p>
+ _{MsgCourseLecInviteExplanation}
+ <p>
+ <a href=#{invitationUrl'}>
+ _{MsgInvitationAcceptDecline}
diff --git a/templates/mail/submissionRated.hamlet b/templates/mail/submissionRated.hamlet
index 63afe4ee5..51f675e70 100644
--- a/templates/mail/submissionRated.hamlet
+++ b/templates/mail/submissionRated.hamlet
@@ -22,12 +22,12 @@ $newline never
_{MsgSubmission}
<dd>
<a href=@{CSubmissionR tid ssh csh shn csid SubShowR}>
- #{display csid}
+ #{csid}
$maybe User{userDisplayName} <- corrector
<dt>
_{MsgRatingBy}
<dd>
- #{display userDisplayName}
+ #{userDisplayName}
$maybe time <- submissionRatingTime'
<dt>
_{MsgRatingTime}
diff --git a/templates/material-list.hamlet b/templates/material-list.hamlet
new file mode 100644
index 000000000..503a88d43
--- /dev/null
+++ b/templates/material-list.hamlet
@@ -0,0 +1,2 @@
+<section>
+ ^{table}
diff --git a/templates/material-show.hamlet b/templates/material-show.hamlet
new file mode 100644
index 000000000..e31b5c9c0
--- /dev/null
+++ b/templates/material-show.hamlet
@@ -0,0 +1,22 @@
+$newline never
+$maybe descr <- materialDescription
+ <section>
+ <h2 #description>_{MsgMaterialDescription}
+ <p>
+ #{descr}
+
+<section>
+ <dl .deflist>
+ $maybe matKind <- materialType
+ <dt .deflist__dt>_{MsgMaterialType}
+ <dd .deflist__dd>#{matKind}
+ $maybe matVisibleFromWgt <- matVisibleFromMB
+ <dt .deflist__dt>_{MsgVisibleFrom}
+ <dd .deflist__dd>^{matVisibleFromWgt}
+ <dt .deflist__dt>_{MsgFileModified}
+ <dd .deflist__dd>^{matLastEdit}
+
+$if hasFiles
+ <section>
+ <h2>^{simpleLinkI (SomeMessage MsgMaterialFiles) zipLink}
+ ^{fileTable}
diff --git a/templates/messages/correctionsUploaded.hamlet b/templates/messages/correctionsUploaded.hamlet
index 2edd0288b..c016ac95a 100644
--- a/templates/messages/correctionsUploaded.hamlet
+++ b/templates/messages/correctionsUploaded.hamlet
@@ -1,6 +1,6 @@
_{MsgCorrectionsUploaded (genericLength subs')}
<ul>
- $forall cID <- subs'
+ $forall (cID,uuid) <- subs'
<li>
- #{toPathPiece cID}
+ ^{simpleLink (toWidget (toPathPiece cID)) (CryptoUUIDDispatchR (ciphertext uuid))}
diff --git a/templates/messages/courseInvitationAlreadyRegistered.hamlet b/templates/messages/courseInvitationAlreadyRegistered.hamlet
new file mode 100644
index 000000000..e6102976b
--- /dev/null
+++ b/templates/messages/courseInvitationAlreadyRegistered.hamlet
@@ -0,0 +1,5 @@
+<h2>
+ _{MsgCourseParticipantsAlreadyRegistered (length alreadyRegistered)}
+<ul>
+ $forall email <- alreadyRegistered
+ <li style="font-family: monospace">#{email}
diff --git a/templates/messages/courseInvitationRegisteredWithoutField.hamlet b/templates/messages/courseInvitationRegisteredWithoutField.hamlet
new file mode 100644
index 000000000..e623aab3b
--- /dev/null
+++ b/templates/messages/courseInvitationRegisteredWithoutField.hamlet
@@ -0,0 +1,5 @@
+<h2>
+ _{MsgCourseParticipantsRegisteredWithoutField (length registeredNoField)}
+<ul>
+ $forall email <- registeredNoField
+ <li style="font-family: monospace">#{email}
diff --git a/templates/messages/submissionFilesIgnored.hamlet b/templates/messages/submissionFilesIgnored.hamlet
index ebb61695e..628125d9f 100644
--- a/templates/messages/submissionFilesIgnored.hamlet
+++ b/templates/messages/submissionFilesIgnored.hamlet
@@ -1,4 +1,4 @@
-_{MsgSubmissionFilesIgnored}
+<h2>_{MsgSubmissionFilesIgnored (Set.size ignoredFiles)}
<ul>
$forall ident <- ignoredFiles
$case ident
diff --git a/templates/messages/submissionsAssignNotFound.hamlet b/templates/messages/submissionsAssignNotFound.hamlet
new file mode 100644
index 000000000..570e81459
--- /dev/null
+++ b/templates/messages/submissionsAssignNotFound.hamlet
@@ -0,0 +1,4 @@
+<h2>_{MsgAssignSubmissionExceptionSubmissionsNotFound (length subCIDs)}
+<ul>
+ $forall cID <- subCIDs
+ <li><pre>#{toPathPiece cID}
diff --git a/templates/messages/submissionsAssignUnauthorized.hamlet b/templates/messages/submissionsAssignUnauthorized.hamlet
index f0002faed..c0a618b0d 100644
--- a/templates/messages/submissionsAssignUnauthorized.hamlet
+++ b/templates/messages/submissionsAssignUnauthorized.hamlet
@@ -1,4 +1,4 @@
-_{MsgSubmissionsAssignUnauthorized (fromIntegral (length unassignedUnauth'))}
+_{MsgSubmissionsAssignUnauthorized numUnassignedUnauth}
<ul>
$forall cID <- unassignedUnauth'
diff --git a/templates/multiFileField.hamlet b/templates/multiFileField.hamlet
deleted file mode 100644
index 7fbcc896d..000000000
--- a/templates/multiFileField.hamlet
+++ /dev/null
@@ -1,20 +0,0 @@
-$newline never
-$forall FileUploadInfo{..} <- fileInfos
- <div .file-container :fuiChecked:.file-container--checked>
- <label .file-container__label.btn for=#{fuiHtmlId}>#{fuiTitle}
- <div .checkbox>
- <input .file-container__checkbox.file-checkbox id=#{fuiHtmlId} name=#{fieldName} :fuiChecked:checked value=#{toPathPiece fuiId} type="checkbox">
- <label for=#{fuiHtmlId}>
-
-$# new files
-<input type="file" name=#{fieldName} id=#{fieldId} multiple :req:required="required">
-
-<div .file-input__multi-info>
- _{MsgMultiFileUploadInfo}
-
-<div .file-input__unpack>
- <label for=#{fieldId}_zip>ZIPs automatisch entpacken
- <input type=checkbox id=#{fieldId}_zip name=#{fieldName} value=#{unpackZips}>
- <div class="tooltip">
- <div class="tooltip__handle">
- <div class="tooltip__content">Entpackt hochgeladene Zip-Dateien (*.zip) automatisch und fügt den Inhalt dem Stamm-Verzeichnis der Abgabe hinzu.
diff --git a/templates/multiFileField.lucius b/templates/multiFileField.lucius
deleted file mode 100644
index 21712010e..000000000
--- a/templates/multiFileField.lucius
+++ /dev/null
@@ -1,55 +0,0 @@
-.file-input__unpack {
- font-size: .9rem;
- display: flex;
- align-items: center;
- margin-top: 10px;
-
- .checkbox {
- display: inline-block;
- margin-left: 7px;
- }
-}
-
-.file-input__multi-info {
- font-size: .9rem;
- font-style: italic;
- margin-top: 10px;
- color: var(--color-fontsec);
-}
-
-.file-input__list {
- margin-left: 15px;
- margin-top: 10px;
- font-weight: 600;
-}
-
-.file-container {
- display: flex;
- align-items: center;
- margin-bottom: 20px;
-
- &.file-container--checked {
-
- &::after {
- content: none;
- }
-
- .file-container__label {
- opacity: 1;
- }
- }
-
- &::after {
- /* TODO: get this from .msg-file */
- content: '(wird entfernt)';
- margin-left: 12px;
- }
-
- .checkbox {
- margin-left: 12px;
- }
-}
-
-.file-container__label {
- opacity: 0.4;
-}
diff --git a/templates/profile.hamlet b/templates/profile.hamlet
deleted file mode 100644
index fc6a9bef7..000000000
--- a/templates/profile.hamlet
+++ /dev/null
@@ -1,2 +0,0 @@
-<div .profile>
- ^{settingsForm}
diff --git a/templates/profile/profile.hamlet b/templates/profile/profile.hamlet
new file mode 100644
index 000000000..e2b1e4365
--- /dev/null
+++ b/templates/profile/profile.hamlet
@@ -0,0 +1,13 @@
+$newline never
+<section>
+ ^{settingsForm}
+<section>
+ ^{tokenExplanation}
+ <p>
+ _{MsgTokensLastReset}:
+ $maybe tResetTime' <- tResetTime
+ \ #{tResetTime'}
+ $nothing
+ \ _{MsgNever}
+ <br />
+ ^{tokenForm}
diff --git a/templates/profile/profile.julius b/templates/profile/profile.julius
new file mode 100644
index 000000000..9e125f982
--- /dev/null
+++ b/templates/profile/profile.julius
@@ -0,0 +1,24 @@
+
+(function() {
+ 'use strict';
+
+ var DEFAULT_THEME = 'theme--default';
+
+ document.addEventListener('DOMContentLoaded', function() {
+
+ var themeSwitcher = document.querySelector('#theme-select');
+ var currentTheme = DEFAULT_THEME;
+
+ if (themeSwitcher) {
+ currentTheme = 'theme--' + themeSwitcher.value;
+ themeSwitcher.addEventListener('input', function() {
+
+ var desiredTheme = 'theme--' + themeSwitcher.value;
+ document.body.classList.remove(currentTheme);
+ document.body.classList.add(desiredTheme);
+ currentTheme = desiredTheme;
+ });
+ }
+ });
+
+})();
diff --git a/templates/profileData.hamlet b/templates/profileData.hamlet
index 1946b98b6..28d23e806 100644
--- a/templates/profileData.hamlet
+++ b/templates/profileData.hamlet
@@ -9,7 +9,7 @@
<dt .deflist__dt> _{MsgEMail}
<dd .deflist__dd> #{mailtoHtml userEmail}
<dt .deflist__dt> _{MsgIdent}
- <dd .deflist__dd> #{display userIdent}
+ <dd .deflist__dd> #{userIdent}
<dt .deflist__dt> _{MsgLastLogin}
<dd .deflist__dd>
$maybe llogin <- lastLogin
@@ -23,7 +23,7 @@
$forall (E.Value institute) <- admin_rights
<li .list-ul__item>
<a href=@{SchoolShowR $ SchoolKey institute}>
- #{display institute}
+ #{institute}
$if not $ null lecturer_rights
<dt .deflist__dt>_{MsgLecturerFor}
<dd .deflist__dd>
@@ -31,14 +31,14 @@
$forall (E.Value institute) <- lecturer_rights
<li .list-ul__item>
<a href=@{SchoolShowR $ SchoolKey institute}>
- #{display institute}
+ #{institute}
$if not $ null lecture_corrector
<dt .deflist__dt> Korrektor
<dd .deflist__dd>
<ul .list-ul>
$forall (E.Value tid, E.Value ssh, E.Value csh) <- lecture_corrector
<li .list-ul__item>
- <a href=@{CourseR tid ssh csh CShowR}>#{display tid}-#{display ssh}-#{display csh}
+ <a href=@{CourseR tid ssh csh CShowR}>#{tid}-#{ssh}-#{csh}
$if not $ null studies
<dt .deflist__dt> Studiengänge
<dd .deflist__dd>
@@ -58,7 +58,7 @@
<td .table__td>_{field}#{notUsedT studyFeaturesField}
<td .table__td>_{degree}#{notUsedT studyFeaturesDegree}
<td .table__td>_{studyFeaturesType}
- <td .table__td>#{display studyFeaturesSemester}
+ <td .table__td>#{studyFeaturesSemester}
<td .table__td>#{hasTickmark studyFeaturesValid}
<td .table__td>^{formatTimeW SelFormatDateTime studyFeaturesUpdated}
diff --git a/templates/sheetCorrectors/add.hamlet b/templates/sheetCorrectors/add.hamlet
new file mode 100644
index 000000000..3ad3f5fa8
--- /dev/null
+++ b/templates/sheetCorrectors/add.hamlet
@@ -0,0 +1,6 @@
+$newline never
+<td colspan=5>
+ #{csrf}
+ ^{fvInput addView}
+<td>
+ ^{fvInput submitView}
diff --git a/templates/sheetCorrectors/cell.hamlet b/templates/sheetCorrectors/cell.hamlet
new file mode 100644
index 000000000..8a497e436
--- /dev/null
+++ b/templates/sheetCorrectors/cell.hamlet
@@ -0,0 +1,20 @@
+$newline never
+$case userIdent
+ $of Left _
+ <td>
+ ^{identWidget}
+ <td>
+ <div .tooltip>
+ <div .tooltip__handle>
+ <div .tooltip__content>
+ _{MsgEmailInvitationWarning}
+ $of Right _
+ <td colspan=2>
+ ^{identWidget}
+<td>
+ #{csrf}
+ ^{fvInput stateView}
+<td>
+ ^{fvInput byTutView}
+<td>
+ ^{fvInput propView}
diff --git a/templates/sheetCorrectors/layout.hamlet b/templates/sheetCorrectors/layout.hamlet
new file mode 100644
index 000000000..172f813f8
--- /dev/null
+++ b/templates/sheetCorrectors/layout.hamlet
@@ -0,0 +1,18 @@
+$newline never
+<table .table .table--striped .table--hover>
+ <thead>
+ <tr .table__row .table__row--head>
+ <th .table__th colspan="2">_{MsgCorrector}
+ <th .table__th>_{MsgCorState}
+ <th .table__th>_{MsgCorByTut}
+ <th .table__th>_{MsgCorProportion}
+ <td>
+ <tbody>
+ $forall coord <- review liveCoords lLength
+ <tr .massinput__cell .table__row>
+ ^{cellWdgts ! coord}
+ <td>
+ ^{fvInput (delButtons ! coord)}
+ <tfoot>
+ <tr .massinput__cell.massinput__cell--add>
+ ^{addWdgts ! (0, 0)}
diff --git a/templates/sheetShow.hamlet b/templates/sheetShow.hamlet
index 2cd90602b..198a831a6 100644
--- a/templates/sheetShow.hamlet
+++ b/templates/sheetShow.hamlet
@@ -7,6 +7,13 @@ $maybe descr <- sheetDescription sheet
<section>
<dl .deflist>
+ <dt .deflist__dt>_{MsgAccessibleSince}
+ <dd .deflist__dd>
+ $maybe invisible <- visibleFrom
+ ^{invisible}
+ $nothing
+ #{isVisible False}
+ _{MsgSheetInvisible}
<dt .deflist__dt>_{MsgSheetActiveFrom}
<dd .deflist__dd>#{sheetFrom}
<dt .deflist__dt>_{MsgSheetActiveTo}
@@ -18,15 +25,15 @@ $maybe descr <- sheetDescription sheet
<dt .deflist__dt>_{MsgSheetSolutionFrom}
<dd .deflist__dd>#{solution}
<dt .deflist__dt>_{MsgSheetSubmissionMode}
- <dd .deflist__dd>_{sheetSubmissionMode sheet}
+ <dd .deflist__dd>_{classifySubmissionMode (sheetSubmissionMode sheet)}
$case sheetSubmissionMode sheet
- $of CorrectorSubmissions
+ $of SubmissionMode True _
<div .tooltip>
<div .tooltip__handle>
<div .tooltip__content>_{MsgSheetCorrectorSubmissionsTip}
$of _
$case sheetSubmissionMode sheet
- $of CorrectorSubmissions
+ $of SubmissionMode True _
<dt .deflist__dt>_{MsgSheetPseudonym}
<dd .deflist__dd #pseudonym>
$maybe pseudonym <- mPseudonym
@@ -45,5 +52,5 @@ $maybe marktxt <- markingText
$if hasFiles
<section>
- <h2>_{MsgSheetFiles}
+ <h2>^{simpleLinkI (SomeMessage MsgSheetFiles) zipLink}
^{fileTable}
diff --git a/templates/submission-assign.hamlet b/templates/submission-assign.hamlet
index 9b3911766..2caf92979 100644
--- a/templates/submission-assign.hamlet
+++ b/templates/submission-assign.hamlet
@@ -1 +1,3 @@
+<p>
+ _{MsgPressSaveToSave}
^{corrForm}
diff --git a/templates/submission.hamlet b/templates/submission.hamlet
index 913322f79..3b5728941 100644
--- a/templates/submission.hamlet
+++ b/templates/submission.hamlet
@@ -1,7 +1,10 @@
$maybe cID <- mcid
<section>
- $case sheetUploadMode
- $of Upload _
+ $case sheetSubmissionMode
+ $of SubmissionMode False Nothing
+ <p>
+ _{MsgSubmissionNoUploadExpected}
+ $of _
<h2>
<a href=@{urlArchive cID}>Archiv
(<a href=@{urlOriginal cID}>Original</a>)
@@ -9,9 +12,6 @@ $maybe cID <- mcid
$maybe fileTable <- mFileTable
<h3>_{MsgSubmissionFiles}
^{fileTable}
- $of _
- <p>
- _{MsgSubmissionNoUploadExpected}
$if maySubmit && not (null lastEdits)
<h3>_{MsgLastEdits}
@@ -20,9 +20,11 @@ $maybe cID <- mcid
$maybe name <- mbName
<li>_{MsgEditedBy name time}
$nothing
- <li>#{display time}
+ <li>#{time}
-
-$if maySubmit
- <section>
- ^{formWidget}
+ $if maySubmit
+ <section>
+ <h2>_{MsgSubmissionReplace}
+ ^{formWidget}
+$nothing
+ ^{formWidget}
diff --git a/templates/system-message.hamlet b/templates/system-message.hamlet
index 577723162..4b45d7a63 100644
--- a/templates/system-message.hamlet
+++ b/templates/system-message.hamlet
@@ -1,7 +1,7 @@
<section>
- $maybe summary' <- summary
- <h2>
- #{summary'}
+ $# $maybe summary' <- summary
+ $# <h2>
+ $# #{summary'}
<p>
#{content}
diff --git a/templates/table/cell/body.hamlet b/templates/table/cell/body.hamlet
index 46bf50fd1..0928779b9 100644
--- a/templates/table/cell/body.hamlet
+++ b/templates/table/cell/body.hamlet
@@ -1,4 +1,4 @@
$newline never
-<td *{mergeAttrs attrs [("class", "table__td")]}>
+<td *{insertClass "table__td" attrs}>
<div .table__td-content>
^{widget}
diff --git a/templates/table/cell/header.hamlet b/templates/table/cell/header.hamlet
index 5322aef4d..ddea5960c 100644
--- a/templates/table/cell/header.hamlet
+++ b/templates/table/cell/header.hamlet
@@ -1,11 +1,12 @@
+$newline never
<th .table__th *{attrs} :isSortable:.sortable :isSorted SortAsc:.sorted-asc :isSorted SortDesc:.sorted-desc>
$maybe flag <- sortableKey
$case directions
$of [SortAsc]
- <a .table__th-link href=^{tblLink' $ setParam (wIdent "sorting") (Just $ toPathPiece (SortingSetting flag SortDesc))}>
+ <a .table__th-link rel=nofollow href=^{tblLink' $ setParams (wIdent "sorting") (map toPathPiece (SortingSetting flag SortDesc : piSorting'))}>
^{widget}
$of _
- <a .table__th-link href=^{tblLink' $ setParam (wIdent "sorting") (Just $ toPathPiece (SortingSetting flag SortAsc))}>
+ <a .table__th-link rel=nofollow href=^{tblLink' $ setParams (wIdent "sorting") (map toPathPiece (SortingSetting flag SortAsc : piSorting'))}>
^{widget}
$nothing
^{widget}
diff --git a/templates/table/cell/link.hamlet b/templates/table/cell/link.hamlet
index 0ced27282..cdf41888f 100644
--- a/templates/table/cell/link.hamlet
+++ b/templates/table/cell/link.hamlet
@@ -1,3 +1,3 @@
$newline never
<a href=@{route}>
- ^{widget}
+ ^{widget}
\ No newline at end of file
diff --git a/templates/table/layout-filter-default.hamlet b/templates/table/layout-filter-default.hamlet
index 2cd414694..7a87d28a1 100644
--- a/templates/table/layout-filter-default.hamlet
+++ b/templates/table/layout-filter-default.hamlet
@@ -1,6 +1,6 @@
$newline never
<div .table-filter>
- <h3 .js-show-hide__toggle data-sh-index=table-filter data-collapsed=true>Filter
+ <h3 .table-filter__toggle uw-show-hide data-show-hide-id=table-filter data-show-hide-collapsed>Filter
<div>
^{filterForm}
^{scrolltable}
diff --git a/templates/table/layout-filter-default.lucius b/templates/table/layout-filter-default.lucius
index e2baee73a..7c1d3ab14 100644
--- a/templates/table/layout-filter-default.lucius
+++ b/templates/table/layout-filter-default.lucius
@@ -1,3 +1,7 @@
.table-filter {
margin-bottom: 13px;
}
+
+.table-filter__toggle {
+ padding: 3px 7px;
+}
diff --git a/templates/table/layout-standalone.hamlet b/templates/table/layout-standalone.hamlet
index 34b53ce1f..589eb3eeb 100644
--- a/templates/table/layout-standalone.hamlet
+++ b/templates/table/layout-standalone.hamlet
@@ -1 +1,2 @@
+$newline never
^{pageBody tbl}
diff --git a/templates/table/layout-wrapper.hamlet b/templates/table/layout-wrapper.hamlet
index bfa000765..1092c126f 100644
--- a/templates/table/layout-wrapper.hamlet
+++ b/templates/table/layout-wrapper.hamlet
@@ -1,3 +1,3 @@
$newline never
-<div ##{wIdent "table-wrapper"}>
+<div ##{wIdent "table-wrapper"} uw-async-table data-async-table-db-header=#{toPathPiece HeaderDBTableShortcircuit}>
^{table}
diff --git a/templates/table/layout.hamlet b/templates/table/layout.hamlet
index b292cee5c..eb8baadcb 100644
--- a/templates/table/layout.hamlet
+++ b/templates/table/layout.hamlet
@@ -2,6 +2,10 @@ $newline never
$if null rows && (dbsEmptyStyle == DBESNoHeading)
_{dbsEmptyMessage}
$else
+ <div .table-header>
+ <div .table__row-count>
+ _{MsgRowCount rowCount}
+
^{table}
<div .table-footer>
diff --git a/templates/table/layout.julius b/templates/table/layout.julius
deleted file mode 100644
index 51dad6a82..000000000
--- a/templates/table/layout.julius
+++ /dev/null
@@ -1,10 +0,0 @@
-document.addEventListener('DOMContentLoaded', function() {
- var dbtIdent = #{String dbtIdent};
- var headerDBTableShortcircuit = #{String (toPathPiece HeaderDBTableShortcircuit)};
- var selector = '#' + dbtIdent + '-table-wrapper';
- var wrapper = document.querySelector(selector);
-
- if (wrapper) {
- window.utils.setup('asyncTable', wrapper, { headerDBTableShortcircuit, dbtIdent });
- }
-});
diff --git a/templates/table/layout.lucius b/templates/table/layout.lucius
index c03851b27..0c402442b 100644
--- a/templates/table/layout.lucius
+++ b/templates/table/layout.lucius
@@ -1,3 +1,10 @@
+/* TABLE HEADER */
+.table-header {
+ display: flex;
+ flex-flow: row-reverse;
+ justify-content: space-between;
+}
+
/* TABLE FOOTER */
.table-footer {
display: flex;
diff --git a/templates/table/sortable-header.hamlet b/templates/table/sortable-header.hamlet
index 188c3a779..39ae44b3b 100644
--- a/templates/table/sortable-header.hamlet
+++ b/templates/table/sortable-header.hamlet
@@ -1,3 +1,4 @@
+$newline never
$maybe flag <- sortableKey
$case directions
$of [SortAsc]
diff --git a/templates/terms.hamlet b/templates/terms.hamlet
index 2d2943787..cdf839b7f 100644
--- a/templates/terms.hamlet
+++ b/templates/terms.hamlet
@@ -1,2 +1,2 @@
-<div .container>
- ^{table}
+$newline never
+^{table}
diff --git a/templates/tutorial-edit.hamlet b/templates/tutorial-edit.hamlet
new file mode 100644
index 000000000..f5598089e
--- /dev/null
+++ b/templates/tutorial-edit.hamlet
@@ -0,0 +1,2 @@
+$newline never
+^{newTutForm}
diff --git a/templates/tutorial-list.hamlet b/templates/tutorial-list.hamlet
new file mode 100644
index 000000000..cffdc59dd
--- /dev/null
+++ b/templates/tutorial-list.hamlet
@@ -0,0 +1,2 @@
+$newline never
+^{tutorialTable}
diff --git a/templates/tutorial-new.hamlet b/templates/tutorial-new.hamlet
new file mode 100644
index 000000000..f5598089e
--- /dev/null
+++ b/templates/tutorial-new.hamlet
@@ -0,0 +1,2 @@
+$newline never
+^{newTutForm}
diff --git a/templates/tutorial-participants.hamlet b/templates/tutorial-participants.hamlet
new file mode 100644
index 000000000..1c6999f09
--- /dev/null
+++ b/templates/tutorial-participants.hamlet
@@ -0,0 +1,2 @@
+$newline never
+^{participantTable}
diff --git a/templates/tutorial/tutorMassInput/add.hamlet b/templates/tutorial/tutorMassInput/add.hamlet
new file mode 100644
index 000000000..bdf6da247
--- /dev/null
+++ b/templates/tutorial/tutorMassInput/add.hamlet
@@ -0,0 +1,6 @@
+$newline never
+<td colspan=2>
+ #{csrf}
+ ^{fvInput addView}
+<td>
+ ^{fvInput submitView}
diff --git a/templates/tutorial/tutorMassInput/cellInvitation.hamlet b/templates/tutorial/tutorMassInput/cellInvitation.hamlet
new file mode 100644
index 000000000..27c423ad1
--- /dev/null
+++ b/templates/tutorial/tutorMassInput/cellInvitation.hamlet
@@ -0,0 +1,9 @@
+$newline never
+<td>
+ <span style="font-family: monospace">
+ #{email}
+<td>
+ <div .tooltip>
+ <div .tooltip__handle>
+ <div .tooltip__content>
+ _{MsgEmailInvitationWarning}
diff --git a/templates/tutorial/tutorMassInput/cellKnown.hamlet b/templates/tutorial/tutorMassInput/cellKnown.hamlet
new file mode 100644
index 000000000..5ea4cca6f
--- /dev/null
+++ b/templates/tutorial/tutorMassInput/cellKnown.hamlet
@@ -0,0 +1,3 @@
+$newline never
+<td colspan=2>
+ ^{nameEmailWidget userEmail userDisplayName userSurname}
diff --git a/templates/tutorial/tutorMassInput/layout.hamlet b/templates/tutorial/tutorMassInput/layout.hamlet
new file mode 100644
index 000000000..65352dd95
--- /dev/null
+++ b/templates/tutorial/tutorMassInput/layout.hamlet
@@ -0,0 +1,11 @@
+$newline never
+<table>
+ <tbody>
+ $forall coord <- review liveCoords lLength
+ <tr .massinput__cell>
+ ^{cellWdgts ! coord}
+ <td>
+ ^{fvInput (delButtons ! coord)}
+ <tfoot>
+ <tr .massinput__cell.massinput__cell--add>
+ ^{addWdgts ! (0, 0)}
diff --git a/templates/versionHistory.hamlet b/templates/versionHistory.hamlet
index 994c553ce..daeda76d2 100644
--- a/templates/versionHistory.hamlet
+++ b/templates/versionHistory.hamlet
@@ -1,25 +1,18 @@
-<div .container>
+$newline never
+<section>
+ ^{features}
- <section>
- ^{features}
+<section>
+ <h2>
+ _{MsgKnownBugs}
+ ^{knownBugs}
- <section>
- <h2>
- Bekannte Bugs
- <h3>
- Stand: März 2019
- <ul>
- <li>
- Login ist u.U. anders als im alten System, z.B. momentan geht nur <span style="font-family:monospace">@campus.lmu.de</span> aber nicht die Abkürzung <span style="font-family:monospace">@lmu.de</span>
- <li>
- Format von Bewertungsdateien ist noch provisorisch
+<section>
+ <h2>
+ _{MsgVersionHistory}
+ <p #changelog>
+ ^{changeLog}
- <section>
- <h2>
- Versionsgeschichte
- <p #changelog>
- #{changeLog}
-
- <section>
- <p #gitrev>
- #{gitInfo}
+<section>
+ <p #gitrev>
+ #{gitInfo}
diff --git a/templates/widgets/aform/aform.hamlet b/templates/widgets/aform/aform.hamlet
index 91ebc2b93..460ca1ba7 100644
--- a/templates/widgets/aform/aform.hamlet
+++ b/templates/widgets/aform/aform.hamlet
@@ -11,7 +11,7 @@ $case formLayout
<h3 .form-section-title>
^{fvLabel view}
$else
- <div .form-group :fvRequired view:.form-group--required :not $ fvRequired view:.form-group--optional :isJust $ fvErrors view:.form-group--has-error>
+ <div .form-group .interactive-fieldset__target :fvRequired view:.form-group--required :not $ fvRequired view:.form-group--optional :isJust $ fvErrors view:.form-group--has-error>
$if not (Blaze.null $ fvLabel view)
<label .form-group-label for=#{fvId view}>
<span .form-group-label__caption>
diff --git a/templates/widgets/alerts/alerts.hamlet b/templates/widgets/alerts/alerts.hamlet
index bc034c08e..4527e62d3 100644
--- a/templates/widgets/alerts/alerts.hamlet
+++ b/templates/widgets/alerts/alerts.hamlet
@@ -1,4 +1,5 @@
-<div #alerts-1 .alerts> <!-- make wIdent work here instead of '#alerts-1' -->
+$newline never
+<div #alerts-1 .alerts uw-alerts>
<div .alerts__toggler>
$forall (status, msg) <- mmsgs
$with status2 <- bool status "info" (status == "")
diff --git a/templates/widgets/alerts/alerts.julius b/templates/widgets/alerts/alerts.julius
deleted file mode 100644
index 659c9d921..000000000
--- a/templates/widgets/alerts/alerts.julius
+++ /dev/null
@@ -1,4 +0,0 @@
-document.addEventListener('DOMContentLoaded', function() {
- var alertsElement = document.querySelector('#' + 'alerts-1');
- window.utils.setup('alerts', alertsElement);
-});
diff --git a/templates/widgets/asidenav/asidenav.hamlet b/templates/widgets/asidenav/asidenav.hamlet
index 8090926d1..39b5e6ec3 100644
--- a/templates/widgets/asidenav/asidenav.hamlet
+++ b/templates/widgets/asidenav/asidenav.hamlet
@@ -1,16 +1,18 @@
$newline never
-<aside .main__aside>
+<aside .main__aside uw-asidenav>
<div .asidenav__logo>
<a href="/" .asidenav__logo-link>
- <span .asidenav__logo-link-item.asidenav__logo-lmu>LMU
- <span .asidenav__logo-link-item.asidenav__logo-uni2work>UNI2WORK
+ <div .asidenav__logo-lmu >
+ #{logo}
+
+ <span .asidenav__logo-uni2work>UNI2WORK
<div .asidenav>
$forall tid <- favouriteTerms
- <div .asidenav__box.js-show-hide>
- <h3 .asidenav__box-title.js-show-hide__toggle data-sh-index="#{termToText tid}">
+ <div .asidenav__box>
+ <h3 .asidenav__box-title uw-show-hide data-show-hide-id="#{termToText tid}" data-show-hide-align=right>
_{ShortTermIdentifier tid}
- <ul .asidenav__list.js-show-hide__target.list--iconless>
+ <ul .asidenav__list.list--iconless>
$forall (Course{courseShorthand, courseName}, courseRoute, pageActions) <- favouriteTerm tid
<li .asidenav__list-item :highlight courseRoute:.asidenav__list-item--active>
<a .asidenav__link-wrapper href=@{courseRoute}>
@@ -24,3 +26,6 @@ $newline never
<li .asidenav__nested-list-item>
<a .asidenav__link-wrapper href=#{route}>_{menuItemLabel}
$of _
+
+ <div .asidenav__sigillum>
+ <img src=@{StaticR img_lmu_sigillum_svg}>
diff --git a/templates/widgets/asidenav/asidenav.julius b/templates/widgets/asidenav/asidenav.julius
deleted file mode 100644
index 9387bc714..000000000
--- a/templates/widgets/asidenav/asidenav.julius
+++ /dev/null
@@ -1,4 +0,0 @@
-document.addEventListener('DOMContentLoaded', function() {
- var asidenavEl = document.querySelector('.main__aside');
- window.utils.setup('aside', asidenavEl);
-});
diff --git a/templates/widgets/bonusRule.hamlet b/templates/widgets/bonusRule.hamlet
new file mode 100644
index 000000000..bf72b1684
--- /dev/null
+++ b/templates/widgets/bonusRule.hamlet
@@ -0,0 +1,8 @@
+$newline never
+$case bonusRule
+ $of ExamNoBonus
+ _{MsgExamNoBonus'}
+ $of ExamBonusPoints ps False
+ _{MsgExamBonusPoints ps}
+ $of ExamBonusPoints ps True
+ _{MsgExamBonusPointsPassed ps}
diff --git a/templates/widgets/communication/recipientAdd.hamlet b/templates/widgets/communication/recipientAdd.hamlet
new file mode 100644
index 000000000..086224486
--- /dev/null
+++ b/templates/widgets/communication/recipientAdd.hamlet
@@ -0,0 +1,5 @@
+$newline never
+<div .recipient-category__option-add.massinput__cell.massinput__cell--add>
+ #{csrf}
+ ^{fvInput addView}
+ ^{fvInput submitView}
diff --git a/templates/widgets/communication/recipientEmail.hamlet b/templates/widgets/communication/recipientEmail.hamlet
new file mode 100644
index 000000000..a3c4f711b
--- /dev/null
+++ b/templates/widgets/communication/recipientEmail.hamlet
@@ -0,0 +1,6 @@
+$newline never
+<div .recipient-category__option.massinput__cell>
+ #{csrf}
+ ^{fvInput tickView}
+ <label .recipient-category__option-label for=#{fvId tickView}>
+ #{email}
diff --git a/templates/widgets/communication/recipientLayout.hamlet b/templates/widgets/communication/recipientLayout.hamlet
new file mode 100644
index 000000000..5f47cb7b7
--- /dev/null
+++ b/templates/widgets/communication/recipientLayout.hamlet
@@ -0,0 +1,22 @@
+$newline never
+$if not (null activeCategories)
+ <div .recipient-categories>
+ $forall category <- activeCategories
+ <div .recipient-category>
+ <input type=checkbox id=#{checkedIdent category} .recipient-category__checkbox :elem category checkedCategories:checked>
+ <label .recipient-category__label for=#{checkedIdent category}>
+ _{category}
+
+ $if hasContent category
+ <fieldset .recipient-category__fieldset uw-interactive-fieldset .interactive-fieldset__target data-conditional-input=#{checkedIdent category}>
+ $if not (null (categoryIndices category))
+ <div .recipient-category__checked-counter>
+ <div .recipient-category__toggle-all>
+ <input type=checkbox id=#{checkedIdent category}-toggle-all>
+ <label for=#{checkedIdent category}-toggle-all .recipient-category__option-label>_{MsgRecipientToggleAll}
+ <div .recipient-category__options>
+ $forall optIx <- categoryIndices category
+ ^{cellWdgts ! optIx}
+
+ $maybe addWdgt <- addWdgts !? (1, (EnumPosition category, 0))
+ ^{addWdgt}
diff --git a/templates/widgets/communication/recipientLayout.julius b/templates/widgets/communication/recipientLayout.julius
new file mode 100644
index 000000000..d2fc512ab
--- /dev/null
+++ b/templates/widgets/communication/recipientLayout.julius
@@ -0,0 +1,87 @@
+(function() {
+
+ var MASS_INPUT_SELECTOR = '.massinput';
+ var RECIPIENT_CATEGORIES_SELECTOR = '.recipient-categories';
+ var RECIPIENT_CATEGORY_SELECTOR = '.recipient-category';
+ var RECIPIENT_CATEGORY_CHECKBOX_SELECTOR = '.recipient-category__checkbox ';
+ var RECIPIENT_CATEGORY_OPTIONS_SELECTOR = '.recipient-category__options';
+ var RECIPIENT_CATEGORY_TOGGLE_ALL_SELECTOR = '.recipient-category__toggle-all [type="checkbox"]';
+ var RECIPIENT_CATEGORY_CHECKED_COUNTER_SELECTOR = '.recipient-category__checked-counter';
+
+ var massInputElement;
+
+ document.addEventListener('DOMContentLoaded', function() {
+ var recipientCategoriesElement = document.querySelector(RECIPIENT_CATEGORIES_SELECTOR);
+ massInputElement = recipientCategoriesElement.closest(MASS_INPUT_SELECTOR);
+
+ setupRecipientCategories();
+
+ var recipientObserver = new MutationObserver(setupRecipientCategories);
+ recipientObserver.observe(massInputElement, { childList: true });
+ });
+
+ function setupRecipientCategories() {
+ var recipientCategoryElements = Array.from(massInputElement.querySelectorAll(RECIPIENT_CATEGORY_SELECTOR));
+
+ recipientCategoryElements.forEach(function(element) {
+ setupRecipientCategory(element);
+ });
+ }
+
+ function setupRecipientCategory(recipientCategoryElement) {
+ var categoryCheckbox = recipientCategoryElement.querySelector(RECIPIENT_CATEGORY_CHECKBOX_SELECTOR);
+ var categoryOptions = recipientCategoryElement.querySelector(RECIPIENT_CATEGORY_OPTIONS_SELECTOR);
+ if (categoryOptions) {
+
+ var categoryCheckboxes = Array.from(categoryOptions.querySelectorAll('[type="checkbox"]'));
+ var toggleAllCheckbox = recipientCategoryElement.querySelector(RECIPIENT_CATEGORY_TOGGLE_ALL_SELECTOR);
+
+ // setup category checkbox to toggle all child checkboxes if changed
+ categoryCheckbox.addEventListener('change', function() {
+ categoryCheckboxes.forEach(function(checkbox) {
+ checkbox.checked = categoryCheckbox.checked;
+ });
+ updateCheckedCounter(recipientCategoryElement, categoryCheckboxes);
+ updateToggleAllCheckbox(toggleAllCheckbox, categoryCheckboxes);
+ });
+
+ // update counter and toggle checkbox initially
+ updateCheckedCounter(recipientCategoryElement, categoryCheckboxes);
+ updateToggleAllCheckbox(toggleAllCheckbox, categoryCheckboxes);
+
+ // register change listener for individual checkboxes
+ categoryCheckboxes.forEach(function(checkbox) {
+ checkbox.addEventListener('change', function() {
+ updateCheckedCounter(recipientCategoryElement, categoryCheckboxes);
+ updateToggleAllCheckbox(toggleAllCheckbox, categoryCheckboxes);
+ });
+ });
+
+ // register change listener for toggle all checkbox
+ if (toggleAllCheckbox) {
+ toggleAllCheckbox.addEventListener('change', function() {
+ categoryCheckboxes.forEach(function(checkbox) {
+ checkbox.checked = toggleAllCheckbox.checked;
+ });
+ updateCheckedCounter(recipientCategoryElement, categoryCheckboxes);
+ });
+ }
+ }
+ }
+
+ // update checked state of toggle all checkbox based on all other checkboxes
+ function updateToggleAllCheckbox(toggleAllCheckbox, categoryCheckboxes) {
+ var allChecked = categoryCheckboxes.reduce(function(acc, checkbox) {
+ return acc && checkbox.checked;
+ }, true);
+ toggleAllCheckbox.checked = allChecked;
+ }
+
+ // update value of checked counter
+ function updateCheckedCounter(recipientCategoryElement, categoryCheckboxes) {
+ var checkedCounter = recipientCategoryElement.querySelector(RECIPIENT_CATEGORY_CHECKED_COUNTER_SELECTOR);
+ var checkedCheckboxes = categoryCheckboxes.reduce(function(acc, checkbox) { return checkbox.checked ? acc + 1 : acc; }, 0);
+ checkedCounter.innerHTML = checkedCheckboxes + '/' + categoryCheckboxes.length;
+ }
+
+})();
diff --git a/templates/widgets/communication/recipientLayout.lucius b/templates/widgets/communication/recipientLayout.lucius
new file mode 100644
index 000000000..aa4cb072d
--- /dev/null
+++ b/templates/widgets/communication/recipientLayout.lucius
@@ -0,0 +1,65 @@
+.recipient-category {
+ max-width: 400px;
+ padding: 3px 0;
+
+ &:not(:last-child) {
+ margin-bottom: 7px;
+ }
+
+ &:not(:first-child) {
+ margin-top: 7px;
+ }
+}
+
+.recipient-category__options {
+ max-height: 150px;
+ overflow-y: auto;
+}
+
+.recipient-category__option {
+ display: flex;
+
+ &:not(:last-child) {
+ margin-bottom: 10px;
+ }
+}
+
+.recipient-category__label,
+.recipient-category__option-label {
+ margin-left: 15px;
+ vertical-align: top;
+}
+
+.recipient-category__fieldset {
+ margin: 7px 0 5px 9px;
+ padding: 5px 0 10px;
+ border-left: 1px solid #bcbcbc;
+ padding-left: 16px;
+ position: relative;
+}
+
+.recipient-category__option-add {
+ display: flex;
+
+ .btn-mass-input-add {
+ margin-left: 10px;
+ padding: 10px 0;
+ }
+}
+
+.recipient-category__options + .recipient-category__option-add {
+ margin-top: 10px;
+}
+
+.recipient-category__toggle-all {
+ display: flex;
+ border-bottom: 1px solid #bcbcbc;
+ padding-bottom: 8px;
+ margin-bottom: 8px;
+}
+
+.recipient-category__checked-counter {
+ position: absolute;
+ right: 5px;
+ top: 5px;
+}
diff --git a/templates/widgets/communication/recipientName.hamlet b/templates/widgets/communication/recipientName.hamlet
new file mode 100644
index 000000000..4dd5ee014
--- /dev/null
+++ b/templates/widgets/communication/recipientName.hamlet
@@ -0,0 +1,6 @@
+$newline never
+<div .recipient-category__option.massinput__cell>
+ #{csrf}
+ ^{fvInput tickView}
+ <label .recipient-category__option-label for=#{fvId tickView}>
+ #{nameHtml userDisplayName userSurname}
diff --git a/templates/widgets/course-teaser/course-teaser.julius b/templates/widgets/course-teaser/course-teaser.julius
deleted file mode 100644
index 14d4436ab..000000000
--- a/templates/widgets/course-teaser/course-teaser.julius
+++ /dev/null
@@ -1,25 +0,0 @@
-var COURSE_TEASER_EXPANDED_CLASS = 'course--expanded';
-var COURSE_TEASER_CHEVRON_CLASS = 'course-chevron';
-
-document.addEventListener('DOMContentLoaded', function() {
- var courseTeaserId = #{String courseId};
- var courseTeaser = document.querySelector('#course-' + courseTeaserId);
-
- courseTeaser.addEventListener('click', function(event) {
- var isLink = event.target.tagName.toLowerCase() === 'a';
- var isChevron = event.target.classList.contains(COURSE_TEASER_CHEVRON_CLASS);
- var isExpanded = courseTeaser.classList.contains(COURSE_TEASER_EXPANDED_CLASS);
-
- if ((!isExpanded && !isLink) || isChevron) {
- courseTeaser.classList.toggle(COURSE_TEASER_EXPANDED_CLASS);
- }
- });
-
- courseTeaser.addEventListener('keydown', function(event) {
- var eventKey = event.key;
- if (eventKey === ' ' || eventKey === 'Enter') {
- event.preventDefault();
- courseTeaser.classList.toggle(COURSE_TEASER_EXPANDED_CLASS);
- }
- });
-});
diff --git a/templates/widgets/date-time/yet-invisible.hamlet b/templates/widgets/date-time/yet-invisible.hamlet
new file mode 100644
index 000000000..ea24583d5
--- /dev/null
+++ b/templates/widgets/date-time/yet-invisible.hamlet
@@ -0,0 +1 @@
+^{timeStampWgt} #{isVisible False}
\ No newline at end of file
diff --git a/templates/widgets/email.hamlet b/templates/widgets/email.hamlet
new file mode 100644
index 000000000..285c2c958
--- /dev/null
+++ b/templates/widgets/email.hamlet
@@ -0,0 +1,2 @@
+<span style="font-family: monospace">
+ ^{toHtml email}
diff --git a/templates/widgets/footer/footer.hamlet b/templates/widgets/footer/footer.hamlet
index e133ec47b..b7d8f6a35 100644
--- a/templates/widgets/footer/footer.hamlet
+++ b/templates/widgets/footer/footer.hamlet
@@ -1,3 +1,4 @@
+$newline never
<footer .footer>
<div .footer-links>
$forall (MenuItem{menuItemType, menuItemRoute = _, menuItemIcon = _, menuItemLabel, menuItemModal = _}, menuIdent, route) <- menuTypes
diff --git a/templates/widgets/footer/footer.lucius b/templates/widgets/footer/footer.lucius
index b00b13588..26c2ae10f 100644
--- a/templates/widgets/footer/footer.lucius
+++ b/templates/widgets/footer/footer.lucius
@@ -14,3 +14,11 @@
background-color: var(--color-grey-light);
}
}
+
+.footer-links * {
+ margin-right: 0.5em;
+
+ &:last {
+ margin-right: 0;
+ }
+}
diff --git a/templates/widgets/form/form.hamlet b/templates/widgets/form/form.hamlet
index ed15e2aea..123717b08 100644
--- a/templates/widgets/form/form.hamlet
+++ b/templates/widgets/form/form.hamlet
@@ -1,19 +1,18 @@
$newline never
$# Wrapper for all kinds of forms
-<section>
- <form ##{formId} method=#{decodeUtf8 (renderStdMethod formMethod)} action=#{fromMaybe "" formActionUrl} enctype=#{formEncoding} *{formAttrs}>
- $# Distinguish different falvours of submit button layouts here:
- $case formSubmit
- $of FormNoSubmit
- ^{formWidget}
- $of FormSubmit
- ^{formWidget}
- ^{submitButtonView}
- $of FormDualSubmit
- ^{submitButtonView}
- ^{formWidget}
- ^{submitButtonView}
- $of FormAutoSubmit
- ^{formWidget}
- <button type=submit data-autosubmit>
- ^{btnLabel BtnSubmit}
+<form ##{formId} method=#{decodeUtf8 (renderStdMethod formMethod)} action=#{fromMaybe "" formActionUrl} enctype=#{formEncoding} *{formAttrs}>
+ $# Distinguish different falvours of submit button layouts here:
+ $case formSubmit
+ $of FormNoSubmit
+ ^{formWidget}
+ $of FormSubmit
+ ^{formWidget}
+ ^{buttonView btn}
+ $of FormDualSubmit
+ ^{buttonView btn}
+ ^{formWidget}
+ ^{buttonView btn}
+ $of FormAutoSubmit
+ ^{formWidget}
+ <button type=submit uw-auto-submit-button>
+ ^{btnLabel btn}
diff --git a/templates/widgets/form/form.julius b/templates/widgets/form/form.julius
deleted file mode 100644
index 00b3a3c8f..000000000
--- a/templates/widgets/form/form.julius
+++ /dev/null
@@ -1,3 +0,0 @@
-document.addEventListener('DOMContentLoaded', function() {
- window.utils.setup('form', document.querySelector('#' + #{String formId}));
-});
diff --git a/templates/widgets/grading-summary/grading-summary-row.hamlet b/templates/widgets/grading-summary/grading-summary-row.hamlet
index 261b98e1a..9e536fbc8 100644
--- a/templates/widgets/grading-summary/grading-summary-row.hamlet
+++ b/templates/widgets/grading-summary/grading-summary-row.hamlet
@@ -19,9 +19,9 @@ $#
$with Sum pacv <- summary ^. _achievedPasses
<td .table__td>
$if pmax > 0
- #{textPercentInt pacv pmax}
+ #{textPercent pacv pmax}
<td .table__td>
- #{display pacv} / #{display pmax}
+ _{pacv} / _{pmax}
$else
<td .table__td>
<td .table__td>
@@ -29,26 +29,26 @@ $#
$with Sum numPass <- summary ^. _numSheetsPasses
<td .table__td>
$if numPass > 0
- #{display numPass}
+ _{numPass}
$maybe _ <- hasMarkedPoints
$with Sum pmax <- summary ^. _sumMarkedPoints
$with Sum pacv <- summary ^. _achievedPoints
<td .table__td>
$if pmax > 0
- #{textPercent $ realToFrac $ pacv / pmax}
+ #{textPercent pacv pmax}
<td .table__td>
- #{display pacv} / #{display pmax}
+ _{pacv} / _{pmax}
$if ((summary ^. _numMarkedPoints) /= (summary ^. _numSheets))
$# Falls Anzahl Blätter der Zeile verschieden von Anzahl gewerterer Blätter
\ (_{title $ getSum $ summary ^. _numMarkedPoints})
$# Kurze Alternative mit Hashtag-Symbol für "Anzahl"
- $# \ (##{display $ summary ^. _numMarkedPoints})
+ $# \ (##{summary ^. _numMarkedPoints})
$maybe _ <- hasPoints
<td .table__td>
- #{display (summary ^. _sumSheetsPoints)}
+ #{summary ^. _sumSheetsPoints}
$if ((summary ^. _numSheetsPoints) /= (summary ^. _numSheets))
$# Falls Anzahl Blätter der Zeile verschieden von Anzahl Blätter mit Punkten
\ (_{title $ getSum $ summary ^. _numSheetsPoints})
$# Kurze Alternative mit Hashtag-Symbol für "Anzahl"
- $# \ (##{display $ summary ^. _numSheetsPoints})
- <td .table__td>#{display $ summary ^. _numSheets}
+ $# \ (##{summary ^. _numSheetsPoints})
+ <td .table__td>#{summary ^. _numSheets}
diff --git a/templates/widgets/grading-summary/grading-summary.hamlet b/templates/widgets/grading-summary/grading-summary.hamlet
index 8432448d6..830715d8f 100644
--- a/templates/widgets/grading-summary/grading-summary.hamlet
+++ b/templates/widgets/grading-summary/grading-summary.hamlet
@@ -15,11 +15,11 @@ $# --
<th>
$# empty cell for row headers
$maybe _ <- hasMarkedPasses
- <th .table__th colspan=2>_{MsgCorrected}
+ <th .table__th colspan=2>_{MsgCorrectionAchievedPass}
$maybe _ <- hasPasses
<th .table__th>_{MsgSheetGradingPassing'}
$maybe _ <- hasMarkedPoints
- <th .table__th colspan=2>_{MsgCorrected}
+ <th .table__th colspan=2>_{MsgCorrectionAchievedPoints}
$maybe _ <- hasPoints
<th .table__th>_{MsgSheetGradingPoints'}
<th .table__th>_{MsgSheetGradingCount'}
diff --git a/templates/widgets/gradingKey.cassius b/templates/widgets/gradingKey.cassius
new file mode 100644
index 000000000..396f41818
--- /dev/null
+++ b/templates/widgets/gradingKey.cassius
@@ -0,0 +1,3 @@
+.table--grading-key
+ th, td
+ padding: 3px;
\ No newline at end of file
diff --git a/templates/widgets/gradingKey.hamlet b/templates/widgets/gradingKey.hamlet
new file mode 100644
index 000000000..dac9e9537
--- /dev/null
+++ b/templates/widgets/gradingKey.hamlet
@@ -0,0 +1,15 @@
+$newline never
+<table .table--grading-key>
+ <thead>
+ <tr>
+ <td>
+ $forall g <- grades
+ <th>
+ _{g}
+ <tbody>
+ <tr>
+ <th>
+ _{MsgGradingFrom}
+ $forall w <- boundWidgets
+ <td>
+ ^{w}
diff --git a/templates/widgets/invitation-site.hamlet b/templates/widgets/invitation-site.hamlet
new file mode 100644
index 000000000..064e92184
--- /dev/null
+++ b/templates/widgets/invitation-site.hamlet
@@ -0,0 +1,4 @@
+<section>
+ #{explanation}
+<section>
+ ^{formWidget}
diff --git a/templates/widgets/link-email.hamlet b/templates/widgets/link-email.hamlet
index 80b6b03c9..ad08eeba5 100644
--- a/templates/widgets/link-email.hamlet
+++ b/templates/widgets/link-email.hamlet
@@ -1,3 +1,4 @@
+$newline never
$# Used for all mailto-link, and used as both as shamlet and whamlet at once.
<a href="mailto:#{email}">
- ^{linkText}
\ No newline at end of file
+ ^{linkText}
diff --git a/templates/widgets/massinput/examCorrectors/add.hamlet b/templates/widgets/massinput/examCorrectors/add.hamlet
new file mode 100644
index 000000000..bdf6da247
--- /dev/null
+++ b/templates/widgets/massinput/examCorrectors/add.hamlet
@@ -0,0 +1,6 @@
+$newline never
+<td colspan=2>
+ #{csrf}
+ ^{fvInput addView}
+<td>
+ ^{fvInput submitView}
diff --git a/templates/widgets/massinput/examCorrectors/cellInvitation.hamlet b/templates/widgets/massinput/examCorrectors/cellInvitation.hamlet
new file mode 100644
index 000000000..27c423ad1
--- /dev/null
+++ b/templates/widgets/massinput/examCorrectors/cellInvitation.hamlet
@@ -0,0 +1,9 @@
+$newline never
+<td>
+ <span style="font-family: monospace">
+ #{email}
+<td>
+ <div .tooltip>
+ <div .tooltip__handle>
+ <div .tooltip__content>
+ _{MsgEmailInvitationWarning}
diff --git a/templates/widgets/massinput/examCorrectors/cellKnown.hamlet b/templates/widgets/massinput/examCorrectors/cellKnown.hamlet
new file mode 100644
index 000000000..5ea4cca6f
--- /dev/null
+++ b/templates/widgets/massinput/examCorrectors/cellKnown.hamlet
@@ -0,0 +1,3 @@
+$newline never
+<td colspan=2>
+ ^{nameEmailWidget userEmail userDisplayName userSurname}
diff --git a/templates/widgets/massinput/examCorrectors/layout.hamlet b/templates/widgets/massinput/examCorrectors/layout.hamlet
new file mode 100644
index 000000000..65352dd95
--- /dev/null
+++ b/templates/widgets/massinput/examCorrectors/layout.hamlet
@@ -0,0 +1,11 @@
+$newline never
+<table>
+ <tbody>
+ $forall coord <- review liveCoords lLength
+ <tr .massinput__cell>
+ ^{cellWdgts ! coord}
+ <td>
+ ^{fvInput (delButtons ! coord)}
+ <tfoot>
+ <tr .massinput__cell.massinput__cell--add>
+ ^{addWdgts ! (0, 0)}
diff --git a/templates/widgets/massinput/examParts/add.hamlet b/templates/widgets/massinput/examParts/add.hamlet
new file mode 100644
index 000000000..6ef4903fb
--- /dev/null
+++ b/templates/widgets/massinput/examParts/add.hamlet
@@ -0,0 +1,4 @@
+$newline never
+^{formWidget}
+<td>
+ ^{fvInput submitView}
diff --git a/templates/widgets/massinput/examParts/form.hamlet b/templates/widgets/massinput/examParts/form.hamlet
new file mode 100644
index 000000000..0ef5c4f7a
--- /dev/null
+++ b/templates/widgets/massinput/examParts/form.hamlet
@@ -0,0 +1,4 @@
+$newline never
+<td>#{csrf}^{fvInput epfIdView}^{fvInput epfNameView}
+<td>^{fvInput epfMaxPointsView}
+<td>^{fvInput epfWeightView}
diff --git a/templates/widgets/massinput/examParts/layout.hamlet b/templates/widgets/massinput/examParts/layout.hamlet
new file mode 100644
index 000000000..87ab7fef4
--- /dev/null
+++ b/templates/widgets/massinput/examParts/layout.hamlet
@@ -0,0 +1,16 @@
+$newline never
+<table>
+ <thead>
+ <th>_{MsgExamPartName}
+ <th>_{MsgExamPartMaxPoints}
+ <th>_{MsgExamPartWeight}
+ <td>
+ <tbody>
+ $forall coord <- review liveCoords lLength
+ <tr .massinput__cell>
+ ^{cellWdgts ! coord}
+ <td>
+ ^{fvInput (delButtons ! coord)}
+ <tfoot>
+ <tr .massinput__cell.massinput__cell--add>
+ ^{addWdgts ! (0, 0)}
diff --git a/templates/widgets/massinput/examRooms/add.hamlet b/templates/widgets/massinput/examRooms/add.hamlet
new file mode 100644
index 000000000..6ef4903fb
--- /dev/null
+++ b/templates/widgets/massinput/examRooms/add.hamlet
@@ -0,0 +1,4 @@
+$newline never
+^{formWidget}
+<td>
+ ^{fvInput submitView}
diff --git a/templates/widgets/massinput/examRooms/form.hamlet b/templates/widgets/massinput/examRooms/form.hamlet
new file mode 100644
index 000000000..bd0fd06ed
--- /dev/null
+++ b/templates/widgets/massinput/examRooms/form.hamlet
@@ -0,0 +1,6 @@
+$newline never
+<td>#{csrf}^{fvInput eofIdView}^{fvInput eofRoomView}
+<td>^{fvInput eofCapacityView}
+<td>^{fvInput eofStartView}
+<td>^{fvInput eofEndView}
+<td>^{fvInput eofDescView}
diff --git a/templates/widgets/massinput/examRooms/layout.hamlet b/templates/widgets/massinput/examRooms/layout.hamlet
new file mode 100644
index 000000000..cc4211e5c
--- /dev/null
+++ b/templates/widgets/massinput/examRooms/layout.hamlet
@@ -0,0 +1,18 @@
+$newline never
+<table>
+ <thead>
+ <th>_{MsgExamRoom}
+ <th>_{MsgExamRoomCapacity}
+ <th>_{MsgExamRoomStart}
+ <th>_{MsgExamRoomEnd}
+ <th>_{MsgExamRoomDescription}
+ <td>
+ <tbody>
+ $forall coord <- review liveCoords lLength
+ <tr .massinput__cell>
+ ^{cellWdgts ! coord}
+ <td>
+ ^{fvInput (delButtons ! coord)}
+ <tfoot>
+ <tr .massinput__cell.massinput__cell--add>
+ ^{addWdgts ! (0, 0)}
diff --git a/templates/widgets/massinput/list/layout.hamlet b/templates/widgets/massinput/list/layout.hamlet
new file mode 100644
index 000000000..0af005b4e
--- /dev/null
+++ b/templates/widgets/massinput/list/layout.hamlet
@@ -0,0 +1,14 @@
+$newline never
+<table>
+ <tbody>
+ <tr .massinput__cell>
+ $forall coord <- review liveCoords lLength
+ <td>
+ ^{cellWdgts ! coord}
+ <td>
+ ^{fvInput (delButtons ! coord)}
+ <tfoot>
+ <tr .massinput__cell.massinput__cell--add>
+ <td>
+ <td>
+ ^{addWdgts ! (0, 0)}
diff --git a/templates/widgets/massinput/massinput-standalone-wrapper.hamlet b/templates/widgets/massinput/massinput-standalone-wrapper.hamlet
new file mode 100644
index 000000000..f6cfbcf2a
--- /dev/null
+++ b/templates/widgets/massinput/massinput-standalone-wrapper.hamlet
@@ -0,0 +1,8 @@
+$newline never
+$# Wrapper around massinput-standalone
+$# pageTitle :: Html
+$# pageHead :: HtmlUrl url
+$# pageBody :: HtmlUrl url
+$#
+$# Probably only `pageBody` is relevant
+^{pageBody}
diff --git a/templates/widgets/massinput/massinput-standalone.hamlet b/templates/widgets/massinput/massinput-standalone.hamlet
new file mode 100644
index 000000000..6fef23b58
--- /dev/null
+++ b/templates/widgets/massinput/massinput-standalone.hamlet
@@ -0,0 +1,6 @@
+$newline never
+$# Version of `widgets/massinput/massinput` for when short-circuiting happens
+$# i.e. the response is only this widget wrapped in `massinput-standalone-wrapper.hamlet`
+#{csrf}
+^{shapeInput}
+^{miWidget}
diff --git a/templates/widgets/massinput/massinput.hamlet b/templates/widgets/massinput/massinput.hamlet
index 3dde7384d..e07aa1f71 100644
--- a/templates/widgets/massinput/massinput.hamlet
+++ b/templates/widgets/massinput/massinput.hamlet
@@ -1,5 +1,5 @@
$newline never
-<div .massinput ##{fvId}>
+<div .massinput uw-mass-input data-mass-input-ident=#{miIdent} ##{fvId}>
#{csrf}
^{shapeInput}
^{miWidget}
diff --git a/templates/widgets/massinput/massinput.julius b/templates/widgets/massinput/massinput.julius
deleted file mode 100644
index 219636e59..000000000
--- a/templates/widgets/massinput/massinput.julius
+++ /dev/null
@@ -1,21 +0,0 @@
-document.addEventListener('DOMContentLoaded', function() {
- var form = document.getElementById(#{String fvId}).closest('form');
-
-
- var formSubmit = form.querySelector('input[type=submit], button[type=submit]:not(.btn-mass-input-add):not(.btn-mass-input-delete)');
- var cellInputs = Array.from(form.querySelectorAll('.massinput--cell input:not([type=hidden])'));
-
- cellInputs.forEach(function(input) {
- window.utils.setup('implicitSubmit', input, { submit: formSubmit });
- });
-
-
- Array.from(form.querySelectorAll('.massinput--add')).forEach(function(wrapper) {
- var addSubmit = wrapper.querySelector('.btn-mass-input-add');
- var addInputs = Array.from(wrapper.querySelectorAll('input:not([type=hidden]):not(.btn-mass-input-add)'));
-
- addInputs.forEach(function(input) {
- window.utils.setup('implicitSubmit', input, { submit: addSubmit });
- });
- });
-});
diff --git a/templates/widgets/massinput/massinput.lucius b/templates/widgets/massinput/massinput.lucius
new file mode 100644
index 000000000..6af5274b0
--- /dev/null
+++ b/templates/widgets/massinput/massinput.lucius
@@ -0,0 +1,8 @@
+.btn.btn-mass-input-delete,
+.btn.btn-mass-input-add {
+ background-color: #999;
+ min-width: 50px;
+ padding: 5px 15px;
+ font-weight: 700;
+ font-size: 1.3rem;
+}
diff --git a/templates/widgets/massinput/row.hamlet b/templates/widgets/massinput/row.hamlet
index 8c43c9896..f26de8b05 100644
--- a/templates/widgets/massinput/row.hamlet
+++ b/templates/widgets/massinput/row.hamlet
@@ -1,7 +1,7 @@
-<ul .massinput--row .#{"massinput--dim" <> toPathPiece dimIx}>
+<ul .massinput__row .#{"massinput--dim" <> toPathPiece dimIx}>
$forall (cellCoord, cell) <- cells
- <li .massinput--cell data-massinput-coord=#{toPathPiece cellCoord}>
+ <li .massinput__cell data-massinput-coord=#{toPathPiece cellCoord}>
^{cell}
$maybe add <- addWidget
- <li .massinput--add>
+ <li .massinput__cell.massinput__cell--add>
^{add}
diff --git a/templates/widgets/massinput/submissionUsers/add.hamlet b/templates/widgets/massinput/submissionUsers/add.hamlet
new file mode 100644
index 000000000..7986b68e3
--- /dev/null
+++ b/templates/widgets/massinput/submissionUsers/add.hamlet
@@ -0,0 +1,6 @@
+$newline never
+<td colspan=2>
+ #{csrf}
+ ^{fvInput addView}
+<td>
+ ^{fvInput btn}
diff --git a/templates/widgets/massinput/submissionUsers/cellInvitation.hamlet b/templates/widgets/massinput/submissionUsers/cellInvitation.hamlet
new file mode 100644
index 000000000..6050ac678
--- /dev/null
+++ b/templates/widgets/massinput/submissionUsers/cellInvitation.hamlet
@@ -0,0 +1,10 @@
+ $newline never
+ <td>
+ #{csrf}
+ <span style="font-family: monospace">
+ #{email}
+ <td>
+ <div .tooltip>
+ <div .tooltip__handle>
+ <div .tooltip__content>
+ _{MsgEmailInvitationWarning}
diff --git a/templates/widgets/massinput/submissionUsers/cellKnown.hamlet b/templates/widgets/massinput/submissionUsers/cellKnown.hamlet
new file mode 100644
index 000000000..f6d3beaef
--- /dev/null
+++ b/templates/widgets/massinput/submissionUsers/cellKnown.hamlet
@@ -0,0 +1,4 @@
+$newline never
+<td colspan=2>
+ #{csrf}
+ ^{nameEmailWidget userEmail userDisplayName userSurname}
diff --git a/templates/widgets/massinput/submissionUsers/layout.hamlet b/templates/widgets/massinput/submissionUsers/layout.hamlet
new file mode 100644
index 000000000..f1842a72f
--- /dev/null
+++ b/templates/widgets/massinput/submissionUsers/layout.hamlet
@@ -0,0 +1,13 @@
+$newline never
+<table>
+ <tbody>
+ $forall coord <- review liveCoords lLength
+ <tr .massinput__cell>
+ ^{cellWdgts ! coord}
+ <td>
+ $maybe delButton <- delButtons !? coord
+ ^{fvInput delButton}
+ $maybe addWdgt <- addWdgts !? (0, 0)
+ <tfoot>
+ <tr .massinput__cell.massinput__cell--add>
+ ^{addWdgt}
diff --git a/templates/widgets/massinput/uploadSpecificFiles/add.hamlet b/templates/widgets/massinput/uploadSpecificFiles/add.hamlet
new file mode 100644
index 000000000..6ef4903fb
--- /dev/null
+++ b/templates/widgets/massinput/uploadSpecificFiles/add.hamlet
@@ -0,0 +1,4 @@
+$newline never
+^{formWidget}
+<td>
+ ^{fvInput submitView}
diff --git a/templates/widgets/massinput/uploadSpecificFiles/form.hamlet b/templates/widgets/massinput/uploadSpecificFiles/form.hamlet
new file mode 100644
index 000000000..46e856c46
--- /dev/null
+++ b/templates/widgets/massinput/uploadSpecificFiles/form.hamlet
@@ -0,0 +1,4 @@
+$newline never
+<td>#{csrf}^{fvInput labelView}
+<td>^{fvInput nameView}
+<td>^{fvInput reqView}
diff --git a/templates/widgets/massinput/uploadSpecificFiles/layout.hamlet b/templates/widgets/massinput/uploadSpecificFiles/layout.hamlet
new file mode 100644
index 000000000..15911ac06
--- /dev/null
+++ b/templates/widgets/massinput/uploadSpecificFiles/layout.hamlet
@@ -0,0 +1,16 @@
+$newline never
+<table>
+ <thead>
+ <th>_{MsgUploadSpecificFileLabel}
+ <th>_{MsgUploadSpecificFileName}
+ <th>_{MsgUploadSpecificFileRequired}
+ <td>
+ <tbody>
+ $forall coord <- review liveCoords lLength
+ <tr .massinput__cell>
+ ^{cellWdgts ! coord}
+ <td>
+ ^{fvInput (delButtons ! coord)}
+ <tfoot>
+ <tr .massinput__cell.massinput__cell--add>
+ ^{addWdgts ! (0, 0)}
diff --git a/templates/widgets/modal/modal.hamlet b/templates/widgets/modal/modal.hamlet
index 6381305e7..b801967f6 100644
--- a/templates/widgets/modal/modal.hamlet
+++ b/templates/widgets/modal/modal.hamlet
@@ -1,5 +1,5 @@
$newline never
-<div .modal.js-modal #modal-#{modalId'} data-trigger=#{triggerId'} data-closeable :isDynamic:data-dynamic>
+<div uw-modal data-modal-trigger=#{triggerId'} data-modal-closeable>
$case modalContent
$of Right content
<div .modal__content>
diff --git a/templates/widgets/modal/modal.julius b/templates/widgets/modal/modal.julius
deleted file mode 100644
index 9d4ccf539..000000000
--- a/templates/widgets/modal/modal.julius
+++ /dev/null
@@ -1,6 +0,0 @@
-document.addEventListener('DOMContentLoaded', function() {
- var modal = document.querySelector('#modal-' + #{String modalId'});
- if (modal) {
- window.utils.setup('modal', modal);
- }
-});
diff --git a/templates/widgets/multi-action/multi-action-collect.hamlet b/templates/widgets/multi-action/multi-action-collect.hamlet
deleted file mode 100644
index 480c54a63..000000000
--- a/templates/widgets/multi-action/multi-action-collect.hamlet
+++ /dev/null
@@ -1,4 +0,0 @@
-^{fvInput actionView}
-
-$forall w <- actionWidgets
- ^{w}
diff --git a/templates/widgets/multi-action/multi-action.hamlet b/templates/widgets/multi-action/multi-action.hamlet
index 71e3acf14..f8b284f24 100644
--- a/templates/widgets/multi-action/multi-action.hamlet
+++ b/templates/widgets/multi-action/multi-action.hamlet
@@ -1,4 +1,4 @@
-<fieldset data-conditional-id="#{fvId actionView}" data-conditional-value="#{toPathPiece act}">
+<fieldset uw-interactive-fieldset data-conditional-input=#{fvId actionView} data-conditional-value=#{toPathPiece act}>
<legend>
_{act}
^{w}
diff --git a/templates/widgets/multiFileField.hamlet b/templates/widgets/multiFileField.hamlet
new file mode 100644
index 000000000..48af3d786
--- /dev/null
+++ b/templates/widgets/multiFileField.hamlet
@@ -0,0 +1,27 @@
+$newline never
+$if not (null fileInfos)
+ <div .file-uploads-label>_{MsgPreviouslyUploadedInfo}
+ <ol .file-input__list>
+ $forall FileUploadInfo{..} <- fileInfos
+ <li>
+ <div .file-container>
+ <label for=#{fuiHtmlId}>#{fuiTitle}
+ <input type=checkbox id=#{fuiHtmlId} name=#{fieldName} :fuiChecked:checked value=#{toPathPiece fuiId}>
+
+ <div .file-input__info>
+ _{MsgPreviouslyUploadedDeletionInfo}
+
+ <div .file-uploads-label>_{MsgAddMoreFiles}
+
+$# new files
+<input type="file" uw-file-input name=#{fieldName} id=#{fieldId} multiple :req:required="required">
+
+<div .file-input__info>
+ _{MsgMultiFileUploadInfo}
+
+<div .file-input__unpack>
+ <label for=#{fieldId}_zip>ZIPs automatisch entpacken
+ <input type=checkbox id=#{fieldId}_zip name=#{fieldName} value=#{unpackZips}>
+ <div class="tooltip">
+ <div class="tooltip__handle">
+ <div class="tooltip__content">Entpackt hochgeladene Zip-Dateien (*.zip) automatisch und fügt den Inhalt dem Stamm-Verzeichnis der Abgabe hinzu.
diff --git a/templates/widgets/multiFileField.lucius b/templates/widgets/multiFileField.lucius
new file mode 100644
index 000000000..7c2d489a5
--- /dev/null
+++ b/templates/widgets/multiFileField.lucius
@@ -0,0 +1,11 @@
+.file-input__unpack {
+ font-size: .9rem;
+ display: flex;
+ align-items: center;
+ margin-top: 10px;
+
+ .checkbox {
+ display: inline-block;
+ margin-left: 7px;
+ }
+}
diff --git a/templates/widgets/navbar/item.hamlet b/templates/widgets/navbar/item.hamlet
index 470ea054f..156844387 100644
--- a/templates/widgets/navbar/item.hamlet
+++ b/templates/widgets/navbar/item.hamlet
@@ -1,3 +1,6 @@
+$newline never
<a .navbar__link-wrapper href=#{route} ##{menuIdent}>
- <i .fas.fa-#{fromMaybe "none" menuItemIcon}>
+ $if isJust menuItemIcon
+ <div .navbar__link-icon>
+ <i .fas.fa-2x.fa-#{fromMaybe "none" menuItemIcon}>
<div .navbar__link-label>_{SomeMessage menuItemLabel}
diff --git a/templates/widgets/navbar/navbar.julius b/templates/widgets/navbar/navbar.julius
deleted file mode 100644
index 13dbe009a..000000000
--- a/templates/widgets/navbar/navbar.julius
+++ /dev/null
@@ -1,31 +0,0 @@
-(function () {
- 'use strict';
-
- window.utils = window.utils || {};
-
- window.utils.stickynav = function (nav) {
- var ticking = false;
-
- init();
- function init() {
- window.addEventListener('scroll', function (e) {
- if (!ticking) {
- window.requestAnimationFrame(update);
- ticking = true;
- }
- }, false);
- update();
- }
-
- function update() {
- var sticky = window.scrollY > 30;
- nav.classList.toggle('navbar--sticky', sticky);
- ticking = false;
- }
- }
-
-})();
-
-document.addEventListener('setup', function (e) {
- // utils.stickynav(e.detail.scope.querySelector('.js-sticky-navbar'));
-});
diff --git a/templates/widgets/navbar/navbar.lucius b/templates/widgets/navbar/navbar.lucius
index 335c59d03..ce25a3588 100644
--- a/templates/widgets/navbar/navbar.lucius
+++ b/templates/widgets/navbar/navbar.lucius
@@ -61,27 +61,38 @@
display: flex;
flex-direction: column;
justify-content: flex-end;
- align-items: flex-start;
+ align-items: center;
height: 80px;
min-width: 90px;
color: var(--color-lightwhite);
transition: height .2s cubic-bezier(0.03, 0.43, 0.58, 1);
+ overflow: hidden;
&:hover {
color: var(--color-lightwhite);
+
+ .navbar__link-icon {
+ opacity: 1;
+ }
}
}
+.navbar__link-icon {
+ opacity: 0.7;
+ transition: opacity 0.2s ease;
+ margin-bottom: 7px;
+}
+
.navbar__link-label {
transition: opacity .2s ease;
- padding: 4px 6px;
+ padding: 2px 4px;
text-transform: uppercase;
}
@media (min-width: 769px) {
.navbar__link-wrapper {
- border: 1px solid var(--color-lmu-box-border);
+ border: 1px solid rgba(255, 255, 255, 0.7);
}
}
@@ -97,6 +108,11 @@
.navbar__link-label {
padding: 0 7px;
}
+
+ .navbar__link-icon {
+ transform: scale(0.65);
+ margin-bottom: 0;
+ }
}
/* navbar list */
@@ -120,7 +136,7 @@
.navbar__list {
+ .navbar__list {
margin-left: 0;
- padding-right: 80px;
+ padding-right: 40px;
}
}
}
@@ -133,21 +149,6 @@
&:not(.navbar__list-item--favorite) + .navbar__list-item {
margin-left: 12px;
}
-
- .fas {
- height: 20px;
- margin-left: 8px;
- }
-}
-
-@media (max-width: 768px) {
-
- .navbar__list-item {
-
- .fas {
- margin-left: 0;
- }
- }
}
@media (max-width: 500px) {
diff --git a/templates/widgets/occurrence/cell.hamlet b/templates/widgets/occurrence/cell.hamlet
new file mode 100644
index 000000000..295b3ae24
--- /dev/null
+++ b/templates/widgets/occurrence/cell.hamlet
@@ -0,0 +1,12 @@
+$newline never
+<ul .list--inline .list--iconless .list--comma-separated>
+ $forall sched <- occurrencesScheduled'
+ <li>^{sched}
+
+$if not (null occurrencesExceptions)
+ $# <div .tooltip>
+ $# <div .tooltip__handle .tooltip__handle--danger>
+ $# <div .tooltip__content>
+ <ul>
+ $forall exc <- occurrencesExceptions'
+ <li>^{exc}
diff --git a/templates/widgets/occurrence/cell/except-no-occur.hamlet b/templates/widgets/occurrence/cell/except-no-occur.hamlet
new file mode 100644
index 000000000..0019439a5
--- /dev/null
+++ b/templates/widgets/occurrence/cell/except-no-occur.hamlet
@@ -0,0 +1,2 @@
+$newline never
+_{MsgExceptionKindNoOccur}: #{exceptTime'}
diff --git a/templates/widgets/occurrence/cell/except-no-occurr.hamlet b/templates/widgets/occurrence/cell/except-no-occurr.hamlet
new file mode 100644
index 000000000..0019439a5
--- /dev/null
+++ b/templates/widgets/occurrence/cell/except-no-occurr.hamlet
@@ -0,0 +1,2 @@
+$newline never
+_{MsgExceptionKindNoOccur}: #{exceptTime'}
diff --git a/templates/widgets/occurrence/cell/except-occur.hamlet b/templates/widgets/occurrence/cell/except-occur.hamlet
new file mode 100644
index 000000000..2d8147d8b
--- /dev/null
+++ b/templates/widgets/occurrence/cell/except-occur.hamlet
@@ -0,0 +1,2 @@
+$newline never
+_{MsgExceptionKindOccur}: #{exceptStart'}–#{exceptEnd'}
diff --git a/templates/widgets/occurrence/cell/except-occurr.hamlet b/templates/widgets/occurrence/cell/except-occurr.hamlet
new file mode 100644
index 000000000..2d8147d8b
--- /dev/null
+++ b/templates/widgets/occurrence/cell/except-occurr.hamlet
@@ -0,0 +1,2 @@
+$newline never
+_{MsgExceptionKindOccur}: #{exceptStart'}–#{exceptEnd'}
diff --git a/templates/widgets/occurrence/cell/weekly.hamlet b/templates/widgets/occurrence/cell/weekly.hamlet
new file mode 100644
index 000000000..0e3a39c2c
--- /dev/null
+++ b/templates/widgets/occurrence/cell/weekly.hamlet
@@ -0,0 +1,2 @@
+$newline never
+_{ShortWeekDay scheduleDayOfWeek} #{scheduleStart'}–#{scheduleEnd'}
diff --git a/templates/widgets/occurrence/form/except-add.hamlet b/templates/widgets/occurrence/form/except-add.hamlet
new file mode 100644
index 000000000..bcb16ecfa
--- /dev/null
+++ b/templates/widgets/occurrence/form/except-add.hamlet
@@ -0,0 +1,5 @@
+$newline never
+<td colspan=2>
+ ^{addWidget}
+<td>
+ ^{fvInput submitView}
diff --git a/templates/widgets/occurrence/form/except-layout.hamlet b/templates/widgets/occurrence/form/except-layout.hamlet
new file mode 100644
index 000000000..65352dd95
--- /dev/null
+++ b/templates/widgets/occurrence/form/except-layout.hamlet
@@ -0,0 +1,11 @@
+$newline never
+<table>
+ <tbody>
+ $forall coord <- review liveCoords lLength
+ <tr .massinput__cell>
+ ^{cellWdgts ! coord}
+ <td>
+ ^{fvInput (delButtons ! coord)}
+ <tfoot>
+ <tr .massinput__cell.massinput__cell--add>
+ ^{addWdgts ! (0, 0)}
diff --git a/templates/widgets/occurrence/form/except-no-occur.hamlet b/templates/widgets/occurrence/form/except-no-occur.hamlet
new file mode 100644
index 000000000..17f441f9d
--- /dev/null
+++ b/templates/widgets/occurrence/form/except-no-occur.hamlet
@@ -0,0 +1,5 @@
+$newline never
+<td>
+ _{ExceptionKindNoOccur}
+<td>
+ #{exceptTime'}
diff --git a/templates/widgets/occurrence/form/except-occur.hamlet b/templates/widgets/occurrence/form/except-occur.hamlet
new file mode 100644
index 000000000..60d567e32
--- /dev/null
+++ b/templates/widgets/occurrence/form/except-occur.hamlet
@@ -0,0 +1,5 @@
+$newline never
+<td>
+ _{ExceptionKindOccur}
+<td>
+ #{exceptStart'}–#{exceptEnd'}
diff --git a/templates/widgets/occurrence/form/scheduled-add.hamlet b/templates/widgets/occurrence/form/scheduled-add.hamlet
new file mode 100644
index 000000000..bcb16ecfa
--- /dev/null
+++ b/templates/widgets/occurrence/form/scheduled-add.hamlet
@@ -0,0 +1,5 @@
+$newline never
+<td colspan=2>
+ ^{addWidget}
+<td>
+ ^{fvInput submitView}
diff --git a/templates/widgets/occurrence/form/scheduled-layout.hamlet b/templates/widgets/occurrence/form/scheduled-layout.hamlet
new file mode 100644
index 000000000..65352dd95
--- /dev/null
+++ b/templates/widgets/occurrence/form/scheduled-layout.hamlet
@@ -0,0 +1,11 @@
+$newline never
+<table>
+ <tbody>
+ $forall coord <- review liveCoords lLength
+ <tr .massinput__cell>
+ ^{cellWdgts ! coord}
+ <td>
+ ^{fvInput (delButtons ! coord)}
+ <tfoot>
+ <tr .massinput__cell.massinput__cell--add>
+ ^{addWdgts ! (0, 0)}
diff --git a/templates/widgets/occurrence/form/weekly.hamlet b/templates/widgets/occurrence/form/weekly.hamlet
new file mode 100644
index 000000000..accd1f4ef
--- /dev/null
+++ b/templates/widgets/occurrence/form/weekly.hamlet
@@ -0,0 +1,5 @@
+$newline never
+<td>
+ _{ScheduleKindWeekly}
+<td>
+ _{scheduleDayOfWeek}, #{scheduleStart'}–#{scheduleEnd'}
diff --git a/templates/widgets/pageaction/pageaction.hamlet b/templates/widgets/pageaction/pageaction.hamlet
index b7dcfc86e..094c701b3 100644
--- a/templates/widgets/pageaction/pageaction.hamlet
+++ b/templates/widgets/pageaction/pageaction.hamlet
@@ -7,7 +7,7 @@ $newline never
$of PageActionPrime
<div .pagenav__list-item>
$if menuItemModal
- <div .modal.js-modal #modal-#{menuIdent} data-trigger=#{menuIdent} data-closeable data-dynamic>
+ <div uw-modal data-modal-trigger=#{menuIdent} data-modal-closeable>
<a .pagenav__link-wrapper href=#{route} ##{menuIdent}>_{SomeMessage menuItemLabel}
$of _
$if hasSecondaryPageActions
@@ -18,6 +18,6 @@ $newline never
$of PageActionSecondary
<div .pagenav__list-item.pagenav__list-item--secondary>
$if menuItemModal
- <div .modal.js-modal #modal-#{menuIdent} data-trigger=#{menuIdent} data-closeable data-dynamic>
+ <div uw-modal data-modal-trigger=#{menuIdent} data-modal-closeable>
<a .pagenav__link-wrapper.pagenav__link-wrapper--secondary href=#{route} ##{menuIdent}>_{SomeMessage menuItemLabel}
$of _
diff --git a/templates/widgets/pageaction/pageaction.julius b/templates/widgets/pageaction/pageaction.julius
deleted file mode 100644
index e69de29bb..000000000
diff --git a/templates/widgets/pageaction/pageaction.lucius b/templates/widgets/pageaction/pageaction.lucius
index 29977228d..2ff7297f9 100644
--- a/templates/widgets/pageaction/pageaction.lucius
+++ b/templates/widgets/pageaction/pageaction.lucius
@@ -1,6 +1,9 @@
.pagenav {
display: flex;
align-items: flex-start;
+ padding-bottom: 15px;
+ margin-bottom: 20px;
+ border-bottom: 1px solid #eee;
}
.pagenav__list-item {
@@ -42,9 +45,14 @@
box-shadow: 0 0 2px 0 rgba(0, 0, 0, 0.6);
box-sizing: border-box;
text-align: center;
+ transition: box-shadow 0.2s ease;
}
&:hover {
+ &::after {
+ box-shadow: 0 0 4px 0 rgba(0, 0, 0, 0.8);
+ }
+
.pagenav-secondary__list {
display: block;
}
@@ -55,7 +63,7 @@
position: absolute;
display: none;
left: 0;
- top: 10px;
+ top: 50px;
width: 250px;
background-color: white;
box-shadow: 0 0 6px 3px var(--color-grey-light);
diff --git a/templates/widgets/register-form/register-form.hamlet b/templates/widgets/register-form/register-form.hamlet
index c9a9fa1a3..347b94186 100644
--- a/templates/widgets/register-form/register-form.hamlet
+++ b/templates/widgets/register-form/register-form.hamlet
@@ -1,3 +1,4 @@
+$newline never
$# extra protects us against CSRF
#{extra}
$# Maybe display textField for passcode
diff --git a/templates/widgets/specificFileField.hamlet b/templates/widgets/specificFileField.hamlet
new file mode 100644
index 000000000..2f77bae30
--- /dev/null
+++ b/templates/widgets/specificFileField.hamlet
@@ -0,0 +1,8 @@
+$newline never
+<input type=file uw-file-input ##{fieldId} *{attrs} name=#{fieldName} :req:required :acceptRestricted:accept=#{accept}>
+$if acceptRestricted
+ <br>
+ _{MsgUploadModeExtensionRestriction}:
+ <ul .list--inline .list--comma-separated .list--iconless>
+ $forall ext <- extensions
+ <li style="font-family: monospace">#{ext}
diff --git a/templates/widgets/zipFileField.hamlet b/templates/widgets/zipFileField.hamlet
new file mode 100644
index 000000000..301d16c4b
--- /dev/null
+++ b/templates/widgets/zipFileField.hamlet
@@ -0,0 +1,8 @@
+$newline never
+<input type=file uw-file-input ##{fieldId} *{attrs} name=#{fieldName} :req:required :acceptRestricted:accept=#{accept}>
+$maybe exts <- fmap toNullable permittedExtensions
+ <br>
+ _{MsgUploadModeExtensionRestriction}:
+ <ul .list--inline .list--comma-separated .list--iconless>
+ $forall ext <- bool id (mappend zipExtensions) doUnpack exts
+ <li style="font-family: monospace">#{ext}
diff --git a/test.sh b/test.sh
index 7db64f3c6..1125cf325 100755
--- a/test.sh
+++ b/test.sh
@@ -1,3 +1,14 @@
#!/usr/bin/env bash
+move-back() {
+ mv -v .stack-work .stack-work-test
+ [[ -d .stack-work-build ]] && mv -v .stack-work-build .stack-work
+}
+
+if [[ -d .stack-work-test ]]; then
+ [[ -d .stack-work ]] && mv -v .stack-work .stack-work-build
+ mv -v .stack-work-test .stack-work
+ trap move-back EXIT
+fi
+
exec -- stack build --test --coverage --fast --flag uniworx:dev --flag uniworx:library-only ${@}
diff --git a/test/Database.hs b/test/Database.hs
index 2c1992fa1..6efa2748b 100755
--- a/test/Database.hs
+++ b/test/Database.hs
@@ -6,13 +6,11 @@ module Database
import "uniworx" Import hiding (Option(..))
import "uniworx" Application (db, getAppDevSettings)
-import "uniworx" Jobs (stopJobCtl)
import Data.Pool (destroyAllResources)
import Database.Persist.Postgresql
import Control.Monad.Logger
-import Control.Monad.Trans.Resource
import System.Console.GetOpt
import System.Exit (exitWith, ExitCode(..))
@@ -22,11 +20,11 @@ import System.FilePath ((</>))
import qualified Data.ByteString as BS
-import Data.Time
-
-import Utils.Lens (review)
+import Utils.Lens (review, view)
import Control.Monad.Random.Class (MonadRandom(..))
+import qualified Data.Set as Set
+
data DBAction = DBClear
| DBTruncate
@@ -35,10 +33,10 @@ data DBAction = DBClear
argsDescr :: [OptDescr DBAction]
argsDescr =
- [ Option ['c'] ["clear"] (NoArg DBClear) "Delete everything accessable by the current database user"
- , Option ['t'] ["truncate"] (NoArg DBTruncate) "Truncate all tables mentioned in the current schema (This cannot be run concurrently with any other activity accessing the database)"
- , Option ['m'] ["migrate"] (NoArg DBMigrate) "Perform database migration"
- , Option ['f'] ["fill"] (NoArg DBFill) "Fill database with example data"
+ [ Option ['c'] ["clear"] (NoArg DBClear) "Delete everything accessable by the current database user"
+ , Option ['t'] ["truncate"] (NoArg DBTruncate) "Truncate all tables mentioned in the current schema (This cannot be run concurrently with any other activity accessing the database)"
+ , Option ['m'] ["migrate"] (NoArg DBMigrate) "Perform database migration"
+ , Option ['f'] ["fill"] (NoArg DBFill) "Fill database with example data"
]
@@ -53,8 +51,6 @@ main = do
rawExecute "drop owned by current_user;" []
DBTruncate -> db $ do
foundation <- getYesod
- stopJobCtl foundation
- release . fst $ appLogger foundation
liftIO . destroyAllResources $ appConnPool foundation
truncateDb
DBMigrate -> db $ return ()
@@ -82,7 +78,7 @@ insertFile fileTitle = do
fillDb :: DB ()
fillDb = do
- AppSettings{ appUserDefaults = UserDefaultConf{..}, .. } <- getsYesod appSettings
+ AppSettings{ appUserDefaults = UserDefaultConf{..}, .. } <- getsYesod $ view appSettings
now <- liftIO getCurrentTime
let
insert' :: PersistRecordBackend r (YesodPersistBackend UniWorX) => r -> YesodDB UniWorX (Key r)
@@ -94,6 +90,7 @@ fillDb = do
{ userIdent = "G.Kleen@campus.lmu.de"
, userAuthentication = AuthLDAP
, userLastAuthentication = Just now
+ , userTokensIssuedAfter = Just now
, userMatrikelnummer = Nothing
, userEmail = "G.Kleen@campus.lmu.de"
, userDisplayName = "Gregor Kleen"
@@ -111,6 +108,7 @@ fillDb = do
{ userIdent = "felix.hamann@campus.lmu.de"
, userAuthentication = AuthLDAP
, userLastAuthentication = Nothing
+ , userTokensIssuedAfter = Nothing
, userMatrikelnummer = Nothing
, userEmail = "felix.hamann@campus.lmu.de"
, userDisplayName = "Felix Hamann"
@@ -128,6 +126,7 @@ fillDb = do
{ userIdent = "jost@tcs.ifi.lmu.de"
, userAuthentication = AuthLDAP
, userLastAuthentication = Nothing
+ , userTokensIssuedAfter = Nothing
, userMatrikelnummer = Nothing
, userEmail = "jost@tcs.ifi.lmu.de"
, userDisplayName = "Steffen Jost"
@@ -145,6 +144,7 @@ fillDb = do
{ userIdent = "max@campus.lmu.de"
, userAuthentication = AuthLDAP
, userLastAuthentication = Just now
+ , userTokensIssuedAfter = Nothing
, userMatrikelnummer = Just "1299"
, userEmail = "max@campus.lmu.de"
, userDisplayName = "Max Musterstudent"
@@ -162,6 +162,7 @@ fillDb = do
{ userIdent = "tester@campus.lmu.de"
, userAuthentication = AuthLDAP
, userLastAuthentication = Nothing
+ , userTokensIssuedAfter = Nothing
, userMatrikelnummer = Just "999"
, userEmail = "tester@campus.lmu.de"
, userDisplayName = "Tina Tester"
@@ -175,6 +176,24 @@ fillDb = do
, userMailLanguages = MailLanguages ["de"]
, userNotificationSettings = def
}
+ svaupel <- insert User
+ { userIdent = "vaupel.sarah@campus.lmu.de"
+ , userAuthentication = AuthLDAP
+ , userLastAuthentication = Nothing
+ , userTokensIssuedAfter = Nothing
+ , userMatrikelnummer = Nothing
+ , userEmail = "vaupel.sarah@campus.lmu.de"
+ , userDisplayName = "Sarah Vaupel"
+ , userSurname = "Vaupel"
+ , userMaxFavourites = 14
+ , userTheme = ThemeMossGreen
+ , userDateTimeFormat = userDefaultDateTimeFormat
+ , userDateFormat = userDefaultDateFormat
+ , userTimeFormat = userDefaultTimeFormat
+ , userDownloadFiles = userDefaultDownloadFiles
+ , userMailLanguages = MailLanguages ["de"]
+ , userNotificationSettings = def
+ }
void . repsert (TermKey summer2017) $ Term
{ termName = summer2017
, termStart = fromGregorian 2017 04 09
@@ -209,9 +228,12 @@ fillDb = do
void . insert' $ UserAdmin fhamann ifi
void . insert' $ UserAdmin jost ifi
void . insert' $ UserAdmin jost mi
+ void . insert' $ UserAdmin svaupel ifi
+ void . insert' $ UserAdmin svaupel mi
void . insert' $ UserLecturer gkleen ifi
void . insert' $ UserLecturer fhamann ifi
void . insert' $ UserLecturer jost ifi
+ void . insert' $ UserLecturer svaupel ifi
let
sdBsc = StudyDegreeKey' 82
sdMst = StudyDegreeKey' 88
@@ -392,11 +414,11 @@ fillDb = do
void . insert $ DegreeCourse ffp sdMst sdInf
void . insert $ Lecturer jost ffp CourseLecturer
void . insert $ Lecturer gkleen ffp CourseAssistant
- adhoc <- insert $ Sheet ffp "AdHoc-Gruppen" Nothing NotGraded (Arbitrary 3) Nothing Nothing now now Nothing Nothing (Upload True) UserSubmissions False
+ adhoc <- insert $ Sheet ffp "AdHoc-Gruppen" Nothing NotGraded (Arbitrary 3) Nothing Nothing now now Nothing Nothing (SubmissionMode False . Just $ UploadAny True Nothing) False
insert_ $ SheetEdit gkleen now adhoc
- feste <- insert $ Sheet ffp "Feste Gruppen" Nothing NotGraded RegisteredGroups Nothing Nothing now now Nothing Nothing (Upload True) UserSubmissions False
+ feste <- insert $ Sheet ffp "Feste Gruppen" Nothing NotGraded RegisteredGroups Nothing Nothing now now Nothing Nothing (SubmissionMode False . Just $ UploadAny True Nothing) False
insert_ $ SheetEdit gkleen now feste
- keine <- insert $ Sheet ffp "Keine Gruppen" Nothing NotGraded NoGroups Nothing Nothing now now Nothing Nothing (Upload True) UserSubmissions False
+ keine <- insert $ Sheet ffp "Keine Gruppen" Nothing NotGraded NoGroups Nothing Nothing now now Nothing Nothing (SubmissionMode False . Just $ UploadAny True Nothing) False
insert_ $ SheetEdit gkleen now keine
void . insertMany $ map (\(u,sf) -> CourseParticipant ffp u now sf)
[(fhamann , Nothing)
@@ -483,7 +505,7 @@ fillDb = do
]
sh1 <- insert Sheet
{ sheetCourse = pmo
- , sheetName = "Blatt 1"
+ , sheetName = "Papierabgabe"
, sheetDescription = Nothing
, sheetType = Normal $ Points 6
, sheetGrouping = Arbitrary 3
@@ -491,8 +513,7 @@ fillDb = do
, sheetVisibleFrom = Just now
, sheetActiveFrom = now
, sheetActiveTo = (14 * nominalDay) `addUTCTime` now
- , sheetSubmissionMode = CorrectorSubmissions
- , sheetUploadMode = Upload True
+ , sheetSubmissionMode = SubmissionMode True Nothing
, sheetHintFrom = Nothing
, sheetSolutionFrom = Nothing
, sheetAutoDistribute = True
@@ -511,11 +532,110 @@ fillDb = do
void . insert $ SheetFile sh1 h103 SheetSolution
void . insert $ SheetFile sh1 pdf10 SheetExercise
--
- sub1 <- insert $ Submission sh1 Nothing Nothing Nothing Nothing Nothing
+ sub1 <- insert $ Submission
+ { submissionSheet = sh1
+ , submissionRatingPoints = Nothing
+ , submissionRatingComment = Nothing
+ , submissionRatingBy = Just gkleen
+ , submissionRatingAssigned = Just now
+ , submissionRatingTime = Nothing
+ }
void . insert $ SubmissionEdit maxMuster (nominalDay `addUTCTime` now) sub1
void . insert $ SubmissionUser maxMuster sub1
sub1fid1 <- insertFile "AbgabeH10-1.hs"
void . insert $ SubmissionFile sub1 sub1fid1 False False
+ sub2 <- insert $ Submission sh1 Nothing Nothing Nothing Nothing Nothing
+ void . insert $ SubmissionEdit fhamann now sub2
+ void . insert $ SubmissionUser fhamann sub2
+ sh2 <- insert Sheet
+ { sheetCourse = pmo
+ , sheetName = "Spezifische Abgabe"
+ , sheetDescription = Nothing
+ , sheetType = Normal $ Points 6
+ , sheetGrouping = Arbitrary 3
+ , sheetMarkingText = Nothing
+ , sheetVisibleFrom = Just now
+ , sheetActiveFrom = now
+ , sheetActiveTo = (14 * nominalDay) `addUTCTime` now
+ , sheetSubmissionMode = SubmissionMode False $ Just UploadSpecific
+ { specificFiles = impureNonNull $ Set.fromList
+ [ UploadSpecificFile "Aufgabe 1" "exercise_2.1.hs" False
+ , UploadSpecificFile "Aufgabe 2" "exercise_2.2.hs" False
+ , UploadSpecificFile "Erklärung der Eigenständigkeit" "erklärung.txt" True
+ ]
+ }
+ , sheetHintFrom = Nothing
+ , sheetSolutionFrom = Nothing
+ , sheetAutoDistribute = True
+ }
+ void . insert $ SheetEdit jost now sh2
+ sh3 <- insert Sheet
+ { sheetCourse = pmo
+ , sheetName = "Dateiendung-eingeschränkte Abgabe"
+ , sheetDescription = Nothing
+ , sheetType = Normal $ Points 6
+ , sheetGrouping = Arbitrary 3
+ , sheetMarkingText = Nothing
+ , sheetVisibleFrom = Just now
+ , sheetActiveFrom = now
+ , sheetActiveTo = (14 * nominalDay) `addUTCTime` now
+ , sheetSubmissionMode = SubmissionMode False . Just $ UploadAny True defaultExtensionRestriction
+ , sheetHintFrom = Nothing
+ , sheetSolutionFrom = Nothing
+ , sheetAutoDistribute = True
+ }
+ void . insert $ SheetEdit jost now sh3
+ sh4 <- insert Sheet
+ { sheetCourse = pmo
+ , sheetName = "Uneingeschränkte Abgabe, einzelne Datei"
+ , sheetDescription = Nothing
+ , sheetType = Normal $ Points 6
+ , sheetGrouping = Arbitrary 3
+ , sheetMarkingText = Nothing
+ , sheetVisibleFrom = Just now
+ , sheetActiveFrom = now
+ , sheetActiveTo = (14 * nominalDay) `addUTCTime` now
+ , sheetSubmissionMode = SubmissionMode False . Just $ UploadAny False Nothing
+ , sheetHintFrom = Nothing
+ , sheetSolutionFrom = Nothing
+ , sheetAutoDistribute = True
+ }
+ void . insert $ SheetEdit jost now sh4
+ tut1 <- insert Tutorial
+ { tutorialName = "Di08"
+ , tutorialCourse = pmo
+ , tutorialType = "Tutorium"
+ , tutorialCapacity = Just 30
+ , tutorialRoom = "Hilbert-Raum"
+ , tutorialTime = Occurrences
+ { occurrencesScheduled = Set.singleton $ ScheduleWeekly Tuesday (TimeOfDay 08 15 00) (TimeOfDay 10 00 00)
+ , occurrencesExceptions = Set.empty
+ }
+ , tutorialRegGroup = Just "tutorium"
+ , tutorialRegisterFrom = Just now
+ , tutorialRegisterTo = Nothing
+ , tutorialDeregisterUntil = Nothing
+ , tutorialLastChanged = now
+ }
+ void . insert $ Tutor tut1 gkleen
+ void . insert $ TutorialParticipant tut1 fhamann
+ tut2 <- insert Tutorial
+ { tutorialName = "Di10"
+ , tutorialCourse = pmo
+ , tutorialType = "Tutorium"
+ , tutorialCapacity = Just 30
+ , tutorialRoom = "Hilbert-Raum"
+ , tutorialTime = Occurrences
+ { occurrencesScheduled = Set.singleton $ ScheduleWeekly Tuesday (TimeOfDay 10 15 00) (TimeOfDay 12 00 00)
+ , occurrencesExceptions = Set.empty
+ }
+ , tutorialRegGroup = Just "tutorium"
+ , tutorialRegisterFrom = Just now
+ , tutorialRegisterTo = Nothing
+ , tutorialDeregisterUntil = Nothing
+ , tutorialLastChanged = now
+ }
+ void . insert $ Tutor tut2 gkleen
-- datenbanksysteme
dbs <- insert' Course
{ courseName = "Datenbanksysteme"
@@ -536,3 +656,8 @@ fillDb = do
void . insert' $ DegreeCourse dbs sdBsc sdMath
void . insert' $ Lecturer gkleen dbs CourseLecturer
void . insert' $ Lecturer jost dbs CourseAssistant
+
+ void . insert $ SystemMessage (Just now) Nothing False Success "de" "System-Nachrichten werden angezeigt" Nothing
+ void . insert $ SystemMessage (Just now) Nothing False Info "de" "System-Nachrichten können längeren Inhalt enthalten" (Just "System-Nachricht Zusammenfassung")
+ void . insert $ SystemMessage (Just now) (Just now) False Info "de" "System-Nachrichten haben Ablaufdaten" Nothing
+ void . insert $ SystemMessage Nothing Nothing False Error "de" "System-Nachrichten können Inaktiv sein" Nothing
diff --git a/test/FoundationSpec.hs b/test/FoundationSpec.hs
new file mode 100644
index 000000000..1edc9baa2
--- /dev/null
+++ b/test/FoundationSpec.hs
@@ -0,0 +1,56 @@
+module FoundationSpec where
+
+import TestImport
+
+import ModelSpec ()
+
+import qualified Data.CryptoID as CID
+import Yesod.EmbeddedStatic
+
+instance Arbitrary (Route Auth) where
+ arbitrary = oneof
+ [ return CheckR
+ , return LoginR
+ , return LogoutR
+ , PluginR <$> arbitrary <*> arbitrary
+ ]
+
+instance Arbitrary (Route EmbeddedStatic) where
+ arbitrary = embeddedResourceR <$> arbitrary <*> arbitrary
+
+instance Arbitrary CourseR where
+ arbitrary = genericArbitrary
+ shrink = genericShrink
+
+instance Arbitrary SheetR where
+ arbitrary = genericArbitrary
+ shrink = genericShrink
+
+instance Arbitrary SubmissionR where
+ arbitrary = genericArbitrary
+ shrink = genericShrink
+
+instance Arbitrary MaterialR where
+ arbitrary = genericArbitrary
+ shrink = genericShrink
+
+instance Arbitrary TutorialR where
+ arbitrary = genericArbitrary
+ shrink = genericShrink
+
+instance Arbitrary ExamR where
+ arbitrary = genericArbitrary
+ shrink = genericShrink
+
+instance Arbitrary (Route UniWorX) where
+ arbitrary = genericArbitrary
+ shrink = genericShrink
+
+instance Arbitrary a => Arbitrary (CID.CryptoID ns a) where
+ arbitrary = CID.CryptoID <$> arbitrary
+
+spec :: Spec
+spec = do
+ parallel $
+ lawsCheckHspec (Proxy @(Route UniWorX))
+ [ eqLaws, hashableLaws, jsonLaws, jsonKeyLaws, pathPieceLaws ]
diff --git a/test/Handler/Utils/SubmissionSpec.hs b/test/Handler/Utils/SubmissionSpec.hs
new file mode 100644
index 000000000..3e05115dc
--- /dev/null
+++ b/test/Handler/Utils/SubmissionSpec.hs
@@ -0,0 +1,192 @@
+module Handler.Utils.SubmissionSpec where
+
+import qualified Yesod
+
+import TestImport
+-- import qualified Test.HUnit.Base as HUnit
+
+import Handler.Utils.Submission
+import ModelSpec ()
+
+import qualified Data.Set as Set
+import qualified Data.Map as Map
+
+import Data.List (genericLength)
+
+import qualified Data.CaseInsensitive as CI
+
+import System.IO.Unsafe
+
+import System.Random.Shuffle
+import Control.Monad.Random.Class
+
+import Database.Persist.Sql (fromSqlKey)
+
+import qualified Database.Esqueleto as E
+
+-- import Data.Maybe (fromJust)
+
+
+userNumber :: TVar Natural
+userNumber = unsafePerformIO $ newTVarIO 1
+{-# NOINLINE userNumber #-}
+
+makeUsers :: Natural -> SqlPersistM [Entity User]
+makeUsers (fromIntegral -> n) = do
+ users' <- liftIO . replicateM n $ generate arbitrary
+ users <- forM users' $ \u -> do
+ i <- atomically $ readTVar userNumber <* modifyTVar userNumber succ
+ let u' = u { userIdent = CI.mk $ "user." <> tshow i
+ , userEmail = CI.mk $ "user." <> tshow i <> "@example.com"
+ }
+ return u'
+ uids <- insertMany users
+ return $ zipWith Entity uids users
+
+distributionExample :: SqlPersistM [(Natural, [Maybe Load])] -- ^ Number of submissions and corrector specification
+ -> ([Entity Submission] -> [Entity SheetCorrector] -> SqlPersistM ()) -- ^ Setup hook
+ -> (Map (Maybe SheetCorrector) (Set SubmissionId) -> Expectation)
+ -> YesodExample UniWorX ()
+distributionExample mkParameters setupHook cont = do
+ situations <- runDB $ do
+ term <- liftIO $ generate arbitrary
+ void . insert $ term
+ school <- liftIO $ generate arbitrary
+ void . insert $ school
+ course <- liftIO $ generate arbitrary <&> \c -> c { courseTerm = TermKey $ termName term, courseSchool = SchoolKey $ schoolShorthand school }
+ cid <- insert course
+
+ steps <- mkParameters
+ let subsN = maybe 0 maximum . fromNullable $ map fst steps
+ correctorsN = maybe 0 maximum . fromNullable $ map (genericLength . snd) steps
+ participants <- makeUsers subsN
+ correctors <- makeUsers correctorsN
+
+ situations <- forM (zip [1..] steps) $ \(i, (subsN', loads)) -> do
+ sheet <- liftIO $ generate arbitrary <&> \s -> s { sheetName = CI.mk $ "Sheet " <> tshow (i :: Integer), sheetCourse = cid }
+ sid <- insert sheet
+
+ participants' <- liftIO $ take (fromIntegral subsN') <$> shuffleM participants
+ let loads' = loads ++ replicate (fromIntegral $ correctorsN - genericLength loads) Nothing
+
+ submissions <- forM participants' $ \(Entity uid _) -> do
+ sub@(Entity subId _) <- insertEntity $ Submission
+ sid
+ Nothing
+ Nothing
+ Nothing
+ Nothing
+ Nothing
+ void . insert $ SubmissionUser uid subId
+ return sub
+
+ let sheetCorrectors = [ SheetCorrector corr sid load CorrectorNormal | (Entity corr _, Just load) <- zip correctors loads']
+ scIds <- insertMany sheetCorrectors
+ let sheetCorrectors' = zipWith Entity scIds sheetCorrectors
+
+ return (sid, (submissions, sheetCorrectors'))
+
+ mapM_ (uncurry setupHook) $ map snd situations
+
+ return situations
+
+ let subIds = concatMap (\(_, (subs, _)) -> map entityKey subs) situations
+
+ results <- runHandler . Yesod.runDB . mapM (\sid -> assignSubmissions sid Nothing) $ map fst situations
+
+ submissions <- fmap concat . forM results $ \(assigned, unassigned) -> runDB $ selectList ([ SubmissionId <-. Set.toList assigned ] ||. [ SubmissionId <-. Set.toList unassigned ]) []
+
+ liftIO $ do
+ let (assigned, unassigned) = bimap concat concat $ unzip results
+ Set.union assigned unassigned `shouldBe` Set.fromList subIds
+ cont . Map.fromListWith mappend $ do
+ Entity subId Submission{..} <- submissions
+ let key = listToMaybe . filter (\(Entity _ (SheetCorrector uid _ _ _)) -> Just uid == submissionRatingBy) $ concatMap (\(_, (_, corrs)) -> corrs) situations
+ return (entityVal <$> key, Set.singleton subId)
+
+
+spec :: Spec
+spec = withApp . describe "Submission distribution" $ do
+ it "is fair" $
+ distributionExample
+ (return [(500, replicate 10 (Just $ Load Nothing 1))])
+ (\_ _ -> return ())
+ (\result -> do
+ let countResult = Map.map Set.size result
+ countResult `shouldNotSatisfy` Map.member Nothing
+ countResult `shouldSatisfy` all (== 50)
+ )
+ it "follows distribution" $
+ distributionExample
+ (return [(500, replicate 6 (Just $ Load Nothing 1) ++ replicate 2 (Just $ Load Nothing 2))])
+ (\_ _ -> return ())
+ (\result -> do
+ let countResult = Map.map Set.size result
+ countResult `shouldNotSatisfy` Map.member Nothing
+ countResult `shouldSatisfy` all (\(Just (SheetCorrector _ _ (Load _ prop) _), subsSet) -> (== 50 * prop) $ fromIntegral subsSet) . Map.toList
+ )
+ it "follows cumulative distribution over multiple sheets" $ do
+ ns <- liftIO . replicateM 5 . fmap fromInteger $ getRandomR (0, 100)
+ let ns' = ns ++ [500 - sum ns]
+ loads = replicate 6 (Just $ Load Nothing 1) ++ replicate 2 (Just $ Load Nothing 2)
+ distributionExample
+ (return [ (n, loads) | n <- ns' ])
+ (\_ _ -> return ())
+ (\result -> do
+ let countResult = Map.map Set.size result
+ countResult' = Map.mapKeysWith (+) (fmap $ \SheetCorrector{..} -> (fromSqlKey sheetCorrectorUser, byProportion sheetCorrectorLoad)) countResult
+ countResult `shouldNotSatisfy` Map.member Nothing
+ countResult' `shouldSatisfy` all (\(Just (_, prop), subsSet) -> (== 50 * prop) $ fromIntegral subsSet) . Map.toList
+ )
+ it "follows non-constant cumulative distribution over multiple sheets" $ do
+ let ns = replicate 4 100
+ loads = do
+ (onesBefore, onesAfter) <- zip [0,2..6] [6,4..0]
+ return $ replicate onesBefore (Just $ Load Nothing 1)
+ ++ replicate 2 (Just $ Load Nothing 2)
+ ++ replicate onesAfter (Just $ Load Nothing 1)
+ distributionExample
+ (return $ zip ns loads)
+ (\_ _ -> return ())
+ (\result -> do
+ let countResult = Map.map Set.size result
+ countResult' = Map.mapKeysWith (+) (fmap $ \SheetCorrector{..} -> fromSqlKey sheetCorrectorUser) countResult
+ countResult `shouldNotSatisfy` Map.member Nothing
+ countResult' `shouldSatisfy` all (\(Just _, subsSet) -> subsSet == 50) . Map.toList
+ )
+ it "handles tutorials with proportion" $ do
+ ns <- liftIO . replicateM 5 . fmap fromInteger $ getRandomR (0, 100)
+ let ns' = ns ++ [500 - sum ns]
+ loads = replicate 6 (Just $ Load (Just True) 1) ++ replicate 2 (Just $ Load (Just True) 2)
+ tutSubIds <- liftIO $ newTVarIO Map.empty
+ distributionExample
+ (return [ (n, loads) | n <- ns' ])
+ (\subs corrs -> do
+ tutSubmissions <- liftIO $ getRandomR (5,10)
+ subs' <- liftIO $ shuffleM subs
+ forM_ (take tutSubmissions subs') $ \(Entity subId Submission{..}) -> do
+ Entity _ SheetCorrector{..} <- liftIO $ uniform corrs
+ atomically . modifyTVar tutSubIds . Map.insertWith mappend sheetCorrectorUser $ Set.singleton subId
+ Sheet{..} <- getJust submissionSheet
+ tut <- liftIO $ generate arbitrary <&> \c -> c { tutorialName = CI.mk $ "Tut for " <> tshow (fromSqlKey subId), tutorialCourse = sheetCourse }
+ tutId <- insert tut
+ void . insert $ Tutor tutId sheetCorrectorUser
+ E.insertSelect . E.from $ \submissionUser -> do
+ E.where_ $ submissionUser E.^. SubmissionUserSubmission E.==. E.val subId
+ return $ TutorialParticipant E.<# E.val tutId E.<&> (submissionUser E.^. SubmissionUserUser)
+ )
+ (\result -> do
+ let countResult = Map.map Set.size result
+ countResult' = Map.mapKeysWith (+) (fmap $ \SheetCorrector{..} -> (fromSqlKey sheetCorrectorUser, byProportion sheetCorrectorLoad)) countResult
+ countResult' `shouldNotSatisfy` Map.member Nothing
+ countResult' `shouldSatisfy` all (\(Just (_, prop), subsSet) -> fromIntegral subsSet == 50 * prop) . Map.toList
+
+ -- -- Does not currently work, because `User`s are reused within `distributionExample`, so submissions end up having more associated course-tutors, because the same user might be a member of a tutorial created for another submission
+ --
+ -- let subs = fold tutSubIds'
+ -- forM_ subs $ \subId -> do
+ -- let tutors = Map.keysSet $ Map.filter (Set.member subId) tutSubIds'
+ -- assignedTo = Set.map (sheetCorrectorUser . fromJust) . Map.keysSet $ Map.filter (Set.member subId) result
+ -- HUnit.assertEqual ("Submission " <> show (fromSqlKey subId) <> " assigned to multiple correctors") 1 $ Set.size assignedTo
+ -- HUnit.assertEqual ("Submission " <> show (fromSqlKey subId) <> " assigned to non-tutors (" <> show (Set.map fromSqlKey tutors) <> ")") Set.empty (Set.map fromSqlKey $ assignedTo `Set.difference` tutors)
+ )
diff --git a/test/MailSpec.hs b/test/MailSpec.hs
index c9972548d..ad54385c6 100644
--- a/test/MailSpec.hs
+++ b/test/MailSpec.hs
@@ -27,7 +27,7 @@ spec = do
lawsCheckHspec (Proxy @MailSmtpData)
[ eqLaws, ordLaws, showReadLaws, monoidLaws ]
lawsCheckHspec (Proxy @MailLanguages)
- [ eqLaws, ordLaws, showReadLaws, isListLaws, jsonLaws, hashableLaws ]
+ [ eqLaws, ordLaws, showReadLaws, isListLaws, jsonLaws, hashableLaws, persistFieldLaws ]
lawsCheckHspec (Proxy @MailContext)
[ eqLaws, ordLaws, showReadLaws, jsonLaws, hashableLaws ]
lawsCheckHspec (Proxy @VerpMode)
diff --git a/test/Model/TypesSpec.hs b/test/Model/TypesSpec.hs
index d30237550..da1f578d0 100644
--- a/test/Model/TypesSpec.hs
+++ b/test/Model/TypesSpec.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE UndecidableInstances #-}
+
module Model.TypesSpec where
import TestImport
@@ -12,6 +14,18 @@ import MailSpec ()
import System.IO.Unsafe
import Yesod.Auth.Util.PasswordStore
+import Database.Persist.Sql (SqlBackend, fromSqlKey, toSqlKey)
+
+import Text.Blaze.Html
+import Text.Blaze.Renderer.Text
+
+import qualified Data.Set as Set
+
+import Time.Types (WeekDay(..))
+
+
+instance (Arbitrary a, MonoFoldable a) => Arbitrary (NonNull a) where
+ arbitrary = arbitrary `suchThatMap` fromNullable
instance Arbitrary Season where
arbitrary = genericArbitrary
@@ -24,6 +38,14 @@ instance Arbitrary TermIdentifier where
return $ TermIdentifier{..}
shrink = genericShrink
+instance Arbitrary TermId where
+ arbitrary = TermKey <$> arbitrary
+ shrink = map TermKey . shrink . unTermKey
+
+instance Arbitrary SchoolId where
+ arbitrary = SchoolKey <$> arbitrary
+ shrink = map SchoolKey . shrink . unSchoolKey
+
instance Arbitrary Pseudonym where
arbitrary = Pseudonym <$> arbitraryBoundedIntegral
@@ -49,7 +71,7 @@ instance Arbitrary SheetGradeSummary where
instance Arbitrary SheetGroup where
arbitrary = genericArbitrary
shrink = genericShrink
-
+
instance Arbitrary SheetTypeSummary where
arbitrary = genericArbitrary
shrink = genericShrink
@@ -57,20 +79,37 @@ instance Arbitrary SheetTypeSummary where
instance Arbitrary SheetFileType where
arbitrary = genericArbitrary
shrink = genericShrink
-
+
instance Arbitrary SubmissionFileType where
arbitrary = genericArbitrary
shrink = genericShrink
+instance Arbitrary UploadSpecificFile where
+ arbitrary = UploadSpecificFile
+ <$> (pack . getPrintableString <$> arbitrary)
+ <*> (pack . getPrintableString <$> arbitrary)
+ <*> arbitrary
+ shrink = genericShrink
+
instance Arbitrary UploadMode where
+ arbitrary = oneof
+ [ pure NoUpload
+ , UploadAny
+ <$> arbitrary
+ <*> (fromNullable . Set.fromList . map (pack . getPrintableString) <$> arbitrary)
+ , UploadSpecific <$> arbitrary
+ ]
+ shrink = genericShrink
+
+instance Arbitrary UploadModeDescr where
arbitrary = genericArbitrary
shrink = genericShrink
-instance Arbitrary SheetSubmissionMode where
+instance Arbitrary SubmissionMode where
arbitrary = genericArbitrary
shrink = genericShrink
-instance Arbitrary ExamStatus where
+instance Arbitrary SubmissionModeDescr where
arbitrary = genericArbitrary
shrink = genericShrink
@@ -108,7 +147,7 @@ instance Arbitrary AuthTag where
shrink = genericShrink
instance CoArbitrary AuthTag where
coarbitrary = genericCoarbitrary
-
+
instance Arbitrary AuthTagActive where
arbitrary = AuthTagActive <$> arbitrary
shrink = genericShrink
@@ -137,14 +176,37 @@ instance Arbitrary AuthenticationMode where
authPWHash = unsafePerformIO . fmap decodeUtf8 $ makePasswordWith pwHashAlgorithm pw (pwHashStrength `div` 2)
return $ AuthPWHash{..}
]
-
+
shrink AuthLDAP = []
shrink (AuthPWHash _) = [AuthLDAP]
instance Arbitrary LecturerType where
arbitrary = genericArbitrary
shrink = genericShrink
-
+
+instance {-# OVERLAPPABLE #-} ToBackendKey SqlBackend record => Arbitrary (Key record) where
+ arbitrary = toSqlKey <$> arbitrary
+ shrink = map toSqlKey . shrink . fromSqlKey
+
+instance Arbitrary Html where
+ arbitrary = (preEscapedToHtml :: String -> Html) . getPrintableString <$> arbitrary
+ shrink = map preEscapedToHtml . shrink . renderMarkup
+
+instance Arbitrary WeekDay where
+ arbitrary = oneof $ map pure [minBound..maxBound]
+
+instance Arbitrary OccurrenceSchedule where
+ arbitrary = genericArbitrary
+ shrink = genericShrink
+
+instance Arbitrary OccurrenceException where
+ arbitrary = genericArbitrary
+ shrink = genericShrink
+
+instance Arbitrary Occurrences where
+ arbitrary = genericArbitrary
+ shrink = genericShrink
+
spec :: Spec
spec = do
@@ -169,12 +231,16 @@ spec = do
[ eqLaws, showReadLaws, ordLaws, boundedEnumLaws, persistFieldLaws, pathPieceLaws, finiteLaws ]
lawsCheckHspec (Proxy @SubmissionFileType)
[ eqLaws, showReadLaws, ordLaws, boundedEnumLaws, pathPieceLaws, finiteLaws ]
+ lawsCheckHspec (Proxy @UploadSpecificFile)
+ [ eqLaws, showReadLaws, ordLaws, jsonLaws, persistFieldLaws ]
lawsCheckHspec (Proxy @UploadMode)
- [ eqLaws, showReadLaws, ordLaws, jsonLaws, persistFieldLaws, pathPieceLaws, finiteLaws ]
- lawsCheckHspec (Proxy @SheetSubmissionMode)
- [ eqLaws, showReadLaws, ordLaws, boundedEnumLaws, jsonLaws, persistFieldLaws, finiteLaws, pathPieceLaws ]
- lawsCheckHspec (Proxy @ExamStatus)
- [ eqLaws, showReadLaws, ordLaws, boundedEnumLaws, persistFieldLaws ]
+ [ eqLaws, showReadLaws, ordLaws, jsonLaws, persistFieldLaws ]
+ lawsCheckHspec (Proxy @UploadModeDescr)
+ [ eqLaws, showReadLaws, ordLaws, boundedEnumLaws, finiteLaws, pathPieceLaws ]
+ lawsCheckHspec (Proxy @SubmissionMode)
+ [ eqLaws, showReadLaws, ordLaws, jsonLaws, persistFieldLaws ]
+ lawsCheckHspec (Proxy @SubmissionModeDescr)
+ [ eqLaws, showReadLaws, ordLaws, boundedEnumLaws, finiteLaws, pathPieceLaws ]
lawsCheckHspec (Proxy @Load)
[ eqLaws, showReadLaws, ordLaws, jsonLaws, persistFieldLaws, commutativeSemigroupLaws, commutativeMonoidLaws ]
lawsCheckHspec (Proxy @Season)
@@ -195,8 +261,6 @@ spec = do
[ eqLaws, ordLaws, showReadLaws, jsonLaws, boundedEnumLaws, finiteLaws, hashableLaws, jsonLaws, jsonKeyLaws ]
lawsCheckHspec (Proxy @NotificationSettings)
[ eqLaws, ordLaws, showReadLaws, jsonLaws, persistFieldLaws ]
- lawsCheckHspec (Proxy @MailLanguages)
- [ persistFieldLaws ]
lawsCheckHspec (Proxy @Pseudonym)
[ eqLaws, ordLaws, showReadLaws, boundedEnumLaws, integralLaws, jsonLaws, persistFieldLaws ]
lawsCheckHspec (Proxy @AuthTag)
diff --git a/test/ModelSpec.hs b/test/ModelSpec.hs
index 258211f94..e5fbdb9c3 100644
--- a/test/ModelSpec.hs
+++ b/test/ModelSpec.hs
@@ -33,6 +33,42 @@ instance Arbitrary EmailAddress where
isEmail l d = Email.isValid (makeEmailLike l d)
makeEmailLike l d = CBS.concat [l, CBS.singleton '@', d]
+instance Arbitrary Course where
+ arbitrary = genericArbitrary
+ shrink = genericShrink
+
+instance Arbitrary Sheet where
+ arbitrary = Sheet
+ <$> arbitrary
+ <*> (CI.mk . pack . getPrintableString <$> arbitrary)
+ <*> arbitrary
+ <*> arbitrary
+ <*> arbitrary
+ <*> arbitrary
+ <*> arbitrary
+ <*> arbitrary
+ <*> arbitrary
+ <*> arbitrary
+ <*> arbitrary
+ <*> arbitrary
+ <*> arbitrary
+ shrink = genericShrink
+
+instance Arbitrary Tutorial where
+ arbitrary = Tutorial
+ <$> (CI.mk . pack . getPrintableString <$> arbitrary)
+ <*> arbitrary
+ <*> (CI.mk . pack . getPrintableString <$> arbitrary)
+ <*> (fmap getPositive <$> arbitrary)
+ <*> (pack . getPrintableString <$> arbitrary)
+ <*> arbitrary
+ <*> (fmap (CI.mk . pack . getPrintableString) <$> arbitrary)
+ <*> arbitrary
+ <*> arbitrary
+ <*> arbitrary
+ <*> arbitrary
+ shrink = genericShrink
+
instance Arbitrary User where
arbitrary = do
userIdent <- CI.mk . pack <$> oneof
@@ -41,6 +77,7 @@ instance Arbitrary User where
]
userAuthentication <- arbitrary
userLastAuthentication <- arbitrary
+ userTokensIssuedAfter <- arbitrary
userMatrikelnummer <- fmap pack . assertM' (not . null) <$> listOf (elements ['0'..'9'])
userEmail <- CI.mk . decodeUtf8 . Email.toByteString <$> arbitrary
diff --git a/test/Test/QuickCheck/Classes/Binary.hs b/test/Test/QuickCheck/Classes/Binary.hs
new file mode 100644
index 000000000..1261ce44b
--- /dev/null
+++ b/test/Test/QuickCheck/Classes/Binary.hs
@@ -0,0 +1,17 @@
+module Test.QuickCheck.Classes.Binary
+ ( binaryLaws
+ ) where
+
+import ClassyPrelude
+import Test.QuickCheck
+import Test.QuickCheck.Classes
+
+import Data.Proxy (Proxy(..))
+import Data.Binary
+import Data.Binary.Put
+
+binaryLaws :: forall a. (Arbitrary a, Binary a, Eq a, Show a) => Proxy a -> Laws
+binaryLaws _ = Laws "Binary"
+ [ ("Partial Isomorphism", property $ \(a :: a) -> decode (encode a) == Just a)
+ , ("Valid list encoding", property $ \(as :: [a]) -> runPut (putList as) == runPut (put as))
+ ]
diff --git a/test/TestImport.hs b/test/TestImport.hs
index f576ccf30..4fb09576b 100644
--- a/test/TestImport.hs
+++ b/test/TestImport.hs
@@ -6,7 +6,8 @@ module TestImport
import Application (makeFoundation, makeLogWare)
import ClassyPrelude as X hiding (delete, deleteBy, Handler, Index, (<.>), (<|), index, uncons, unsnoc, cons, snoc)
import Database.Persist as X hiding (get)
-import Database.Persist.Sql (SqlPersistM, runSqlPersistMPool)
+import Database.Persist.Sql as X (SqlPersistM)
+import Database.Persist.Sql (runSqlPersistMPool)
import Foundation as X
import Model as X
import Test.Hspec as X
@@ -26,10 +27,12 @@ import Test.QuickCheck.Classes.Hashable as X
import Test.QuickCheck.Classes.JSON as X
import Test.QuickCheck.Classes.HttpApiData as X
import Test.QuickCheck.Classes.Universe as X
+import Test.QuickCheck.Classes.Binary as X
import Data.Proxy as X
import Data.UUID as X (UUID)
import System.IO as X (hPrint, hPutStrLn, stderr)
import Jobs (handleJobs, stopJobCtl)
+import Numeric.Natural as X
import Control.Lens as X hiding ((<.), elements)
@@ -103,11 +106,12 @@ authenticateAs (Entity _ User{..}) = do
-- checking is switched off in wipeDB for those database backends which need it.
createUser :: (User -> User) -> YesodExample UniWorX (Entity User)
createUser adjUser = do
- UserDefaultConf{..} <- appUserDefaults . appSettings <$> getTestYesod
+ UserDefaultConf{..} <- appUserDefaults . view appSettings <$> getTestYesod
let
userMatrikelnummer = Nothing
userAuthentication = AuthLDAP
userLastAuthentication = Nothing
+ userTokensIssuedAfter = Nothing
userIdent = "dummy@example.invalid"
userEmail = "dummy@example.invalid"
userDisplayName = "Dummy Example"
diff --git a/test/Utils/DateTimeSpec.hs b/test/Utils/DateTimeSpec.hs
index b2480749d..2e0d086eb 100644
--- a/test/Utils/DateTimeSpec.hs
+++ b/test/Utils/DateTimeSpec.hs
@@ -2,6 +2,9 @@ module Utils.DateTimeSpec where
import TestImport
+import Utils.DateTime
+
+
instance Arbitrary DateTimeFormat where
arbitrary = DateTimeFormat <$> arbitrary
shrink = genericShrink
diff --git a/webpack.config.js b/webpack.config.js
new file mode 100644
index 000000000..d2e851ce6
--- /dev/null
+++ b/webpack.config.js
@@ -0,0 +1,108 @@
+/* eslint-disable */
+const webpack = require('webpack');
+const path = require('path');
+const ExtractTextWebpackPlugin = require('extract-text-webpack-plugin');
+
+/*
+ * SplitChunksPlugin is enabled by default and replaced
+ * deprecated CommonsChunkPlugin. It automatically identifies modules which
+ * should be splitted of chunk by heuristics using module duplication count and
+ * module category (i. e. node_modules). And splits the chunks…
+ *
+ * It is safe to remove "splitChunks" from the generated configuration
+ * and was added as an educational example.
+ *
+ * https://webpack.js.org/plugins/split-chunks-plugin/
+ *
+ */
+
+/*
+ * We've enabled UglifyJSPlugin for you! This minifies your app
+ * in order to load faster and run less javascript.
+ *
+ * https://github.com/webpack-contrib/uglifyjs-webpack-plugin
+ *
+ */
+const UglifyJSPlugin = require('uglifyjs-webpack-plugin');
+
+module.exports = {
+ module: {
+ rules: [
+ {
+ loader: 'babel-loader',
+
+ options: {
+ plugins: ['syntax-dynamic-import'],
+
+ presets: [
+ [
+ '@babel/preset-env',
+ {
+ modules: false
+ }
+ ]
+ ]
+ },
+
+ test: /\.js$/
+ },
+ {
+ test: /\.css$/,
+ use: ExtractTextWebpackPlugin.extract({
+ fallback: "style-loader",
+ use: "css-loader"
+ })
+ },
+ {
+ test: /\.scss$/,
+ use: ExtractTextWebpackPlugin.extract({
+ fallback: 'style-loader',
+ use: ['css-loader', 'sass-loader', 'postcss-loader']
+ }),
+ exclude: /node_modules/
+ }
+ ]
+ },
+
+ entry: {
+ main: [
+ path.resolve(__dirname, 'frontend/src', 'main.js'),
+ ],
+ vendor: [
+ path.resolve(__dirname, 'frontend/vendor', 'main.js'),
+ ],
+ polyfills: [
+ path.resolve(__dirname, 'frontend/polyfills', 'main.js'),
+ ],
+ },
+
+ plugins: [
+ new ExtractTextWebpackPlugin({
+ filename: 'css/[name].css'
+ })
+ ],
+
+ output: {
+ chunkFilename: 'js/[name].[chunkname].js',
+ filename: 'js/[name].js',
+ path: path.resolve(__dirname, 'static', 'bundles')
+ },
+
+ mode: 'development',
+
+ optimization: {
+ splitChunks: {
+ cacheGroups: {
+ vendors: {
+ priority: -10,
+ test: /[\\/]node_modules[\\/]/
+ }
+ },
+
+ chunks: 'async',
+ minChunks: 1,
+ minSize: 30000,
+ name: true
+ }
+ }
+};
| |