feat(sheets): display authship req on SShowR

messages/uniworx/categories/courses/sheet/de-de-formal.msg

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

messages/uniworx/categories/courses/sheet/en-eu.msg

@@ -154,3 +154,5 @@ SheetGradingPassAlways: Automatically passed when corrected
 SheetAuthorshipStatement: Statement of Authorship
 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?
+SheetAuthorshipStatementIsRequiredTrue: Required
+SheetAuthorshipStatementIsRequiredFalse: None

src/Handler/Sheet/Show.hs

@@ -20,7 +20,10 @@ getSShowR tid ssh csh shn = do
   now <- liftIO getCurrentTime
   muid <- maybeAuthId
   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
+  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
       sftVisible sft | Just dts <- sheetFileTypeDates sheet sft

templates/sheetShow.hamlet

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