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

feat(submission-show): display authorship statements

Browse Source
This commit is contained in:
Gregor Kleen 2021-08-06 19:10:15 +02:00
parent d2e2456f62
commit cbd6d7d2b0
11 changed files with 164 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
frontend/src/app.sass
View File

@ -567,15 +567,14 @@ ul.list--inline
.deflist__dt .deflist__dt
font-weight: 600 font-weight: 600
font-size: 1.12em
margin-bottom: .6em
.deflist__explanation .deflist__explanation
color: var(--color-fontsec) color: var(--color-fontsec)
font-size: 0.9rem font-size: 0.9em
.deflist__dd .deflist__dd
font-size: 18px
margin-bottom: 10px
> p, > .div-p > p, > .div-p
margin-top: 0 margin-top: 0
@ -592,9 +591,13 @@ ul.list--inline
.deflist__dt, .deflist__dt,
.deflist__dd .deflist__dd
padding: 12px 0 padding: .75em 0
margin: 0 margin: 0
font-size: 16px font-size: unset
.explanation &
padding-top: 0
padding-bottom: 0
&:last-of-type &:last-of-type
border: 0 border: 0

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

@ -62,6 +62,7 @@ SubmissionCreated: Abgabe erfolgreich angelegt
SubmissionUpdated: Abgabe erfolgreich ersetzt SubmissionUpdated: Abgabe erfolgreich ersetzt
SubmissionUsersUpdated: Liste von Abgebenden erfolgreich angepasst SubmissionUsersUpdated: Liste von Abgebenden erfolgreich angepasst
SubmissionUnchanged: Abgabe unverändert SubmissionUnchanged: Abgabe unverändert
SubmissionUpdatedAuthorshipStatement: Eigenständigkeitserklärung erfolgreich aktualisiert
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
@ -206,4 +207,9 @@ SubmissionCoSubmittorsInviteRequiredBecauseAuthorshipStatements: Da für die Abg
SubmissionUserTable: Abgebende SubmissionUserTable: Abgebende
SubmissionUserDisplayName !ident-ok: Name SubmissionUserDisplayName !ident-ok: Name
SubmissionUserMatriculation: Matrikelnummer SubmissionUserMatriculation: Matrikelnummer
SubmissionUserEmail: E-Mail SubmissionUserEmail: E-Mail
SubmissionUserAuthorshipStatementState: Eigenständigkeitserklärung
SubmissionAuthorshipStatementStateOkay: In Ordnung
SubmissionAuthorshipStatementStateOldStatement: Unpassender Wortlaut
SubmissionAuthorshipStatementStateMissing: Fehlt

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

@ -60,6 +60,7 @@ SubmissionCreated: Successfully created submission
SubmissionUpdated: Successfully replaced submission SubmissionUpdated: Successfully replaced submission
SubmissionUsersUpdated: Successfully changed list of submittors SubmissionUsersUpdated: Successfully changed list of submittors
SubmissionUnchanged: Submission unchanged SubmissionUnchanged: Submission unchanged
SubmissionUpdatedAuthorshipStatement: Successfully updated Statement of Authorship
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
@ -206,3 +207,8 @@ SubmissionUserTable: Submittors
SubmissionUserDisplayName: Name SubmissionUserDisplayName: Name
SubmissionUserMatriculation: Matriculation SubmissionUserMatriculation: Matriculation
SubmissionUserEmail: Email SubmissionUserEmail: Email
SubmissionUserAuthorshipStatementState: Statement of Authorship
SubmissionAuthorshipStatementStateOkay: Okay
SubmissionAuthorshipStatementStateOldStatement: Wrong wording
SubmissionAuthorshipStatementStateMissing: Missing

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

