18 lines
596 B
Plaintext
18 lines
596 B
Plaintext
$maybe cID <- mcid
|
|
<section>
|
|
<h2>
|
|
<a href=@{CSubmissionR tid csh shn cID (SubArchiveR (ZIPArchiveName SubmissionCorrected))}>Archiv
|
|
(<a href=@{CSubmissionR tid csh shn cID (SubArchiveR (ZIPArchiveName SubmissionOriginal))}>Original</a>)
|
|
$if not (null lastEdits)
|
|
<h3>_{MsgLastEdits}
|
|
<ul>
|
|
$forall (name,time) <- lastEdits
|
|
<li>_{MsgEditedBy name time}
|
|
$maybe fileTable <- mFileTable
|
|
<h3>_{MsgSubmissionFiles}
|
|
^{fileTable}
|
|
|
|
<section>
|
|
<form .form-horizontal method=post action=@{actionUrl} enctype=#{formEnctype}>
|
|
^{formWidget}
|