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

fix(submissions): more precise feedback

Browse Source
This commit is contained in:
Gregor Kleen 2021-08-02 11:44:13 +02:00
parent a17d2dc779
commit d151b6fc14
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
messages/uniworx/categories/courses/submission/de-de-formal.msg
View File

@ -60,6 +60,8 @@ NotAParticipant email@UserEmail tid@TermId csh@CourseShorthand: #{email} ist nic
TooManyParticipants: Es wurden zu viele Mitabgebende angegeben TooManyParticipants: Es wurden zu viele Mitabgebende angegeben
SubmissionCreated: Abgabe erfolgreich angelegt SubmissionCreated: Abgabe erfolgreich angelegt
SubmissionUpdated: Abgabe erfolgreich ersetzt SubmissionUpdated: Abgabe erfolgreich ersetzt
SubmissionUsersUpdated: Liste von Abgebenden erfolgreich angepasst
SubmissionUnchanged: Abgabe unverändert
FileCorrected: Korrigiert (Dateien) FileCorrected: Korrigiert (Dateien)
Corrected: Korrigiert Corrected: Korrigiert
HeadingSubmissionEditHead tid@TermId ssh@SchoolId csh@CourseShorthand sheetName@SheetName: #{tid}-#{ssh}-#{csh} #{sheetName}: Abgabe editieren/anlegen HeadingSubmissionEditHead tid@TermId ssh@SchoolId csh@CourseShorthand sheetName@SheetName: #{tid}-#{ssh}-#{csh} #{sheetName}: Abgabe editieren/anlegen

2
messages/uniworx/categories/courses/submission/en-eu.msg
View File

@ -58,6 +58,8 @@ NotAParticipant email tid csh: #{email} is not a participant of #{tid}-#{csh}.
TooManyParticipants: You have specified more than the allowed number of submittors. TooManyParticipants: You have specified more than the allowed number of submittors.
SubmissionCreated: Successfully created submission SubmissionCreated: Successfully created submission
SubmissionUpdated: Successfully replaced submission SubmissionUpdated: Successfully replaced submission
SubmissionUsersUpdated: Successfully changed list of submittors
SubmissionUnchanged: Submission unchanged
FileCorrected: Marked (files) FileCorrected: Marked (files)
Corrected: Marked Corrected: Marked
HeadingSubmissionEditHead tid ssh csh sheetName: #{tid}-#{ssh}-#{csh} #{sheetName}: Edit/Create submission HeadingSubmissionEditHead tid ssh csh sheetName: #{tid}-#{ssh}-#{csh} #{sheetName}: Edit/Create submission

7
src/Handler/Submission/Helper.hs
View File

@ -528,8 +528,11 @@ submissionHelper tid ssh csh shn mcid = do
uid <- maybe notAuthenticated return muid uid <- maybe notAuthenticated return muid
insert_ $ AuthorshipStatementSubmission asdId smid uid now insert_ $ AuthorshipStatementSubmission asdId smid uid now
addMessageI Success $ if | Nothing <- msmid -> MsgSubmissionCreated if | is _Nothing msmid -> addMessageI Success MsgSubmissionCreated
| otherwise -> MsgSubmissionUpdated | is _Just mFiles -> addMessageI Success MsgSubmissionUpdated
| subUsers == subUsersOld -> addMessageI Info MsgSubmissionUnchanged
| otherwise -> addMessageI Success MsgSubmissionUsersUpdated
Just <$> encrypt smid Just <$> encrypt smid
case mCID of case mCID of