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

feat(sheets): display authship req on SShowR

Browse Source
This commit is contained in:
Sarah Vaupel 2021-06-03 15:29:24 +02:00 committed by Gregor Kleen
parent 0735c05a74
commit 44473b4575
4 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -155,3 +155,5 @@ SheetGradingPassAlways: Automatisch bestanden, sobald korrigiert
SheetAuthorshipStatement: Eigenständigkeitserklärung SheetAuthorshipStatement: Eigenständigkeitserklärung
SheetAuthorshipStatementRequired: Eigenständigkeitserklärung einfordern? SheetAuthorshipStatementRequired: Eigenständigkeitserklärung einfordern?
SheetAuthorshipStatementRequiredTip: Soll jeder Abgebende (bei Abgabegruppen jedes Mitglied der Abgabegruppe) aufgefordert werden, eine Eigenständigkeitserklärung zu akzeptieren? SheetAuthorshipStatementRequiredTip: Soll jeder Abgebende (bei Abgabegruppen jedes Mitglied der Abgabegruppe) aufgefordert werden, eine Eigenständigkeitserklärung zu akzeptieren?
SheetAuthorshipStatementIsRequiredTrue: Erforderlich
SheetAuthorshipStatementIsRequiredFalse: Keine

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

@ -154,3 +154,5 @@ SheetGradingPassAlways: Automatically passed when corrected
SheetAuthorshipStatement: Statement of Authorship SheetAuthorshipStatement: Statement of Authorship
SheetAuthorshipStatementRequired: Require Statement of Authorship for submissions? SheetAuthorshipStatementRequired: Require Statement of Authorship for submissions?
SheetAuthorshipStatementRequiredTip: Should each submittor (in case of submission groups each group member) be required to accept a Statement of Authorship? SheetAuthorshipStatementRequiredTip: Should each submittor (in case of submission groups each group member) be required to accept a Statement of Authorship?
SheetAuthorshipStatementIsRequiredTrue: Required
SheetAuthorshipStatementIsRequiredFalse: None

3
src/Handler/Sheet/Show.hs
View File

@ -20,7 +20,10 @@ getSShowR tid ssh csh shn = do
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
muid <- maybeAuthId muid <- maybeAuthId
Entity sid sheet <- runDB $ fetchSheet tid ssh csh shn Entity sid sheet <- runDB $ fetchSheet tid ssh csh shn
seeAllModificationTimestamps <- hasReadAccessTo $ CSheetR tid ssh csh shn SIsCorrR -- ordinary users should not see modification dates older than visibility seeAllModificationTimestamps <- hasReadAccessTo $ CSheetR tid ssh csh shn SIsCorrR -- ordinary users should not see modification dates older than visibility
mayEdit <- hasWriteAccessTo $ CSheetR tid ssh csh shn SEditR
maySubmit <- hasWriteAccessTo $ CSheetR tid ssh csh shn SubmissionNewR
let sftVisible :: IsDBTable m a => SheetFileType -> DBCell m a let sftVisible :: IsDBTable m a => SheetFileType -> DBCell m a
sftVisible sft | Just dts <- sheetFileTypeDates sheet sft sftVisible sft | Just dts <- sheetFileTypeDates sheet sft

5
templates/sheetShow.hamlet
View File

@ -70,6 +70,11 @@ $maybe descr <- sheetDescription sheet
_{MsgTableSheetType} _{MsgTableSheetType}
<dd .deflist__dd> <dd .deflist__dd>
^{sTypeDesc tr} ^{sTypeDesc tr}
$if mayEdit || maySubmit
<dt .deflist__dt>
_{MsgSheetAuthorshipStatement}
<dd .deflist__dd>
_{maybe MsgSheetAuthorshipStatementIsRequiredFalse (const MsgSheetAuthorshipStatementIsRequiredTrue) (sheetAuthorshipStatement sheet)}
$maybe marktxt <- markingText $maybe marktxt <- markingText
<section> <section>