36 lines
835 B
Plaintext
36 lines
835 B
Plaintext
$newline never
|
|
$maybe cID <- mcid
|
|
<section>
|
|
$case sheetSubmissionMode
|
|
$of SubmissionMode False Nothing
|
|
<p>
|
|
_{MsgSubmissionNoUploadExpected}
|
|
$of _
|
|
<h2>
|
|
_{MsgSubmissionFiles}
|
|
<p>
|
|
<a href=@{urlArchive cID}>_{MsgSubmissionArchive}
|
|
\ (
|
|
<a href=@{urlOriginal cID}>_{MsgSubmissionOriginal}
|
|
)
|
|
|
|
$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}
|