@ -31,10 +31,22 @@ import Handler.Submission.SubmissionUserInvite
import qualified Data.Conduit.Combinators as C import qualified Data.Conduit.Combinators as C
data AuthorshipStatementSubmissionState
= ASOkay
| ASOldStatement
| ASMissing
deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic, Typeable)
deriving anyclass (Universe, Finite)
nullaryPathPiece ''AuthorshipStatementSubmissionState $ camelToPathPiece' 1
embedRenderMessage ''UniWorX ''AuthorshipStatementSubmissionState $ concat . ("SubmissionAuthorshipStatementState" :) . drop 1 . splitCamel
makeSubmissionForm :: forall m. (MonadHandler m, HandlerSite m ~ UniWorX, MonadThrow m) makeSubmissionForm :: forall m. (MonadHandler m, HandlerSite m ~ UniWorX, MonadThrow m)
=> CourseId -> Entity Sheet -> Maybe SubmissionId -> UploadMode -> SheetGroup -> Maybe FileUploads -> Bool -> Set (Either UserEmail UserId) => CourseId -> SheetId -> Maybe (Entity AuthorshipStatementDefinition) -> Maybe SubmissionId -> UploadMode -> SheetGroup -> Maybe FileUploads -> Bool -> Set (Either UserEmail UserId)
-> (Markup -> MForm (ReaderT SqlBackend m) (FormResult (Maybe FileUploads, Set (Either UserEmail UserId), Maybe AuthorshipStatementDefinitionId), Widget)) -> (Markup -> MForm (ReaderT SqlBackend m) (FormResult (Maybe FileUploads, Set (Either UserEmail UserId), Maybe AuthorshipStatementDefinitionId), Widget))
makeSubmissionForm cid sheetEnt@(Entity shid _) msmid uploadMode grouping mPrev isLecturer prefillUsers = identifyForm FIDsubmission . renderWForm FormStandard $ do makeSubmissionForm cid shid mASDefinition msmid uploadMode grouping mPrev isLecturer prefillUsers = identifyForm FIDsubmission . renderWForm FormStandard $ do
uploadRes <- aFormToWForm uploadForm uploadRes <- aFormToWForm uploadForm
submittorsRes <- submittorsForm' submittorsRes <- submittorsForm'
lecturerIsSubmittor <- case submittorsRes of lecturerIsSubmittor <- case submittorsRes of
@ -48,7 +60,7 @@ makeSubmissionForm cid sheetEnt@(Entity shid _) msmid uploadMode grouping mPrev
authorshipStatementForm :: Bool -> WForm (ReaderT SqlBackend m) (FormResult (Maybe AuthorshipStatementDefinitionId)) authorshipStatementForm :: Bool -> WForm (ReaderT SqlBackend m) (FormResult (Maybe AuthorshipStatementDefinitionId))
authorshipStatementForm lecturerIsSubmittor = maybeT (return $ FormSuccess Nothing) $ do authorshipStatementForm lecturerIsSubmittor = maybeT (return $ FormSuccess Nothing) $ do
asd <- MaybeT . lift . lift $ getSheetAuthorshipStatement sheetEnt asd <- hoistMaybe mASDefinition
let authorshipStatementForm' = apopt (acceptAuthorshipStatementField asd) (fslI MsgSubmissionAuthorshipStatement & setTooltip MsgSubmissionAuthorshipStatementTip) Nothing let authorshipStatementForm' = apopt (acceptAuthorshipStatementField asd) (fslI MsgSubmissionAuthorshipStatement & setTooltip MsgSubmissionAuthorshipStatementTip) Nothing
authorshipStatementRes <- lift . hoist (hoist liftHandler) $ if authorshipStatementRes <- lift . hoist (hoist liftHandler) $ if
| isLecturer | isLecturer
@ -178,7 +190,7 @@ makeSubmissionForm cid sheetEnt@(Entity shid _) msmid uploadMode grouping mPrev
| otherwise = do | otherwise = do
uid <- liftHandler requireAuthId uid <- liftHandler requireAuthId
mRoute <- getCurrentRoute mRoute <- getCurrentRoute
doAuthorshipStatements <- lift . lift $ is _Just <$> getSheetAuthorshipStatement sheetEnt let doAuthorshipStatements = is _Just mASDefinition
prefillUsers' <- lift . lift . fmap catMaybes . for (Set.toList prefillUsers) $ \case prefillUsers' <- lift . lift . fmap catMaybes . for (Set.toList prefillUsers) $ \case
Right uid' | doAuthorshipStatements Right uid' | doAuthorshipStatements
@ -265,6 +277,7 @@ submissionHelper tid ssh csh shn mcid = do
let let
getSheetInfo = do getSheetInfo = do
csheet@(Entity shid Sheet{..}) <- fetchSheet tid ssh csh shn csheet@(Entity shid Sheet{..}) <- fetchSheet tid ssh csh shn
mASDefinition <- getSheetAuthorshipStatement csheet
maySubmit <- (== Authorized) <$> evalAccessDB actionUrl True maySubmit <- (== Authorized) <$> evalAccessDB actionUrl True
isLecturer <- (== Authorized) <$> evalAccessDB (CSheetR tid ssh csh shn SSubsR) True isLecturer <- (== Authorized) <$> evalAccessDB (CSheetR tid ssh csh shn SSubsR) True
@ -297,6 +310,7 @@ submissionHelper tid ssh csh shn mcid = do
, isLecturer , isLecturer
, not isLecturer , not isLecturer
, Nothing, Nothing , Nothing, Nothing
, mASDefinition
) )
(Nothing, RegisteredGroups) -> do (Nothing, RegisteredGroups) -> do
buddies <- E.select . E.from $ \(submissionGroup `E.InnerJoin` user) -> do buddies <- E.select . E.from $ \(submissionGroup `E.InnerJoin` user) -> do
@ -326,8 +340,9 @@ submissionHelper tid ssh csh shn mcid = do
, isLecturer , isLecturer
, not isLecturer , not isLecturer
, Nothing, Nothing , Nothing, Nothing
, mASDefinition
) )
(Nothing, _) -> return (csheet, Set.empty, [], maySubmit, isLecturer, not isLecturer, Nothing, Nothing) (Nothing, _) -> return (csheet, Set.empty, [], maySubmit, isLecturer, not isLecturer, Nothing, Nothing, mASDefinition)
(Just smid, _) -> do (Just smid, _) -> do
void $ submissionMatchesSheet tid ssh csh shn (fromJust mcid) void $ submissionMatchesSheet tid ssh csh shn (fromJust mcid)
@ -364,14 +379,14 @@ submissionHelper tid ssh csh shn mcid = do
corrector <- join <$> traverse getEntity submissionRatingBy corrector <- join <$> traverse getEntity submissionRatingBy
return (csheet,buddies,lastEdits,maySubmit,isLecturer,isOwner,Just sub,corrector) return (csheet,buddies,lastEdits,maySubmit,isLecturer,isOwner,Just sub,corrector,mASDefinition)
-- @submissionModeUser == Nothing@ below iff we are currently serving a user with elevated rights (lecturer, admin, ...) -- @submissionModeUser == Nothing@ below iff we are currently serving a user with elevated rights (lecturer, admin, ...)
-- Therefore we do not restrict upload behaviour in any way in that case -- Therefore we do not restrict upload behaviour in any way in that case
((formWidget', formEnctype), mAct) <- runDBJobs . setSerializable $ do ((formWidget', formEnctype), mAct) <- runDBJobs . setSerializable $ do
(sheet@(Entity shid Sheet{..}), buddies, _, _, isLecturer, isOwner, msubmission, _) <- hoist lift getSheetInfo (Entity shid Sheet{..}, buddies, _, _, isLecturer, isOwner, msubmission, _, mASDefinition) <- hoist lift getSheetInfo
let mPrevUploads = msmid <&> \smid -> runDBSource $ selectSource [SubmissionFileSubmission ==. smid, SubmissionFileIsUpdate ==. False] [Asc SubmissionFileTitle] .| C.map (view $ _FileReference . _1) let mPrevUploads = msmid <&> \smid -> runDBSource $ selectSource [SubmissionFileSubmission ==. smid, SubmissionFileIsUpdate ==. False] [Asc SubmissionFileTitle] .| C.map (view $ _FileReference . _1)
((res, formWidget'), formEnctype) <- hoist lift . runFormPost . makeSubmissionForm sheetCourse sheet msmid (fromMaybe (UploadAny True Nothing True) . submissionModeUser $ sheetSubmissionMode) sheetGrouping mPrevUploads isLecturer $ bool id (maybe id (Set.insert . Right) muid) isOwner buddies ((res, formWidget'), formEnctype) <- hoist lift . runFormPost . makeSubmissionForm sheetCourse shid mASDefinition msmid (fromMaybe (UploadAny True Nothing True) . submissionModeUser $ sheetSubmissionMode) sheetGrouping mPrevUploads isLecturer $ bool id (maybe id (Set.insert . Right) muid) isOwner buddies
-- Calling `msgSubmissionErrors` within a `runDB` is okay as long as we handle `transactionUndo` ourselves iff it returns nothing -- Calling `msgSubmissionErrors` within a `runDB` is okay as long as we handle `transactionUndo` ourselves iff it returns nothing
mAct' <- msgSubmissionErrors $ do mAct' <- msgSubmissionErrors $ do
@ -520,14 +535,22 @@ submissionHelper tid ssh csh shn mcid = do
unless (Just subUid == muid) $ unless (Just subUid == muid) $
queueDBJob . JobQueueNotification $ NotificationSubmissionUserDeleted subUid shid smid queueDBJob . JobQueueNotification $ NotificationSubmissionUserDeleted subUid shid smid
hasAuthorshipStatement <- maybeT (return True) $ do
uid <- hoistMaybe muid
asDId <- hoistMaybe mASDId
lift $ exists [AuthorshipStatementSubmissionStatement ==. asDId, AuthorshipStatementSubmissionSubmission ==. smid, AuthorshipStatementSubmissionUser ==. uid]
forM_ mASDId $ \asdId -> do forM_ mASDId $ \asdId -> do
uid <- maybe notAuthenticated return muid uid <- maybe notAuthenticated return muid
insert_ $ AuthorshipStatementSubmission asdId smid uid now insert_ $ AuthorshipStatementSubmission asdId smid uid now
if | is _Nothing msmid -> addMessageI Success MsgSubmissionCreated
| is _Just mFiles -> addMessageI Success MsgSubmissionUpdated if | is _Nothing msmid -> addMessageI Success MsgSubmissionCreated
| subUsers == subUsersOld -> addMessageI Info MsgSubmissionUnchanged | is _Just mFiles -> addMessageI Success MsgSubmissionUpdated
| otherwise -> addMessageI Success MsgSubmissionUsersUpdated | subUsers == subUsersOld
, not hasAuthorshipStatement -> addMessageI Success MsgSubmissionUpdatedAuthorshipStatement
| subUsers == subUsersOld -> addMessageI Info MsgSubmissionUnchanged
| otherwise -> addMessageI Success MsgSubmissionUsersUpdated
cID <- encrypt smid cID <- encrypt smid
let showRoute = CSubmissionR tid ssh csh shn cID SubShowR let showRoute = CSubmissionR tid ssh csh shn cID SubShowR
@ -547,8 +570,8 @@ submissionHelper tid ssh csh shn mcid = do
, formEncoding = formEnctype , formEncoding = formEnctype
} }
((Entity _ Sheet{..}, _, lastEdits, maySubmit, _, _, msubmission, corrector), (showCorrection, correctionInvisible), mFileTable, filesCorrected, sheetTypeDesc, multipleSubmissionWarnWidget, subUsers, isLecturer) <- runDB $ do ((Entity _ Sheet{..}, _, lastEdits, maySubmit, _, _, msubmission, corrector, _), (showCorrection, correctionInvisible), mFileTable, filesCorrected, sheetTypeDesc, multipleSubmissionWarnWidget, subUsers, isLecturer, doAuthorshipStatements) <- runDB $ do
sheetInfo@(Entity shid Sheet{..}, buddies, _, _, isLecturer, isOwner, msubmission, _) <- getSheetInfo sheetInfo@(Entity shid Sheet{..}, buddies, _, _, isLecturer, isOwner, msubmission, _, mASDefinition) <- getSheetInfo
(showCorrection, correctionInvisible) <- fmap (fromMaybe (False, Nothing)) . for ((,) <$> mcid <*> (Entity <$> msmid <*> msubmission)) $ \(cid, subEnt) -> do (showCorrection, correctionInvisible) <- fmap (fromMaybe (False, Nothing)) . for ((,) <$> mcid <*> (Entity <$> msmid <*> msubmission)) $ \(cid, subEnt) -> do
showCorrection <- hasReadAccessTo $ CSubmissionR tid ssh csh shn cid CorrectionR showCorrection <- hasReadAccessTo $ CSubmissionR tid ssh csh shn cid CorrectionR
@ -581,14 +604,36 @@ submissionHelper tid ssh csh shn mcid = do
E.&&. submissionUser E.^. SubmissionUserSubmission E.==. E.val subId E.&&. submissionUser E.^. SubmissionUserSubmission E.==. E.val subId
return $ notification NotificationBroad =<< messageIconI Warning IconSubmissionUserDuplicate MsgSubmissionSomeUsersDuplicateWarning return $ notification NotificationBroad =<< messageIconI Warning IconSubmissionUserDuplicate MsgSubmissionSomeUsersDuplicateWarning
subUsers <- do subUsers <- maybeT (return []) $ do
let subUsers' = Set.toList $ bool id (maybe id (Set.insert . Right) muid) isOwner buddies subId <- hoistMaybe msmid
subUsers'' <- forMOf (traverse . _Right) subUsers' $ \uid -> (,) <$> (encrypt uid :: DB CryptoUUIDUser) <*> getJust uid let
return $ subUsers'' getUserAuthorshipStatement :: UserId
& sortOn (over _Right $ (,,,) <$> views _2 userSurname <*> views _2 userDisplayName <*> views _2 userEmail <*> view _1) -> DB AuthorshipStatementSubmissionState
getUserAuthorshipStatement uid = runConduit $
getStmts
.| fmap toRes (execWriterC . C.mapM_ $ tell . toPoint)
where
getStmts = E.selectSource . E.from $ \authorshipStatementSubmission -> do
E.where_ $ authorshipStatementSubmission E.^. AuthorshipStatementSubmissionSubmission E.==. E.val subId
E.&&. authorshipStatementSubmission E.^. AuthorshipStatementSubmissionUser E.==. E.val uid
return authorshipStatementSubmission
toPoint :: Entity AuthorshipStatementSubmission -> Maybe Any
toPoint (Entity _ AuthorshipStatementSubmission{..}) = Just . Any $ fmap entityKey mASDefinition == Just authorshipStatementSubmissionStatement
toRes :: Maybe Any -> AuthorshipStatementSubmissionState
toRes = \case
Just (Any True) -> ASOkay
Just (Any False) -> ASOldStatement
Nothing -> ASMissing
lift $ buddies
& bool id (maybe id (Set.insert . Right) muid) isOwner
& Set.toList
& mapMOf (traverse . _Right) (\uid -> (,,) <$> (encrypt uid :: DB CryptoUUIDUser) <*> getJust uid <*> getUserAuthorshipStatement uid)
& fmap (sortOn . over _Right $ (,,,) <$> views _2 userSurname <*> views _2 userDisplayName <*> views _2 userEmail <*> view _1)
return (sheetInfo, (showCorrection, correctionInvisible), mFileTable, filesCorrected, sheetTypeDesc, multipleSubmissionWarnWidget, subUsers, isLecturer) return (sheetInfo, (showCorrection, correctionInvisible), mFileTable, filesCorrected, sheetTypeDesc, multipleSubmissionWarnWidget, subUsers, isLecturer, is _Just mASDefinition)
-- TODO(AuthorshipStatements): discuss whether to display prompt for user to update their authorship statement, if lecturer changed it
defaultLayout $ do defaultLayout $ do
setTitleI $ MsgHeadingSubmissionEditHead tid ssh csh shn setTitleI $ MsgHeadingSubmissionEditHead tid ssh csh shn
(urlArchive, urlOriginal) <- fmap ((,) <$> preview (_Just . _1) <*> preview (_Just . _2)) . for mcid $ \cID (urlArchive, urlOriginal) <- fmap ((,) <$> preview (_Just . _1) <*> preview (_Just . _2)) . for mcid $ \cID
@ -603,4 +648,9 @@ submissionHelper tid ssh csh shn mcid = do
, is _Just submissionRatingPoints, is _Just submissionRatingComment , is _Just submissionRatingPoints, is _Just submissionRatingComment
] ]
correctionVisibleWarnWidget = guardOnM (is _Just msubmission && is _Just mcid && showCorrection) correctionInvisible correctionVisibleWarnWidget = guardOnM (is _Just msubmission && is _Just mcid && showCorrection) correctionInvisible
asStatusExplain = $(i18nWidgetFiles "authorship-statement-submission-explanation")
asStatuses = setOf (folded . _Right . _3) subUsers
& Set.union (Set.fromList [ASOkay, ASMissing])
& Set.toList
& mapMaybe (\stmt -> (stmt, ) <$> asStatusExplain Map.!? toPathPiece stmt)
$(widgetFile "submission") $(widgetFile "submission")

