$newline never $# SPDX-FileCopyrightText: 2022 Gregor Kleen ,Sarah Vaupel ,Steffen Jost ,Winnie Ros $# $# SPDX-License-Identifier: AGPL-3.0-or-later $maybe subCId <- mcid $maybe wdgt <- correctionWdgt

_{MsgTableRating} $maybe warning <- correctionVisibleWarnWidget ^{warning} ^{wdgt} $if subUsersVisible

_{MsgSubmissionUserTable} ^{maybeVoid multipleSubmissionWarnWidget} $if not (null subUsers)
$forall subUser <- subUsers $case subUser $of Left email
_{MsgSubmissionUserDisplayName} $if isLecturer
_{MsgSubmissionUserMatriculation}
_{MsgSubmissionUserEmail} $if doAuthorshipStatements
^{simpleLinkI MsgSubmissionUserAuthorshipStatementState (CSubmissionR tid ssh csh shn subCId SubAuthorshipStatementsR)} ^{iconTooltip asStatusExplainWdgt Nothing True}
$if isLecturer $of Right (uCId, User{userDisplayName, userSurname, userEmail, userMatrikelnummer}, stmt)
^{simpleLink (nameWidget userDisplayName userSurname) (CourseR tid ssh csh (CUserR uCId))} $if isLecturer
$maybe matriculation <- userMatrikelnummer #{matriculation}
_{stmt} $else ^{notification NotificationBroad =<< messageIconI Error IconSubmissionNoUsers MsgSubmissionNoUsers}
$case sheetSubmissionMode $of SubmissionMode False Nothing

_{MsgSubmissionNoUploadExpected} $of _

$if filesCorrected _{MsgSubmissionFilesCorrected} $else _{MsgSubmissionFiles}

$if showCorrection $maybe url <- urlArchive _{MsgSubmissionArchiveCorrected} \ ( $maybe url <- urlOriginal _{MsgSubmissionOriginal} ) $else $maybe url <- urlOriginal _{MsgSubmissionArchive} $maybe fileTable <- mFileTable ^{fileTable} $if maySubmit && not (null lastEdits)

_{MsgTableLastEdit}
    $forall (mbName,time) <- lastEdits $maybe name <- mbName
  • _{MsgEditedBy name time} $nothing
  • #{time} $if maySubmit

    _{MsgSubmissionReplace} ^{formWidget} $nothing ^{formWidget}