31 lines
723 B
Plaintext
31 lines
723 B
Plaintext
$maybe cID <- mcid
|
|
<section>
|
|
$case sheetSubmissionMode
|
|
$of SubmissionMode False Nothing
|
|
<p>
|
|
_{MsgSubmissionNoUploadExpected}
|
|
$of _
|
|
<h2>
|
|
<a href=@{urlArchive cID}>Archiv
|
|
(<a href=@{urlOriginal cID}>Original</a>)
|
|
|
|
$maybe fileTable <- mFileTable
|
|
<h3>_{MsgSubmissionFiles}
|
|
^{fileTable}
|
|
|
|
$if maySubmit && not (null lastEdits)
|
|
<h3>_{MsgLastEdits}
|
|
<ul>
|
|
$forall (mbName,time) <- lastEdits
|
|
$maybe name <- mbName
|
|
<li>_{MsgEditedBy name time}
|
|
$nothing
|
|
<li>#{time}
|
|
|
|
$if maySubmit
|
|
<section>
|
|
<h2>_{MsgSubmissionReplace}
|
|
^{formWidget}
|
|
$nothing
|
|
^{formWidget}
|