55 lines
1.3 KiB
Plaintext
55 lines
1.3 KiB
Plaintext
$newline never
|
|
$if is _Just mcid
|
|
$maybe wdgt <- correctionWdgt
|
|
<section>
|
|
<h2>_{MsgTableRating}
|
|
|
|
$maybe warning <- correctionVisibleWarnWidget
|
|
^{warning}
|
|
|
|
^{wdgt}
|
|
|
|
^{maybeVoid multipleSubmissionWarnWidget}
|
|
|
|
<section>
|
|
$case sheetSubmissionMode
|
|
$of SubmissionMode False Nothing
|
|
<p>
|
|
_{MsgSubmissionNoUploadExpected}
|
|
$of _
|
|
<h2>
|
|
$if filesCorrected
|
|
_{MsgSubmissionFilesCorrected}
|
|
$else
|
|
_{MsgSubmissionFiles}
|
|
<p>
|
|
$if showCorrection
|
|
$maybe url <- urlArchive
|
|
<a href=#{url}>_{MsgSubmissionArchiveCorrected}
|
|
\ (
|
|
$maybe url <- urlOriginal
|
|
<a href=#{url}>_{MsgSubmissionOriginal}
|
|
)
|
|
$else
|
|
$maybe url <- urlOriginal
|
|
<a href=#{url}>_{MsgSubmissionArchive}
|
|
|
|
$maybe fileTable <- mFileTable
|
|
^{fileTable}
|
|
|
|
$if maySubmit && not (null lastEdits)
|
|
<h3>_{MsgTableLastEdit}
|
|
<ul>
|
|
$forall (mbName,time) <- lastEdits
|
|
$maybe name <- mbName
|
|
<li>_{MsgEditedBy name time}
|
|
$nothing
|
|
<li>#{time}
|
|
|
|
$if maySubmit
|
|
<section>
|
|
<h2>_{MsgSubmissionReplace}
|
|
^{formWidget}
|
|
$else
|
|
^{formWidget}
|