2
templates/i18n/authorship-statement-submission-explanation/missing.de-de-formal.hamlet Normal file
View File

@ -0,0 +1,2 @@
$newline never
Keine Eigenständigkeitserklärung vorhanden.

2
templates/i18n/authorship-statement-submission-explanation/missing.en-eu.hamlet Normal file
View File

@ -0,0 +1,2 @@
$newline never
No Statement of Authorship exists.

2
templates/i18n/authorship-statement-submission-explanation/okay.de-de-formal.hamlet Normal file
View File

@ -0,0 +1,2 @@
$newline never
Eigenständigkeitserklärung ist vorhanden und entspricht dem aktuell geforderten Wortlaut.

2
templates/i18n/authorship-statement-submission-explanation/okay.en-eu.hamlet Normal file
View File

@ -0,0 +1,2 @@
$newline never
Statement of Authorship exists and matches the wording as currently required.

2
templates/i18n/authorship-statement-submission-explanation/old-statement.de-de-formal.hamlet Normal file
View File

@ -0,0 +1,2 @@
$newline never
Eigenständigkeitserklärung ist zwar vorhanden, entspricht aber nicht dem aktuell geforderten Wortlaut.

2
templates/i18n/authorship-statement-submission-explanation/old-statement.en-eu.hamlet Normal file
View File

