17 lines
563 B
Plaintext
17 lines
563 B
Plaintext
$maybe cID <- mcid
|
|
<section style="padding-bottom:1em; margin-bottom:1em; border-bottom:1px solid black;">
|
|
<h2>
|
|
<a href=@{CSubmissionR tid csh shn cID (SubArchiveR (ZIPArchiveName SubmissionCorrected))}>Archiv
|
|
$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}
|