@ -0,0 +1,2 @@
$newline never
Statement of Authorship exists but does not match the wording as currently required.

93
templates/submission.hamlet
View File

@ -18,41 +18,70 @@ $if is _Just mcid
$if not (null subUsers) $if not (null subUsers)
<div .scrolltable> <div .scrolltable>
<table .table .table--striped .table--hover> <table .table .table--striped .table--hover>
<tr .table__tr> <thead>
<th .table__th> <tr .table__row .table__row--head>
<div .table__td-content>
_{MsgSubmissionUserDisplayName}
$if isLecturer
<th .table__th> <th .table__th>
<div .table__td-content> <div .table__td-content>
_{MsgSubmissionUserMatriculation} _{MsgSubmissionUserDisplayName}
<th .table__th> $if isLecturer
<div .table__td-content> <th .table__th>
_{MsgSubmissionUserEmail} <div .table__td-content>
$forall subUser <- subUsers _{MsgSubmissionUserMatriculation}
$case subUser <th .table__th>
$of Left email <div .table__td-content>
<tr .table__tr> _{MsgSubmissionUserEmail}
<td .table__td> $if isLecturer && doAuthorshipStatements
<td .table__td> <th .table__th>
<div .table__td-content .email> <div .table__td-content>
<a href="mailto:#{email}"> _{MsgSubmissionUserAuthorshipStatementState}
#{email} <tbody>
$of Right (uCId, User{userDisplayName, userSurname, userEmail, userMatrikelnummer}) $forall subUser <- subUsers
<tr .table__tr> $case subUser
<td .table__td> $of Left email
<div .table__td-content> <tr .table__row>
^{simpleLink (nameWidget userDisplayName userSurname) (CourseR tid ssh csh (CUserR uCId))} <td .table__td>
$if isLecturer $if isLecturer
<td .table__td>
<td .table__td>
<div .table__td-content .email>
<a href="mailto:#{email}">
#{email}
$if isLecturer && doAuthorshipStatements
<td .table__td>
$of Right (uCId, User{userDisplayName, userSurname, userEmail, userMatrikelnummer}, stmt)
<tr .table__row>
<td .table__td> <td .table__td>
<div .table__td-content> <div .table__td-content>
$maybe matriculation <- userMatrikelnummer ^{simpleLink (nameWidget userDisplayName userSurname) (CourseR tid ssh csh (CUserR uCId))}
#{matriculation} $if isLecturer
<td .table__td> <td .table__td>
<div .table__td-content .email> <div .table__td-content>
<a href="mailto:#{userEmail}"> $maybe matriculation <- userMatrikelnummer
#{userEmail} #{matriculation}
<td .table__td>
<div .table__td-content .email>
<a href="mailto:#{userEmail}">
#{userEmail}
$# TODO(AuthorshipStatements): show authorship statements to submittors?
$if isLecturer && doAuthorshipStatements
<td .table__td>
<div .table__td-content>
_{stmt}
$if isLecturer && doAuthorshipStatements
<tfoot>
<tr .table__row .table__row--foot .no-stripe .no-hover>
<td>
<td>
<td>
<td .table__td>
<div .table__td-content .explanation>
<dl .deflist>
$forall (stmt, explanation) <- asStatuses
<dt .deflist__dt>
_{stmt}
<dd .deflist__dd>
^{explanation}
<section> <section>
$case sheetSubmissionMode $case sheetSubmissionMode
$of SubmissionMode False Nothing $of SubmissionMode False Nothing
@ -88,8 +117,6 @@ $if is _Just mcid
$nothing $nothing
<li>#{time} <li>#{time}
$# TODO(AuthorshipStatements): show statements confirmed (iff display is not anonymous (lecturer/submittor/non-anonymous corrector)?)
$if maySubmit $if maySubmit
<section> <section>
<h2>_{MsgSubmissionReplace} <h2>_{MsgSubmissionReplace}